Makro mit Passwort
Stefan
Stefan
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