I have a timesheet that consists of several locked and unlocked cells. Upon open, I have selections disabled until a button is clicked. Everything works perfectly except one issue. Upon opening, I also want one merged cell to be unlocked (B52:G53). Can this function be added to this?:
Private Sub Workbook_Open()
With Sheets("TIMECARD")
.Protect "password"
.EnableSelection = xlNoSelection
End With
With Application
'disable the ESC key
.EnableCancelKey = xlDisabled
.ScreenUpdating = False
Call UnhideSheets
.ScreenUpdating = True
're-enable ESC key
.EnableCancelKey = xlInterrupt
End With
End Sub
Thanks very much for your feedback!
Bookmarks