Sub Makro1()
Dim myR As Range
With ActiveSheet
.Unprotect
.Cells.Locked = True
For Each myR In .UsedRange
If myR.Interior.ColorIndex = 6 Then
myR.Locked = False
End If
Next myR
.Protect
End With
End Sub
Sub AlleWorksheets
Dim wks as worksheet
For each wks in Activeworkbook.worksheets
With wks
usw usw
end with
End Sub
Sub Makro1()
Dim wks As Worksheet, myR As Range
For Each wks In ActiveWorkbook.Worksheets
With ActiveSheet
.Unprotect
.Cells.Locked = True
For Each myR In .UsedRange
If myR.Interior.ColorIndex = 6 Then
myR.Locked = False
End If
Next myR
.Protect
End With
Next wks
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen