Very Hide/ Unhide Sheets with buttons

[kayakginge]

I am trying to do the following and cannot piece it together.

On a password protected tab called "Advanced Tab"

Have three buttons or circles that do the following.

button 1 - unhide all veryhidden sheets

button 2 - veryhidden 5 sheets called "S2 R", "S2 M", "S2 C", "FT", "Totals"

button 3 - password protect "Advanced Tab" with the same password as used to unlock it (ie same password every time)

If anyone could help i would be very grateful.

Many thanks in advance

 

[mrshl9898]

Sub UnhideAllSheets()


Dim ws As Worksheet


For Each ws In ActiveWorkbook.Worksheets


ws.Visible = xlSheetVisible


Next ws


End Sub




Sub VeryHidden()


Dim ws As Worksheet


For Each ws In ActiveWorkbook.Worksheets


If ws.Name = "S2 R" Or ws.Name = "S2 M" Or ws.Name = "S2 C" Or ws.Name = "FT" Or ws.Name = "Totals" Then
ws.Visible = xlSheetVeryHidden
End If


Next ws


End Sub




Sub Password()


ActiveSheet.Protect Password:="YourPassword"


End Sub