Admin-Passwort für alle Blätter(vers.PW)
08.07.2022 09:47:43
LeRayZ
ich habe 5 verschiedene Arbeitsblätter in meiner Datei, welche mit .VeryHidden versteckt sind. Um sie wieder aufzudecken, habe ich 5 verschiedene Buttons, bei denen man ein Passwort eingeben muss (5 verschiedene Passwörter!)
Gibt es eine Möglichkeit, mit einem sechsten Button (sechtes Passwort) alle Blätter einzublenden, sodass man nicht alle Blätter einzeln öffnen muss?
Code für meine Button:
Sub cmdBlattAufruf_Total()
Dim sPassWord As String
sPassWord = InputBox("Paßwort eingeben:", , "")
Select Case sPassWord
Case "123"
With Worksheets("Total")
.Visible = True
.Select
End With
Case ""
Case Else
Beep
MsgBox "War wohl nix!"
End Select
End Sub
Code für das verstecken:
Sub Verbergen_Total()
Worksheets("Total").Visible = xlVeryHidden
End Sub