Hi,

It seem like have two Private Sub Workbook_Open() in the ThisWorkbook Module make both code not working.
I tried to put them both under one Private but not working also. One of the Private has Option Explicit.

Here is the code:

Private Sub Workbook_Open()
Application.OnTime Now() > DateValue("5/22/2015"), "Protectsheets"
End Sub
Option Explicit

Private Sub Workbook_Open()
    Call ToggleCutCopyAndPaste(False)
End Sub
Is there a solution to this?

Thanks