Re: Passwort
05.11.2002 12:19:02
Andre B
Ja gibt es, du könntest die Passwortabfrage mit Hilfe einer Msgbox eingeben lassen: Sub MenuZurueck()
On Error GoTo Ende
Dim sht As Worksheet
Dim strPw As String
strPw = InputBox("Nur für Systemadministrator zugänglich! Bitte Passwort eingeben.", "Passwortabfrage", "")
ActiveSheet.Unprotect strPw
Hier deine Aktion!
Exit Sub
Ende:
MsgBox "Ein Fehler ist aufgetreten." & _
vbCr & _
"Möglicherweise wurde ein falsches Passwort eingegeben."
End Sub
Das ist die einfachste Möglichkeit, aber das Passwort ist sichtbar bei der Eingabe.
Zweite Möglichkeit ist eine userform für diesen Zweck zu erstellen. Gleiche Wirkung, aber die Möglichkeit über Einstellungen das Passwort unkenntlich zu machen.
Dritte, eleganteste, aber auch aufwendigste Methode:
Der User muß sich nach dem Öffnen der Datei anmelden.
Über diese Anmeldung werden dann alle Befehle und Zugriffsrechte gesteuert. Wirklich aufwendig, aber verdammt cool.