Bereiche in TB schützen
26.01.2022 15:26:00
Andrea
ich möchte in mehreren Tabellenblättern (alle gleicher Aufbau) die dortigen Formeln schützen.
Ich hatte dieses Thema hier schon einmal und habe auch eine Lösungsmöglichkeit bekommen, die auch geht.
Nun habe ich einen weiteren VB-Code, der aber beim Abarbeiten einen Fehler liefert. Und zwar an der Stelle: rngBereich.Locked = False (Zeile 8)
Hier der ganze Code:
Sub Formel_sperren()
Dim ws As Worksheet
Dim rngBereich As Range
For Each ws In Worksheets
'If ws.Name Like "G1*" Then
With ws
Set rngBereich = Union(.Range("L4:BG10"), .Range("F13:F56"), .Range("H13:I56"), .Range("K13:K56"))
rngBereich.Locked = False
rngBereich.FormulaHidden = False
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
'End If
Next ws
End Sub
Den Code habe ich in einem Modul gespeichert.
Warum läuft das Makro nicht durch? An welcher Stelle muss ich etwas ändern, bitte.
Vielen Dank für eure Hilfe
Andrea