VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Ausgeblendetes Tabellenblatt bei Paßworteingabe anzeigen

Gruppe

Allgemein

Bereich

Arbeitsblatt

Thema

Ausgeblendetes Tabellenblatt bei Paßworteingabe anzeigen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsblatt