Small amendment needed in code

[Ironman]

Hi

The below runs with a Workbook Open event to allow VBA to modify a protected sheet without unprotecting the sheet:

Private Sub Workbook_Open()

 With ThisWorkbook
   Call UnprotectWorksheet(wks:=.Sheets("Training Log"))
   Call ProtectWorksheet(wks:=.Sheets("Training Log"))
 End With

I would be very grateful if you could amend this code so that another sheet (named "Daily Tracking") can also be temporarily unprotected.

Many thanks!

 

[Yongle]

I am guessing that the obvious amendment did not work for you
So please post the 2 procedures below so that we can see what is going on
UnprotectWorksheet
ProtectWorksheet

 

[Ironman]

Thanks for replying Yongle.

You're overestimating my ability as I have virtually no knowledge of VBA so I haven't made any amendments. I'm sure the obvious will work.

Thanks

 

[Yongle]

I still want to see them

 

[Ironman]

 With ThisWorkbook
   Call UnprotectWorksheet(wks:=.Sheets("Training Log"))
   Call UnprotectWorksheet(wks:=.Sheets("Daily Tracking"))
   Call ProtectWorksheet(wks:=.Sheets("Training Log"))
   Call ProtectWorksheet(wks:=.Sheets("Daily Tracking"))
 End With

Works a dream. Simples.

Thanks for your help.

 

[Michael M]

Did I miss something ....

Did you self solve ???

 

[Ironman]

Hi Michael - yes I did. I tried combining the second sheet name with the first, separated by a comma and thought that would work, but it didn't. I then thought a bit longer about and came to the basic conclusion that maybe VBA isn't that clever so I just tried repeating the 2 rows with the second sheet name and it worked.

Not sure why that wasn't suggested; I did say I knew nothing about VBA so I impressed myself a bit there.

We both know that the lengthy code that runs when the workbook opens affects 2 worksheets - all the above code does is unprotect both sheets to let the code run in its entirety - posting the code would have been pointless.

 

[Yongle]

Looks like I was not overestimating your ability after all
Glad you got it sorted.