Macro only fails when sheet is protected.

[GrahamP]

Hi, I have copied some code into a macro which enables me to go to a selected sheet and defaults to the top of the page. This works perfectly until I protect the selected sheet. I need the worksheets to be protected for other users. Any suggestions?

TIA, Graham


Sub MainScreen()
ThisWorkbook.Sheets("Main Screen").Activate
Application.Goto Reference:=Range("a1"), Scroll:=True
End Sub

 

[mumps]

Change the password (in red) to suit your needs:

Sub MainScreen()
    With Sheets("Main Screen")
        .Unprotect Password:="MyPassword"
        Application.Goto Reference:=.Range("a1"), Scroll:=True
        .Protect Password:="MyPassword"
    End With
End Sub

 

[GrahamP]

Thank you for the quick response, this worked for me but the only quirk was that one sheet (out of 4) did not go to the top. the issue seemed to be that it needed to view the first unlocked cell, and because my sheet did not have any unlocked cells visible at the top of the sheet, the view dropped below row 1. as soon as I unlocked a blank cell on row 1, row 1 became visible. this is more than acceptable for me, thank you again.
Cheers, Graham

 

[mumps]

You are very welcome.