Blattschutz mit Bereichen
Thomas
ich habe ein sicherlich sehr einfaches Problem. Ich möchte in einer Tabelle die einzelnen Blätter bis auf einen definierten Bereich mit einem Blattschutz versehen. Dafür habe ich den Makrorecorder verwendet, für das einzelne Blatt also kein Problem. Nun hätte ich dies aber gern per Tastenkombination für alle Blätter ausgeführt.
Mein bisheriger Ansatz, welcher aber immer mit einem Fehler endet:
Vielen Dank, Tom
Sub Blattschutz()
' Blattschutz Makro
' Tastenkombination: Strg+x
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.Protection.AllowEditRanges.Add Title:="Bereich1", Range:=Range( _
"E38:H49"), Password:="xy"
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
Next
End Sub
Anzeige