Passwortabfrage fehlerhaft
Albert
ich verwende folgenden Code für ein Ablaufdatum mit Administratorkennwort...
Option Explicit
Private Sub Workbook_Open()
Dim objSh As Object
Dim pw As String
Dim wks As Worksheet
Dim verfall As Date
Sheets("Startseite").Select
verfall = CDate("22.03.2012")
If Date "Startseite" Then objSh.Visible = xlSheetVisible
Next
Sheets("Übersicht").Select
Else
pw = fncPassword("Ihre Lizenz ist abgelaufen!" & Chr(10) & "Geben sie das _
Administratorpasswort eingeben", "Passwortabfrage")
If pw = "Cheffe" Then
Me.Sheets("Startseite").Visible = xlSheetVisible
For Each objSh In Me.Sheets
If objSh.Name "Startseite" Then objSh.Visible = xlSheetVisible
Sheets("Übersicht").Select
If pw "Cheffe" Then
MsgBox "Das eingegebene Passwort ist falsch!"
End If
Next
End If
End If
End Sub
Das Datum hab ich zum Testen mal auf gestern geschoben. Nun läuft das Makro nicht rund. Sobald ich das Passwort eingebe, bleibt es beim Sheet("Übersicht").select (Fettmarkierung) hängen.
Was müsste ich da noch einfügen, damit es auch hier weitergeht.
Das Makro muss zuerst alle Sheets einblenden, bevor es die "Übersicht" selektrieren kann.
Aber wie müsste das aussehen?
Mfg
Albert