Blätter anzeigen nach passwortabfrage
10.01.2007 16:17:28
frank
irgendwie stehe ich auf dem Schlauch.
über einen Schaltbutton starte ich eine Passwortabfrage. Wenn sie erfolgreich ist, soll das betreffende Blatt sichtbar und aktiviert werden.
Es funzt nicht.
Habe folgenden Code.
Private Sub CommandButton2_Click()
If TextBox1 <> "blatt2" Then MsgBox "Falsches Kennwort, kein Zugriff.", 48, "Hinweis" Else legitimiert = True
Unload Me
End Sub
Im Modul steht:
Option Explicit
Public legitimiert As Boolean
und in DieseArbeitsmappe
Private Sub Worksheet_Activate()
If Not legitimiert Then
Sheets(1).Activate
UserForm1.Show
Else: Sheets("Tabelle2").Visible = xlSheetVisible
Sheets("Tabelle2").Activate
End If
End Sub
Wo ist denn mein Fehler?
Danke fürs drüberschauen
Frank
Anzeige