Hallo
Ich möchte erreichen, dass das Erstellen/Aufrufen von Makro’s/VBA’s,
in einer bestimmten Arbeitsmappe, nur mit Passwort möglich ist. Dies auch dann,
wenn die Arbeitsmappe unter anderem Namen gespeichert wird.
Ist das möglich?
Es geht mir darum, zu verhindern, dass der Passwortschutz aufgehoben
werden kann.
Danke & Gruss
Walti
Grüezi Walti
In zwei Schritten mache ich es so:
a) Das Erstellen von Makros in einer Datei (= Arbeitsmappe) verhindern:
Im Projekt-Explorer Rechtsklick auf das entsprechende Projekt.
Eigenschaften von VBAProject…
Register Schutz – Anzeige sperren und Kennwort eingeben
Das Erstellen und Ansehen von Makros ist dann nur mit Passwort möglich, auch wenn die Datei kopiert wird.
b) Das Aufrufen von Makros mit Passwort ist etwas umständlicher. Ich mache es jeweils mit einem zusätzlichen Makro „MakroSchutz“, das von den einzelnen Makros aufgerufen wird: Makro1 und Makro2 können nur gestartet werden, wenn das Passwort „abcde“ eingegeben wird. – Das Passwort wird bestimmt unter
Const passwort1
Dim passwort$
Const passwort1 = "abcde"
Private Sub MakroSchutz()
passwort = InputBox("Bitte Passwort eingeben!")
End Sub
Sub Makro1()
Call MakroSchutz
If passwort <> passwort1 Then Exit Sub
MsgBox "hallo"
End Sub
Sub Makro2()
Call MakroSchutz
If passwort <> passwort1 Then Exit Sub
ActiveCell.FormulaR1C1 = "hallo"
End Sub
Wenn Du Deine Makros in verschiedenen Modulen hinterlegst, musst Du in jedes Modul die ersten fünf Zeilen einfügen:
Dim passwort$
Const passwort1 = "abcde"
Private Sub MakroSchutz()
passwort = InputBox("Bitte Passwort eingeben!")
End Sub
Ich hoffe, das hilft Dir. Grüsse Niclaus
Hallo Niclas
Danke für die Antwort.
Leider nutzt mir das nichts. Ich möchte, das man den VBA Editor ohne gar nicht aufrufen kann.
Gruss
Walti
Jetzt verstehe ich:
Aber ohne gar nicht kann ich gar nicht.
Niclaus