[Excel2000] Tabblad verbergen opheffen met knop+wachtwoord

[_Dune_]

Ik heb een Excel bestand met meerdere tabbladen. Een paar bladen zijn verborgen, nu heb ik een knop gemaakt die deze bladen weer vrij geeft, alleen zijn er maar een paar personen die deze knop daadwerkelijk moeten kunnen gebruiken. Nu vroeg ik mij af of je hier misschien wachtwoord kunt inbakken. Wanneer je op de knop klikt er dus om een wachtwoord gevraagd word.

Als dit inderdaad zo kan werken, dan komt gelijk de tweede vraag: wat gebeurd er wanneer je via Opmaak >> Blad >> Zichtbaar maken, het blad weer zichtbaar probeert te maken. Wordt dan een eventuele knop met wachtwoord omzeild?

[ Voor 3% gewijzigd door _Dune_ op 29-12-2005 15:08 ]

[onkl]

1: Dat kan, met een VB macro
2: Ja, maar dat is te belemmeren door het werkboek te beveiligen met een wachtwoord. (Extra-beveiliging-beveilig werkboek, alleen structuur geloof ik)

code:

Zomaar wat voorbeeldcode:
Sub achterjeknop
Dim ww as string
ww = inputbox("voer wachtwoord in")
if ww = "Pietje Puk" then
ActiveWorkbook.Unprotect ("een ander wachtwoord")'dit is het wachtwoord waarmee 
'het werkboek is beveiligd. Liefst ongelijk voor de betere paranoia.
Sheets("Sheet1").Visible = True
ActiveWorkbook.Protect ("een ander wachtwoord",True, False)
Else
msgbox "ga buiten spelen"
End if
End sub

En dan moet je nog een knopje maken waarmee het blad weer verborgen kan worden.

Als het veiliger moet (iedereen die Alt-F11 kent kan je wachtwoorden open en bloot lezen, beveilig dan je VBA project tegen lezen: In editor->Extra->Projecteigenschappen, tab beveiliging oid.

[Dunka]

code:

    Worksheets("Mijn Werkblad").Visible = xlVeryHidden

Verberg een blad met deze code in een macro zodat het niet zichtbaar gemaakt kan worden vanuit het opmaak menu.