Passwort mit makro ändern
01.11.2004 18:28:12
Kopfeck
Ich "schütze" den aufruf eines Blattes mit folgendem Makro
aktuelles Passwort "demo" .
Jetzt brauche ich eine möglichkeit damit das Passwort
vom Benutzer der Arbeitsmappe Individuell geändert werden kann,
ohne in den VBA Modus zu müßen.
Sub AdressenEin()
' StatistikJEin Makro
' Makro am 2.10.2004 von Kopfeck aufgezeichnet
Pw = InputBox("Passwort eingeben!!")
If Pw = "demo" Then
Sheets("Adressen").Visible = True
Sheets("Adressen").Select
End If
End Sub
Kopfeck