Sub MakromitPasswort()
If InputBox("Bitte Kennwort eingeben") <> "12345" Then
MsgBox "Falsches Kennwort! Makro wird nicht ausgeführt"
Exit Sub
End If
MsgBox "Ah, hier geht's weiter:"
'Dein Code
End Sub
Kann man mit Userform besser machen (Sternchen bei der Eingabe), aber mal auf die Schnelle als Anregung...
Gruß Matthias
AW: Makro mit Passwort
harry
hi stefan,
einfach eine uf mit textfeld am anfang des makros laden, * als passwordchar, einen ok button mit
If Textbox1.Text "Passwort" Then
Exit Sub
liebe grüße
harry
Anzeige
AW: Makro mit Passwort
Stefan
Naja - aber dann kann doch jeder das Passwort im VBA-Code in Klartext nachlesen.
Das sollte ja auch nicht der Sinn der Sache sein oder?
Stefan
AW: Makro mit Passwort
Matthias
Hallo Stefan,
Rechtsklick auf das VBA-Projekt im Explorer,
"Eigenschaften von VBA Project", dann "Schutz", dann Haken bei "Projekt für die Anzeige sperren" und Kennwort vergeben.
Gruß Matthias