Password Protect Individual Tabs

[CROWBLE]

I have a spreadsheet with a list of departments and when their department is selected using the tick box on the master sheet, a sheet is unhidden to show the details relating to that department.

I need to password protect the tick box so that only those in that department are able to unhide the tabs.

The current coding is using very hidden.

I also need an administrators password so that if this is entered then all of the tabs will be unhidden.

Is this possible?

Many thanks

[alansidman]

I think that this is a good start. You will have to set each password for each tab and then use the Case Select to determine which password is used to unhide each worksheet.

http://www.vbaexpress.com/kb/getarticle.php?kb_id=380

[CROWBLE]

Hi Alan

Thank you for your help.

I have used the spreadsheet in your link as a basis as this seemed like exactly what I needed. I have another question which I would be grateful if you could help me with and I have included this below.

Many thanks

Helen

[CROWBLE]

I have managed to find this code which automatically hides all tabs apart from the main tab on closing. However, I cannot get this to run automatically, I have to run the macro. What do I need to change to get this to do that as it defeats the purpose at the moment.

Sub Auto_close()
Dim wsSheet As Worksheet
Dim wsLocked As Worksheet
Application.ScreenUpdating = False
Set wsLocked = Worksheets("Department Selector")
wsLocked.Visible = xlSheetVisible
For Each wsSheet In ThisWorkbook.Worksheets
If Not wsSheet.Name = wsLocked.Name Then wsSheet.Visible = xlSheetVeryHidden
Next wsSheet
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub



Many thanks

Helen