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
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
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