Unhide a sheet.

[blackbox]

Hallo allemaal. Ik ben in Excel een simpel macro-tje wat er voor zorgt dat een sheet ge unhide wordt door het invoeren van een paswoord.

Sub Unhide_QAS()
Dim wachtwoord_QAS As String
wachtwoord_QAS = UCase(InputBox("Voer wachtwoord in om de beoordeling uit te voeren.", "Abbott Zwolle QAS"))
If wachtwoord_QAS = "QAS" Then
Sheets("QAS").Visible = True
Sheets("QAS").Select
Else
response = MsgBox("Fout wachtwoord; Probeer nogmaals")
End If
End Sub

Vervolgens wil ik voorkomen dat de sheet ook nog via de normale weg (menu) kan worden nl. Format>Sheet>Unhide.

 

[modbeek]

dan moet je het blad verbergen in VBA met het commando:

QAS.Visible = Excel.XlSheetVisibility.xlSheetVeryHidden

dan zie je hem niet meer als gebruiker via het menu, zichtbaar maken doe je middels het commando:

QAS.Visible = Excel.XlSheetVisibility.xlSheetVisible

weet niet of jouw formulering ook nog werkt, maar deze zeker.

en gewoon een blad verbergen is dan natuurlijk:

QAS.Visible = Excel.XlSheetVisibility.xlSheetHidden

dan kan je hem nog wel via het menu 'unhiden'

 

[blackbox]

dan moet je het blad verbergen in VBA met het commando:

QAS.Visible = Excel.XlSheetVisibility.xlSheetVeryHidden

dan zie je hem niet meer als gebruiker via het menu, zichtbaar maken doe je middels het commando:

QAS.Visible = Excel.XlSheetVisibility.xlSheetVisible

weet niet of jouw formulering ook nog werkt, maar deze zeker.

en gewoon een blad verbergen is dan natuurlijk:

QAS.Visible = Excel.XlSheetVisibility.xlSheetHidden

dan kan je hem nog wel via het menu 'unhiden'

 

[Warme bakkertje]

En wat is nu je vraag, want de vraag staat nog onopgelost

Mvg

Rudi