Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 7 van 7

Onderwerp: Unhide all sheets bij het openen van de file

  1. #1
    Junior Member
    Geregistreerd
    22 oktober 2018
    Vraag is niet opgelost

    Unhide all sheets bij het openen van de file

    Dag allemaal,

    Ik heb een macro die ervoor zorgt dat de file opent op een specifieke sheet. Ook heb ik een macro waarmee ik in een keer alle hidden sheets kan "unhiden"
    Nu vroeg ik me af, is het mogelijk om ervoor te zorgen dat wanneer de file opent, alle excel files "unhiden" zijn, ook al waren ze hidden toen de file werd afgesloten?
    Ben benieuwd! Thanks

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Ik neem aan dat je het over de werkbladen hebt.
    Dan kan dat met dit in de ThisWorkbook sectie:
    Code:
    Private Sub Workbook_Open()
        For Each sh In ThisWorkbook.Sheets
            sh.Visible = True
        Next sh
    End Sub
    Laatst aangepast door edmoor : 6 december 2018 om 13:22
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Junior Member
    Geregistreerd
    22 oktober 2018
    Dankje! Dat bedoel ik inderdaad!
    Krijg nu helaas deze foutmelding:

    Klik op afbeelding voor grotere versie

Naam:  foutmelding.PNG
Bekeken: 18
Grootte:  6,3 KB

    En ik heb deze code ingevuld:

    Klik op afbeelding voor grotere versie

Naam:  code openen excel alle sheets unhidden.PNG
Bekeken: 19
Grootte:  6,2 KB

    Hoop dat je me kan helpen

  4. #4
    Giga Senior Haije's avatar
    Geregistreerd
    24 maart 2009
    Locatie
    Oldenzaal
    Afstand tot server
    ±97 km
    maak er eens dit van (ter vervanging van alles wat ju hebt)

    Code:
    Private Sub Workbook_Open()
        For Each sh In ThisWorkbook.Sheets
            sh.Visible = True
        Next sh
    Sheets("Start").select
    End Sub
    Haije
    ___________________________________________________

  5. #5
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    De Private Sub Workbook_Open() mag inderdaad maar 1x bestaan dus kan je volgens de instructie van Haije die zaken combineren.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  6. #6
    Junior Member
    Geregistreerd
    22 oktober 2018
    Bedankt iedereen!! het werkt

  7. #7
    Senior Member
    Geregistreerd
    23 mei 2013
    Vergeet dan niet de vraag als opgelost te zetten.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren