Can You Help With This Code

[rockyw]

I want to protect sheet 2 (renamed Held) with a password. I got this but I can not make it work. I tried in a Module, sheet 1 and 2. Do I have to change this because I renamed my sheet? Thanks

With Sheet2
    .Protect Password:="wlw"
    .Visible = xlSheetVeryHidden
End With

 

[gsistek]

Switch Sheet2 with Sheets("Name of Sheet")
(keep the quotes around the name of your sheet)

 

[rockyw]

It still will not work. Should this be in a module, or sheet 2?

Sheets "Held"
    .Protect Password:="wlw"
    .Visible = xlSheetVeryHidden
End With

Is this right? Thanks for the help

 

[Smoakstack]

With Sheets "Held"
.Visible = xlSheetVeryHidden
.Protect Password:="wlw"
End With

Almost

 

[gsistek]

With Sheets("Held")
    .Protect Password:="wlw"
    .Visible = xlSheetVeryHidden
End With

 

[rockyw]

Sorry
I put that in a Module, now I get an (Invalide outside procedure) errer?

With Sheets("Held")
    .Protect Password:="wlw"
    .Visible = xlSheetVeryHidden
End With

Thank you for the help.

 

[gsistek]

Sub HideSheet ()
 
With Sheets("Held")
    .Protect Password:="wlw"
    .Visible = xlSheetVeryHidden
End With
 
End Sub

 

[rockyw]

I get no Error, but it will not work. I can open sheet 2 (Held) without a password. So sould this be in sheet one, workbook, or a module? Thanks

 

[gsistek]

Put the code into Module 1. Go to the worksheet and press Alt+F8. Choose the HideSheet Macro and press Run.

 

[rockyw]

OK that works, but how do I unhide it? Do I have to go into the view code area and reset sheet 2? Even the unhide option is gone. Thanks