Hallo Dieter,

Option Explicit
Dim WsTabelle As Worksheet

Private Sub Aufheben()
For Each WsTabelle In Sheets
WsTabelle.Unprotect ("Passwort")
Next WsTabelle
End Sub

Private Sub Schutz()
For Each WsTabelle In Sheets
WsTabelle.Protect ("Passwort")
Next WsTabelle
End Sub

Gruß Hajo

Ich glaube es war eher gefragt, wie man ein Makro so abspeichert, dass es immer zur Verfügung steht, unabhängig davon, welche Datei geöffnet ist.

Starte dafür eine Makroaufzeichnung. In dem Dialogfeld, wo man den Namen für das Makro eingeben kann ist auch noch ein Drop-Down-Feld "Makro speichern in:". Hier wählst du "persönliche Makroarbeitsmappe".
Klick irgendwo hin und beende die Makro-Aufzeichnung.
Im VB-Editor findest du nun ein neues VBAProject mit Namen PERSONL.XLS.
Jetzt musst du nur noch das aufgezeichnete Makro in dem neuen Projekt durch dein eigenes ersetzen und Excel einmal beenden. Es erscheint dann noch die Frage, ob die Änderungen an der persönlichen Makroarbeitsmappe gespeicher werden sollen.

Gruß Flupo

Hallo Flupo,

es war die Rede von Tabellen und nicht von Arbeitsmappen bzw. Datei.

Gruß Hajo

Hallo,
die Antwort von Flupo werde ich mal testen. Es sieht eigentlich ganz gut aus.

vielen Dank für eure Mithilfe

Gruß dieter

Du hast Recht, ich aber so meine Erfahrungen mit Anwendern. ;-)

Gruß Flupo

Hallo Flupo,

es stellt sich für mich die Frage warum überhhaupt mit Passwort, wenn ein allgemein gültiges Makro die aufhebt.
Mein Makro war Extra als Pribvate bezeichnet, also nur ausführung aus dem VBA Editor und das Projekt hätte man ja noch schützen können. Es ist abr nichts sicher in Excel.

Gruß Hajo

So ein Makro macht durchaus Sinn.
Wenn ich regelmäßig geschützte Dateien bearbeite, lege ich mir dieses Makro auf einen Button in der Symbolleiste. Und dadurch, dass es in der persönlichen Makroarbeitsmappe gespeichert ist, wird es auch nicht mit den fertigen Dateien weitergegeben.
Die "Allgemeingültigkeit" bezieht sich ja nur auf einen Benutzer eines einzigen Rechners. Allen anderen, die möglicherweise in einem Netzwerk darauf zugreifen, steht diese Funktion nicht zur Verfügung.

Gruß Flupo