Password Protect Worksheets/Tabs

[mdberg]

I have an Excel 2007 document with various worksheets/tabs, several of which I would like hidden and password protected. I do want to present 2 tabs to the user, but hide the rest. Is there a way to hide tabs and create a password to view (or un-hide) the tabs?

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
I want the user to be able to:
- Open the document and view only the tabs which are not hidden
- Not be able to un-hide tabs without a password

<o></o>
Any advice would be helpful. Thanks!

 

[VoG]

Hello and welcome to MrExcel.

To protect a sheet, right click its tab and select Protect Sheet. Then right click again and select Hide.

Note that Excel passwords are very easy to crack.

 

[dave3009]

Hi Michael.

Probably the best thing for you would be to make the sheets 'very hidden' this does require the use of VBA and the syntax is

Sheets("MySheet").Visible = xlSheetVeryHidden

This will stop it from being viewed, you would then apply a password to your VBA Project to ensure the users were not aware that there were hidden sheets. It's not 100% secure (like most things in Excel) but so long as your users aren't determined to screw your sheets you should be fine.

 

[mdberg]

Thanks- I think this should work, it sounds like what I'm looking to do.

I know that the passwords in Excel aren't the most secure, but we are presenting some electronic documents to a third party in our office (on our laptops with internet/CD/USB drives/select programs disabled) and need the password just incase. It's mostly to show them that "your not supposed to see this part just yet!"

 

[dave3009]

Well a code to unhide the sheets would look something like

Sub UnhideSheets()
Dim pWord As String
Dim ws As Worksheet
pWord = InputBox("Please enter password to unhide sheets")
If pWord = "MyPassword" Then
    For Each ws In ActiveWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws
End If
End Sub

And could be applied to either a forms or activeX control

The code to hiden them would go something along the lines of

Sub HideSheets()
Dim ws As Worksheet
Dim pWord As String
pWord = InputBox("Enter Password")
If pWord <> "Password" Then Exit Sub
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name = "Sheet1" Or ws.Name = "Sheet2" Then GoTo 0
            ws.Visible = xlSheetVeryHidden
0
    Next ws
End Sub