Ausgeblendetes Tabellenblatt bei Paßworteingabe anzeigen

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

092100    082699

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