• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Unhide all sheets bij het openen van de file

Status
Niet open voor verdere reacties.
C

chelsea1997

Gebruiker
Lid geworden
22 okt 2018
Berichten
7
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
 
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 bewerkt:
Dankje! Dat bedoel ik inderdaad!
Krijg nu helaas deze foutmelding:

foutmelding.PNG

En ik heb deze code ingevuld:

code openen excel alle sheets unhidden.PNG

Hoop dat je me kan helpen :)
 
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
 
De Private Sub Workbook_Open() mag inderdaad maar 1x bestaan dus kan je volgens de instructie van Haije die zaken combineren.
 
Vergeet dan niet de vraag als opgelost te zetten.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan