Hoi Beertje,
Zat jouw vraag nog eens goed te lezen en het lijkt erop dat je dit toch vaak nodig hebt.
Dus pak aan:
Rechtermuisknop op het tabje wat je wilt verbergen en kies programmacode weergeven.
Plak deze code:
Private Sub Worksheet_Deactivate()
Sheets("Blad1").Visible = xlVeryHidden
End Sub
'a.u.b. even Blad1 vervangen door de naam van het tabje!
Vervolgens in de VBE kiezen voor Invoegen/Module.
Plak deze code in de module:
Option Explicit
Sub ShowSheet()
Dim strWW
strWW = InputBox("Voer het wachtwoord in a.u.b.", , "Wachtwoord invoeren!")
If strWW <> "Joost" Then Exit Sub
Sheets("Blad1").Visible = xlSheetVisible
End Sub
'a.u.b. even Blad1 vervangen door de naam van het tabje!
'bij Joost even jouw wachtwoord invoeren.
Zo nog even compileren! (menu foutopsporing)
Geen fouten mooi, even het projectje beveiligen. (zie vorig bericht)
En nou nog even de boel opslaan en klaar is Klara!
See Yah! :thumb:
O ja de code van ShowSheet kun jij natuurlijk nog onder een knopje hangen. Of je roept hem op met ALT+F8! (of kies een andere leuke manier)
Dag allemaal,
Ik heb zojuist bovenstaande oplossing gebruikt om verschillende werkbladen te beveiligen met een wachtwoord zodat ze na het invoeren van het ww pas zichtbaar worden. Dit werkt perfect. Het enige manco dat ik in de praktijk ervaar is dat deze werkbladen automatisch weer onzichtbaar worden gemaakt nadat ik het betreffende werkblad aanklik en weer verlaat. Dit is nogal lastig als je een langere tijd aan een excelbestand moet werken en veel moet switchen tussen verschillende werkbladen. Ik zou het liefste zien dat deze werkbladen pas weer onzichtbaar worden gemaakt wanneer ik deze handmatig (met een macro) laat verbergen. Weet iemand hoe ik dit in orde kan krijgen?
Groet,
Bratox
