Disable selection on open?!

**jameztown** · 01-08-2012, 06:49 PM

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!

**im_kaushal** · 01-09-2012, 03:37 AM

Hi James,

Changes need to be made in your timesheet.

1. Go to the sheet - TIMECARD
2. Unprotect it.
3. Select the merged cell
4. Right Click
5. Select Format Cells
6. Go to protection Tab
7. Remove Check mark from the option - Locked

This should do what you need.

Let me know if you are able to make it work for you otherwise share the workbook. I will make the changes.

Rgds, Kaushal
Delhi, India

**jameztown** · 01-09-2012, 09:33 AM

Thanks for your reply! Unfortunately, I'm looking for VBA code that will allow Managers to type in a signature upon opening the file. I want everything else restricted (as it currently is) to protect the contents of the timesheet and ensure everything is entered correctly by the user. I've attached the time sheet to help clarify. I just want the Manager to be able to sign the file without clicking 'New Start'. Any ideas?

**im_kaushal** · 01-10-2012, 12:11 AM

Hi James,

Please find the attached timesheet. I have made the required changes in the code.

New_time_sheet_fix.xls

let me know if it works for you.

Rgds, Kaushal
Delhi, India