Sub de40878
oBereiche = ThisComponent.Sheets().getByName( "Aufstellung" ).CellFormatRanges()
For i = 0 to oBereiche.Count - 1
If oBereiche.getByIndex(i).CellProtection.isLocked() = FALSE Then
' mach was
End If
Next i
End Sub
Hilft Dir das?
Cheers Winfried
aktuell: LO 5.3.5.2 30m0(Build:2) SUSE rpm, unter Linux openSuSE Leap 42.3 x86_64/KDE5 DateTime2 Einfügen von Datum/Zeit/Zeitstempel (als OOo Extension)
