Blattschutz-Makro mit Prüfung
Thomas
ich habe eine Tabelle in der per Makro der Blattschutz für Tabellenblätter aktiviert wird. Hierzu nutze ich den u. g. Code.
Nun ist es so das durch manuelle Änderungen bei einigen Blättern manuell der Schutz rausgenommen wurde und es so zu einer Fehlermeldung beim Ausführen kommt da die gestellte Aufgabe ja nicht ausgeführt werden kann.
NUn benötige ich Hilfe dabei den Code entsprechend zu ändern das der Schutz rausgenommen wird und Blätter wo dies schon ist, einfach übergangen werden. Das Gleiche beim Setzen des Schutzes.
Kann ich beim Makro Blattschutz_Raus des Schutzes den Parameter "For Each mySheet In ThisWorkbook.Sheets" gegen "For i = 3 To Sheets.Count" ersetzen? Die ersten beiden Blätter werden manuell geschützt ohne Bereichsangabe.
Vielen Dank. MfG, Tom
Sub Blattschutz()
' Blattschutz Makro
' Tastenkombination: Strg+x
For i = 3 To Sheets.Count
Sheets(i).Select
ActiveSheet.Protection.AllowEditRanges.Add Title:="Bereich1", Range:=Range( _
"E38:L49"), Password:="xy1!"
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
Next i
End Sub
Sub BlattschutzRaus()
' Blattschutz aufheben Makro
' Tastenkombination: Strg+y
Dim mySheet
For Each mySheet In ThisWorkbook.Sheets
mySheet.Unprotect
ActiveSheet.Protection.AllowEditRanges(1).Delete
Next
End Sub