in meinem Makro wird der Blattschutz einmal ent- und gesperrt. Dabei sollten eigentlich die Funktionen Zellen formatieren und Zeilen formatieren nicht entfernt werden!
Leider werden diese Einstellungen vom Makro immer überschrieben. Wie kann ich diese so hinterlegen, dass diese auch nach dem sperren des Blattes noch zur Verfügung stehen?
Sub NUTD()
Dim i As Integer
Dim ws As Worksheet
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
With ws
Select Case .Name
Case "Übersicht", "4410xx", "4411xx", "4412xx", "4414xx", "4416xx"
.Unprotect "XXX"
For i = 23 To 311
If .Cells(i, 19).Value "hat Wert" Then
RowShow .Rows(i).EntireRow, True
Else
RowShow .Rows(i).EntireRow, False
End If
Next i
.Protect "XXX"
End Select
End With
Next ws
End Sub