merging two codes into one

[cybrkada]

Help, How do I merge these two Workbook_Open() into one?

Private Sub Workbook_Open()
    ''''''''''''''''''''''''''''''''''''''''''''''''
    ' Unhide the sheets. This Workbook_Open event
    ' will run only if macros are enabled. If macros
    ' are not enabled, this code will not run and
    ' only the introduction sheet will be visible.
    ''''''''''''''''''''''''''''''''''''''''''''''''
    UnHideSheets

End Sub

Private Sub Workbook_Open()

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
     If Left(ws.Name, 2) < Format(Date, "mm") Or (Left(ws.Name, 2) = Format(Date, "mm") And Right(ws.Name, 2) < Format(Date, "dd")) Then
               ws.Protect Password:="abc"
          Else
               ws.Unprotect Password:="abc"
               ws.Cells.Locked = True
          End If
     Next
End Sub

[oeldere]

Did you already tried this one?

Private Sub Workbook_Open()

Dim ws As Worksheet

UnHideSheets

For Each ws In ThisWorkbook.Worksheets
     If Left(ws.Name, 2) < Format(Date, "mm") Or (Left(ws.Name, 2) = Format(Date, "mm") And Right(ws.Name, 2) < Format(Date, "dd")) Then
               ws.Protect Password:="abc"
          Else
               ws.Unprotect Password:="abc"
               ws.Cells.Locked = True
          End If
     Next
End Sub

[cybrkada]

I tried your code, and there's no more debug error. However, it looks like the second code doesn't work.
The first one unhides all the sheets after macro is turned on, the second event locks cells if sheetname (mmdd format) is earlier than today.

Please help!

[oeldere]

However, it looks like the second code doesn't work.

Did it work on it's own (without the change)?

[cybrkada]

Oppss it worked now! I don't know what happened! haha, still your codes

[cybrkada]

Yes, they both work on their own before, but i want to merge them! :-(

[cybrkada]

Sigh! :-(
it comes and goes, sometimes it will work, sometimes not, especially when adding new sheets :-(

[oeldere]

Since you use this statement

Private Sub Workbook_Open()

It will excecute when you open the file.