ich habe folgende Frage; ich möchte gerne, dass beim Öffnen einer Datei alle Tabellenblätter vom Blattschutz befreit werden. Und zwar unabhängig davon wie sie heißen, und wie viele es gibt.
Geht das?
Danke im Voraus!
Grüße, Melanie
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
Makro bei Open unter DieseArbeitsmappe einbinden.
Option Explicit
Dim WsTabelle As Worksheet
Private Sub Aufheben()
For Each WsTabelle In Sheets
With WsTabelle
.Unprotect ("Passwort")
.Columns("W:W").Locked = False
.Columns("W:W").FormulaHidden = False
.Protect userinterfaceonly:=True, DrawingObjects:=True, Contents:=True
.EnableOutlining = True
End With
Next WsTabelle
End Sub