Kennwort Excel Macro schützen
Genau wie können Sie ein Passwort schützen Arbeitsmappen und Arbeitsblätter können Sie das Kennwort ein Makro in Excel aus betrachtet werden (und ausgeführt) schützen.
Platzieren Sie eine Befehlstaste auf dem Arbeitsblatt und fügen Sie die folgenden Codezeilen:
-
Erstellen Sie zunächst ein einfaches Makro, dass Sie schützen möchten.
Range("A1").Value = "This is secret code"
-
Als nächstes klicken Sie auf Extras, VBAProject Eigenschaften.
-
Wählen Sie auf der Registerkarte Schutz überprüfen „Lock-Projekt für die Anzeige“ und ein Passwort zweimal eingeben.
-
Klicken Sie auf OK.
-
Speichern, schließen und die Excel-Datei öffnen. Versuchen Sie, den Code zu sehen.
Das folgende Dialogfenster erscheint:
Sie können immer noch den Code, indem Sie auf die Schaltfläche ausführen, aber sie kann nicht mehr den Code anzeigen oder bearbeiten (sofern Sie das Passwort kennen). Das Kennwort für die herunterladbare Excel-Datei ist „easy“.
-
Wenn Sie mit einem Passwort wollen von den Makro schützen ausgeführt wird, fügen Sie die folgenden Codezeilen:
Dim password As Variant password = Application.InputBox("Enter Password", "Password Protected") Select Case password Case Is = False 'do nothing Case Is = "easy" Range("A1").Value = "This is secret code" Case Else MsgBox "Incorrect Password" End Select
Ergebnis, wenn Sie auf das Befehlsschaltflächen auf dem Blatt klicken:
Erläuterung: Das Makro verwendet die InputBox-Methode des Application-Objekts. Wenn die Benutzer auf Abbrechen klickt, gibt diese Methode falsch und nichts passiert (InputBox verschwindet). Erst wenn der Benutzer das Passwort ( „easy“ wieder) kennt, wird der Geheimcode ausgeführt werden. Wenn das eingegebene Passwort falsch ist, wird ein MsgBox angezeigt. Beachten Sie, dass der Benutzer nicht einen Blick auf das Kennwort in dem Visual Basic-Editor, weil das Projekt von zu betracht geschützt nehmen.