Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Ausgeblendetes Tabellenblatt bei Paßworteingabe anzeigen

Gruppe

Arbeitsblatt

Problem

Wie kann ich ein ausgeblendetes Tabellenblatt nach Eingabe eines richtigen Paßwortes anzeigen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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