Sheets select und Passwort mitliefern
Dietmar
habe nochfolgenden Code eingerichtet, der zum Öffnen eines Statistik-Sheets die Eingabe eines Passworts abfragt.
Wie kann ich diese Seite per VBA-Code öffnen, indem ich den erforderlichen Passwort-Code direkt mitliefere, damit mein Update, das Änderungen der PW-geschützten Seite veranlasssen soll, nicht stoppt und zunächst die Eingabe des PW erfragt?
Derzeit stoppt der Code nachdem ich die Seite mit >Sheets ("Statistik").select Danke!
Gruß
Dietmar aus Aachen
Sub AbfragePasswort()
Dim s As String
Const Passw = "1234"
s = InputBox("Geben Sie das Paßwort ein!")
If s = Passw _
Then MsgBox "OK Zugriff erlaubt!" _
: Range("A24").Select _
: Exit Sub _
Else: Application.DisplayAlerts = False
: MsgBox "Sie haben keine Zugriffsrechte auf dieses Blatt"
: Sheets("Tabelle1").Activate
End Sub
Anzeige