Worksheets.Activate error

[Billdub417]

Hello,

Hopefully, someone can help, it seems trivial but I can't see what's going wrong. Thanks in advance!

I have an excel document with the coding as follows (to password protect each sheet on opening and then finish back on the Home page at the end):

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect Password:="abc123", AllowFiltering:=True, UserInterfaceOnly:=True
Next ws
Worksheets("Home").Activate
Application.ScreenUpdating = True
End Sub

This works fine on my local PC, however, when I sent this spreadsheet to someone and they enabled editing, they are receiving an error message - Run-time error '1004': Activate method of Worksheet class failed.

This is then pointing to the "Worksheets("Home").Activate" line

Any ideas why this would be?

 

[RoryA]

Did the workbook open in protected view? If so, you'd get that error the first time that it is enabled (you'd need to use a Workbook_Activate event instead for that case) but it should work fine after the first time.

 

[Billdub417]

Did the workbook open in protected view? If so, you'd get that error the first time that it is enabled (you'd need to use a Workbook_Activate event instead for that case) but it should work fine after the first time.

Hello RoryA,

Yes, this is coming up as protected View.

so what would I need to add in "ThisWorkbook" to stop it doing this?

thanks for your guidance

 

[Billdub417]

Hello RoryA,

Yes, this is coming up as protected View.

so what would I need to add in "ThisWorkbook" to stop it doing this?

thanks for your guidance

Sorted.... reread your earlier comment