Simple Macro Help

[kwesmc]

Hi,
I need help with a simple macro I wrote. What I am trying to accomplish is to make sure any sheet a user copies to the workbook with any random worksheet name, it stays protected to make sure the code jumps any protected cell to the unprotected cells for input. Below is the code
Thanks in advance,
Ken Mc



Private Sub Workbook_Open()
Dim WB As Workbook
Set WB = ThisWorkbook
WB.Protect
WB.EnableSelection = xlUnlockedCells
End Sub

[SamT]

What I am trying to accomplish is to make sure any sheet a user copies to the workbook with any random worksheet name, it stays protected to make sure the code [Unknown Word] any protected cell to the unprotected cells for input

[kwesmc]

Sam,
Did you mean to reply to my post? I didn't see any text.
Thanks,
Ken Mc

[SamT]

No text at all? That's strange. I used the Quote Tags to paste something from your post.

See Below:

You said: "What I am trying to accomplish is to make sure any sheet a user copies to the workbook with any random worksheet name, it stays protected to make sure the code [Unknown Word] any protected cell to the unprotected cells for input"

[kwesmc]

Well, I have no idea why your code didn't come through. I didn't understand what you were saying there, but thanks for trying.
Ken Mc

[SamT]

All I have said so far, in so many words, is "I don't understand what you want."

"Jump" is a nonsense word in the context of VBA. I'm not guessing what it means.

[Paul_Hossler]

if you're trying to protect all sheets, then something like this

NB: this will only protect sheets that are in the workbook when it's opened, not if the user adds some interactively





Option Explicit

Private Sub Workbook_Open()
Dim WS As Worksheet

For Each WS In ThisWorkbook.Worksheets
WS.Protect
WS.EnableSelection = xlUnlockedCells
Next

End Sub

[kwesmc]

Thanks Paul. That did the trick. I will mark solved.
I also appreciate you not being so judgmental like some on this forum. I will add to your reputation.
Regards,
Ken Mc

[SamT]

Paul,

Good guess.

Ken,

I bow to your judgement.