Gruppe
Allgemein
Problem
Wie kann ich ein ausgeblendetes Tabellenblatt nach Eingabe eines richtigen Paßwortes anzeigen lassen?
StandardModule: basMain
Sub cmdBlattAufruf_Click()
Dim sPassWord As String
sPassWord = InputBox("Paßwort eingeben:", , "MeinPaßwort")
Select Case sPassWord
Case "MeinPaßwort"
With Worksheets("Geheim")
.Visible = True
.Select
End With
Case ""
Case Else
Beep
MsgBox "War wohl nix!"
End Select
End Sub
Sub Verbergen()
Worksheets("Geheim").Visible = xlVeryHidden
End Sub