ich benötige Hilfe bei der Erstellung eines Blattschutzes in dem nur Bereiche geändert werden können.
Ich habe eine Datei mit vielen Blättern, in dieser sollen nur bestimmte Bereiche geändert _ werden dürfen. Dafür habe ich folgendes mit dem Rekorder aufgezeichnet:
Sub Schutz1()
' Schutz1 Makro
ActiveSheet.Protection.AllowEditRanges.Add Title:="Std.und MA", Range:= _
Range("A12:AF21")
ActiveSheet.Protection.AllowEditRanges.Add Title:="Reinigungsart", Range:= _
Range("AB4")
ActiveSheet.Protection.AllowEditRanges.Add Title:="Rückseite", Range:=Range _
("AN5:BF35")
ActiveSheet.Protection.AllowEditRanges.Add Title:="sonst. Infos", Range:= _
Range("A28:AJ35")
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
End Sub
Wie bekomme ich das hin das alle Blätter per Makro geschützt werden können? Also per Makro das dies in allen Blättern aktiviert werden kann und per anderem Makro auch wieder deaktiviert werden kann.
Derzeit habe ich nur folgendes Makro eingebaut:
Sub Blattschutz()
' Blattschutz Makro
' Tastenkombination: Strg+x
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
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
Kann ich das irgendwie durch den aufgezeichneten Bereich ergänzen? Oder gibt es hier evtl. eine wesentlich einfachere Möglichkeit?
Vielen Dank für die Unterstützung.
MfG, Tom