mit folgendem Code lege ich für alle Register einen Benutzerbereich an.
Sub Alle_Bereiche()
Dim intAnzahl As Integer
For intAnzahl = 1 To Worksheets.Count
Worksheets(intAnzahl).Protection.AllowEditRanges.Add Title:="Test", Range:=Range( _
"A4:G27"), Password:="1"
Habe fast den ganzen Tag damit verbracht diesen Bereich wieder zu entfernen, falls neue Register angelegt werden muss vorher dieser Bereich entfernt werden, nicht geklappt und nix gefunden, nun bitte ich Euch für dieses Problem um Hilfe.
Gruß, Guesa