If Abfrage funktioniert nicht
20.05.2008 15:10:30
Köhler
Kann mir jemand weiterhelfen?
Sub Button1_Click()
If Sheets("sheet1").cells(1,1).Locked = True Then MsgBox ("already locked") Else
Sheets("sheet1").cells.Select
Selection.Locked = True
End If
End Sub
Anzeige