Konstante als Password verwenden
Jan
kann mir jemand helfen, wie ich ein Passwort das in der gesamten Arbeitsmappe den Blattschutz sichert als Konstante definiere? Ich rufe das Passwort in mehreren Makros auf und möchte es, falls ich es ändern möchte nur noch einmal ändern.
Mein Versuch:
1. das hier unten in "Diese Arbeitsmappe"
Sub psw()
Const psw As String = "456"
End Sub
2.dann im Modul/Makro aufrufen mit:
ActiveSheet.Unprotect Password:=psw
Kann ja nicht so schlimm sein, kriegs aber nicht hin. Habs auch schon mit public const versucht, _
aber naja...
Viele Grüße,
Jan