unhiding worksheet

[KennyA]

I have a macro the will hide a sheet but will not unhide the sheet. I also get Run-Time error 1004 Application-defined or object-defined error.
When stepping through the code it actually skips past: Sheets("PriceTables").Visible = True

Using excel 365

Sub SheetVisibility()
' Defines variables
Dim pWord As String


' Specifies the desired password response
pWord = "password"

' If the user enters the correct password in the input box then...
If InputBox("Please enter password", "Enter Password") = pWord Then
' If PriceTables Sheet is very hidden then...
If Sheets("PriceTables").Visible = xlVeryHidden Then
' Unhide PriceTables Sheet
Sheets("PriceTables").Visible = True
' Else if PriceTables Sheet is not very hidden then...
Else
' Make PriceTables Sheet very hidden
Sheets("PriceTables").Visible = xlVeryHidden
End If
' Else if the user enters the wrong password in the input box then...
Else
' Display an error stating the password was wrong
MsgBox "That is not the correct password", vbOKOnly, "Incorrect Password"
End If
End Sub

 

[Fluff]

It should be xlSheetVeryHidden

 

[KennyA]

I made it xlSheetVeryHidden but all of the same problems still exist

 

[Fluff]

If it skips past this line Sheets("PriceTables").Visible = Truethen sheet is not very hidden.

 

[jolivanes]

Try this

If Sheets("PriceTables").Visible = xlSheetVeryHidden Then Sheets("PriceTables").Visible = xlSheetVisible

 

[KennyA]

Fluff, I looked and since I can't unhide the hidden sheet from the <Home<Format<Hide & Unhide menu the sheet has to be very hidden correct? Unhide is greyed out.

Jolivanes, I made your change and all the original problems still persist.

Is there some way I can change the code to simply show the hidden sheet?

 

[Jaafar Tribak]

Do you have the workbook structure protected ? (Review RibbonTab > Protect Workbook)

 

[Fluff]

In the VB Editor click on the sheet in project window & look at the properties, what does it say against visible?

 

[KennyA]

0 - xlSheetHidden

 

[Fluff]

In that case it sound like Jaafar Tribak is right, in that the workbook is protected.
If it is protected does it need a password to unlock it?