Hide selective sheets with password

[RAJESH1960]

Hi Guys,
I have 6 sheets in my excel workbook. I would like 2 particular sheets to be very hidden and can be opened only by password.

 

[mumps]

Change the two sheet names and password to suit your needs.

Sub HideSheets()
    Dim ws As Worksheet
    For Each ws In Sheets(Array("Sheet1", "Sheet2"))
        ws.Protect Password:="MyPassword"
        ws.Visible = xlSheetVeryHidden
    Next ws
End Sub

 

[RAJESH1960]

Sub HideSheets()

Dim ws As Worksheet

For Each ws In Sheets(Array("DD List", "IP"))

ws.Protect Password:="12345678"

ws.Visible = xlSheetVeryHidden

Next ws

End Sub


I am getting an error. Run-time error '1004';
Method 'protect' of object'_ worksheet/ failed

 

[RAJESH1960]

Now its working.
ws.Protect Password:=12345678
As the password was a number I didn't have to write it between inverted commas.
Thanks Mumps

 

[mumps]

You are very welcome.