Macro Unlock and unhide sheets with Password

[PhillB]

Hi. I have a macro to Password protect and hide sheets but cannot get one to unlock and unhide them to work. I am using the code below to lock the workbook and hide the sheets

Sub Lock1()
Sheets("2018").Select
ActiveWindow.SelectedSheets.Visible=False
Sheets("Comments").Select
ActiveWindow.SelectedSheets.Visible-False
Sheets("Sheet1").Select
Range ("D8").Select
ActiveWorkbook.Protect password="holidays",Structure:=True, Windows:=True
Sheets("Sheet1").Select
End Sub

Can anyone help with the unlock/unhide code?
Thanks

 

[jbesclapez]

You wrote the second FALSE with a minus instead of an equal

 

[jbesclapez]

Sub Lock1()
Sheets("2018").Visible = False
Sheets("Comments1").Visible = False
ActiveWorkbook.Protect Password = "holidays", Structure:=True, Windows:=True
End Sub

 

[PhillB]

Hi. Thanks. Just a typing error for this code as it wouldn't let me copy and paste for some bizzare reason. The lock code works fine, it's just the unlock one that I cannot work out.

 

[Fluff]

How about

Sub Lock1()
ActiveWorkbook.Unprotect Password = "holidays"

Sheets("2018").Visible = True
Sheets("Comments").Visible = True
Sheets("Sheet1").Select
Range("D8").Select
End Sub

 

[PhillB]

This throws up an error as it is trying to unlock before the password has entered. This is the macro I have been trying to use but this unlocks if anything is entered as a password.

On Error GoTo ErrorOccured
    Dim pwd1 As String, ShtName As String
    pwd1 = InputBox("Please Enter the password")
    If pwd1 = "" Then Exit Sub
    ShtName = "Workbook as a whole"

    ActiveWorkbook.Unprotect Password:="holidays"
    Sheets("2018").Visible = True
Sheets("Comments").Visible = True
Sheets("Sheet1").Select
Range("D8").Select
Exit Sub
    
ErrorOccured:
    MsgBox "Workbook could not be UnProtected - Password Incorrect"
    Exit Sub

End Sub

 

[RoryA]

Your locking code is incorrect - it's actually applying the password "False" (or the regional equivalent). The code should read (note the colon added):

ActiveWorkbook.Protect password:="holidays",Structure:=True, Windows:=True