Protection of shapes on sheet

[shawleigh17]

Hi, I added the following code to my vba code for the workbook_open module. This code was generated using a macro recorder, but now it doesn't seem to work when I move the code to the open event.

Sheets("Layout_Manager").Select
    Sheets("Layout_Manager").Protection.AllowEditRanges.Add Title:="Layout_Manager_Edit", Range:= _
        Range("B4:BC100"), Password:="xxxxxxxx"
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

I get an application error. Any suggestions.

 

[XLXRider]

Hmmm... if you're using the Workbook_open event, try this:

Private Sub workbook_open()
Application.Goto "LayoutManager"
'the rest of your code here
End Sub

Select a cell - maybe A1 - in your worksheet named Layout Manager, and name it LayoutManager or something else you might like. You won't need to select the sheet, and you won't get the Application Error.

This should solve your problem. And, remember to put the code in the ThisWorkbook module.

Regards,
XLXRider