Unable to Unhide Columns

[reyrey]

Hello all!

Im getting the following error below

"Unable to set the Hidden property of the Range class"

Any idea why im getting error?

Sub UnlockSheet()

Dim password As Variant
              password = Application.InputBox("Enter Password", "Password Protected")
    Select Case password
                  Case Is = False
                      
                  Case Is = "MyPassword"
                                                     
                  Case Else
                      MsgBox "Incorrect Password"
    End Select

Columns.EntireColumn.Hidden = False

End Sub

 

[Fluff]

I suspect it's because, you haven't unlocked the sheet.

 

[reyrey]

But I thought when running the code it unlocks the code? Shouldn't it

 

[Fluff]

To unlock the sheet try

Sub UnlockSheet()
   
   Dim PassWrd As Variant
   
   PassWrd = Application.InputBox("Enter Password", "Password Protected")
   If PassWrd = "MyPassword" Then
      Sheets("[COLOR=#ff0000]Sheet1[/COLOR]").Unprotect PassWrd
      Sheets("[COLOR=#ff0000]Sheet1[/COLOR]").Columns.EntireColumn.Hidden = False
   Else
      MsgBox "Incorrect Password"
   End If
   
End Sub

Change sheet name in red to suit