Hallo,
inzwischen hab' ich es selbst gelöst ... hier mein Code:
Sub Zellen_Sperren()
Application.ScreenUpdating = False
ThisWorkbook.Sheets("Zeiten Gesamt").Activate
With ThisWorkbook.Sheets("Zeiten Gesamt")
Set raZelle = .Range("Start_SpalteG")
ErsteZeile = .Range(raZelle.Address).Row
ErsteSpalte = .Range(raZelle.Address).Column
LetzteZeile = .Cells(Rows.Count, ErsteSpalte).End(xlUp).Row
LetzteSpalte = ErsteSpalte
For Zeilennummer = ErsteZeile To LetzteZeile
intRowFormula = ThisWorkbook.Sheets("Zeiten Gesamt").Cells(ErsteZeile, ErsteSpalte).Offset(1, 0).Row
If ThisWorkbook.Sheets("Zeiten Gesamt").Cells(Zeilennummer, ErsteSpalte) = 1 Then
ZellschutzAktivieren Zeilennummer
End If
Next
End With
Application.ScreenUpdating = True
End Sub
Private Sub ZellschutzAktivieren(Zeilennummer As Long)
For Each ws In ThisWorkbook.Sheets
If ws.Name <> "Zeiten Gesamt" Then
ws.Unprotect Password:="test"
ws.Rows(Zeilennummer).EntireRow.Locked = True
ws.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Next
End Sub
Vielleicht kann's mal jemand brauchen ...
Gruß
Jojo