How do I hide a worksheet in Excel and use a password to un-hide the worksheet?

To hide:

Sub Hide_Ws()
Sheets("Sheet1").Visible = xlSheetVeryHidden
End Sub

-------------

To unhide:

Sub Unhide_Ws()

Dim psword As String

psword = InputBox("Enter password to unhide worksheet.")
If psword = "" Then Exit Sub
If psword = "1234" Then
Sheets("Sheet1").Visible = True
Else
MsgBox "Incorrect password."
End If
End Sub

---
Note that when hiding the worksheet sheet, it sets it
at "veryhidden", meaning that it cannot be unhidden from
the Format menu. Password is currently set to "1234".

HTH
Jason
Atlanta, GA

>-----Original Message-----
>How do I hide a worksheet in Excel and use a password to
un-hide the worksheet?
>.
>

Hi

Additionally, you have to protect the VBA-project with password too -
otherwise the user can activate VBA editor and change worksheets Visible
propertie manually back to xlSheetVisible witout any password.


--
Arvi Laanemets
(When sending e-mail, use address arvil<At>tarkon.ee)



"Jason Morin" <(E-Mail Removed)> wrote in message
news:05f201c4d825$eaa7edc0$(E-Mail Removed)...
> To hide:
>
> Sub Hide_Ws()
> Sheets("Sheet1").Visible = xlSheetVeryHidden
> End Sub
>
> -------------
>
> To unhide:
>
> Sub Unhide_Ws()
>
> Dim psword As String
>
> psword = InputBox("Enter password to unhide worksheet.")
> If psword = "" Then Exit Sub
> If psword = "1234" Then
> Sheets("Sheet1").Visible = True
> Else
> MsgBox "Incorrect password."
> End If
> End Sub
>
> ---
> Note that when hiding the worksheet sheet, it sets it
> at "veryhidden", meaning that it cannot be unhidden from
> the Format menu. Password is currently set to "1234".
>
> HTH
> Jason
> Atlanta, GA
>
> >-----Original Message-----
> >How do I hide a worksheet in Excel and use a password to
> un-hide the worksheet?
> >.
> >

Yep, you're absolutely right. Forgot to mention that.
Jason
>-----Original Message-----
>Hi
>
>Additionally, you have to protect the VBA-project with
password too -
>otherwise the user can activate VBA editor and change
worksheets Visible
>propertie manually back to xlSheetVisible witout any
password.
>
>
>--
>Arvi Laanemets
>(When sending e-mail, use address arvil<At>tarkon.ee)
>
>
>
>"Jason Morin" <(E-Mail Removed)> wrote
in message
>news:05f201c4d825$eaa7edc0$(E-Mail Removed)...
>> To hide:
>>
>> Sub Hide_Ws()
>> Sheets("Sheet1").Visible = xlSheetVeryHidden
>> End Sub
>>
>> -------------
>>
>> To unhide:
>>
>> Sub Unhide_Ws()
>>
>> Dim psword As String
>>
>> psword = InputBox("Enter password to unhide worksheet.")
>> If psword = "" Then Exit Sub
>> If psword = "1234" Then
>> Sheets("Sheet1").Visible = True
>> Else
>> MsgBox "Incorrect password."
>> End If
>> End Sub
>>
>> ---
>> Note that when hiding the worksheet sheet, it sets it
>> at "veryhidden", meaning that it cannot be unhidden from
>> the Format menu. Password is currently set to "1234".
>>
>> HTH
>> Jason
>> Atlanta, GA
>>
>> >-----Original Message-----
>> >How do I hide a worksheet in Excel and use a password
to
>> un-hide the worksheet?
>> >.
>> >
>
>
>.
>