What is the trigger for password protecting a worksheet.

[USAMax]

I have worksheet one that I want to be read only for everyone but the second worksheet is superfluous I need to hide it. I password protect the first sheet everyday and I would like to know the code that will detect when the sheet is protected so it can hide the second sheet and when the first sheet is unprotected I want to unhide the second worksheet.

I can code most of what I need but I cannot find the code to detect the password trigger.

Thanks,

 

[sijpie]

Why don't you hide it when you do the password protect?
Write a little macro :

Sub ProtectSheet()
    Dim sPW1 As String, sPW2 As String
   
    Do
        sPW1 = InputBox("Protect Password Please", "Protect Sheet1")
        sPW2 = InputBox("Repeat Password Please", "Protect Sheet1")
    While sPW2 <> sPW1
    
    Sheet1.Protect Password:=sPW1
    Sheet2.Visible = xlSheetHidden
   
End Sub

 

[USAMax]

Thank you sijpie, I probably would have thought of something like this but actually I am doing this for someone who has been protecting his worksheet for many years and I didn't want to disrupt his routine. He is use to the standard way of password protecting his worksheet and I thought there might be a trigger to detect when he is protecting the worksheet so I could hid the worksheet and unhide the other worksheet when he removes the password protection.

Thank you again,

 

[USAMax]

Why don't you hide it when you do the password protect?
Write a little macro :

Sub ProtectSheet()
    Dim sPW1 As String, sPW2 As String
   
    Do
        sPW1 = InputBox("Protect Password Please", "Protect Sheet1")
        sPW2 = InputBox("Repeat Password Please", "Protect Sheet1")
    Loop While sPW2 <> sPW1
    
    Sheet1.Protect Password:=sPW1
    Sheet2.Visible = xlSheetHidden
   
End Sub

Hey Sijpie, it looks like your idea was a success. I did not think they would like the idea but as it was the only option I presented it and they liked it.

Thank you,