Blattschutz und Bereiche bearbeiten
01.01.2023 19:08:54
Olaf
ich bin gerade dabei das Makro mit dem Blattschutz zu erweitern.
Das Makro Blattschutz für mehrere Tabellen funzt prima.
Ich möchte jetzt mehrere Bereiche / Tabelle per Makro hinzufügen die jeder bearbeiten darf.
Die Bereiche auf jeder Tabelle sind gleich.
Wie bekomme ich die mehreren Bereiche in der Schleife abgefangen die vom Blattschutz ausgenommen sind?
Meine bisherhige Lösung für einen Bereich funzt. Nur wie bekomme ich die restlichen mit eingebunden in die Schleife?
Option Explicit
Sub Makro1()
' Makro1 Makro
Dim ws As Integer
Dim Bereich1 As Range
Set Bereich1 = Tabelle1.Range("A1:B2")
Set Bereich2 = Tabelle1.Range("A11:B12")
Application.ScreenUpdating = False
For ws = 1 To 2
Tabelle1.Range("A1:B2").Select
Selection.Locked = False
With Worksheets(ws)
.Protect Password:="", _
DrawingObjects:=False, _
Contents:=True, _
Scenarios:=False, _
AllowFormattingCells:=True, _
AllowFormattingColumns:=True, _
AllowFormattingRows:=True, _
AllowInsertingColumns:=True, _
AllowInsertingRows:=True, _
AllowInsertingHyperlinks:=True, _
AllowDeletingColumns:=True, _
AllowDeletingRows:=True, _
AllowSorting:=True, _
AllowFiltering:=True, _
AllowUsingPivotTables:=True
End With
Next ws
Application.ScreenUpdating = True
End Sub