Genauso wie Sie Arbeitsmappen und Arbeitsblätter mit einem Kennwort schützen können, können Sie ein Makro mit einem Passwort schützen In Excel nicht gesehen (und ausgeführt) werden.
Platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen hinzu:
1. Erstellen Sie zunächst ein einfaches Makro, das Sie schützen möchten.
Range("A1").Value = "Das ist ein Geheimcode"
2. Klicken Sie anschließend auf Extras, VBAProject-Eigenschaften.
3. Aktivieren Sie auf der Registerkarte Schutz "Projekt zum Anzeigen sperren" und geben Sie zweimal ein Kennwort ein.
4. Klicken Sie auf OK.
5. Speichern, schließen und öffnen Sie die Excel-Datei erneut. Versuchen Sie, den Code anzuzeigen.
Das folgende Dialogfeld wird angezeigt:
Sie können den Code weiterhin ausführen, indem Sie auf die Befehlsschaltfläche klicken, aber Sie können den Code nicht mehr anzeigen oder bearbeiten (es sei denn, Sie kennen das Passwort). Das Passwort für die herunterladbare Excel-Datei lautet "easy".
6. Wenn Sie das Makro vor der Ausführung mit einem Kennwort schützen möchten, fügen Sie die folgenden Codezeilen hinzu:
Passwort dimmen als Variante
password = Application.InputBox("Passwort eingeben", "Passwortgeschützt")
Fallpasswort auswählen
Fall ist = falsch
'nichts tun
Fall ist = "einfach"
Range("A1").Value = "Das ist ein Geheimcode"
Fall sonst
MsgBox "Falsches Passwort"
Auswahl beenden
Ergebnis, wenn Sie auf die Befehlsschaltfläche auf dem Blatt klicken:
Erläuterung: Das Makro verwendet die InputBox-Methode des Application-Objekts. Wenn der Benutzer auf Abbrechen klickt, gibt diese Methode False zurück und nichts passiert (InputBox verschwindet). Erst wenn der Benutzer das Passwort kennt (wieder „easy“), wird der Geheimcode ausgeführt. Wenn das eingegebene Passwort falsch ist, wird eine MsgBox angezeigt. Beachten Sie, dass der Benutzer das Kennwort im Visual Basic-Editor nicht einsehen kann, da das Projekt vor der Anzeige geschützt ist.
