Locking and unlocking all sheets with a password

[wyrm76]

Hi there!

I am trying (as a noob) to build some code which allows me to lock/unlock all sheets in my workbook with a password. I am using the following code:

Sub Lock()
pass = InputBox("Enter Pass")
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Protect Password:=pass
Next
Sheets("Totaal").Select
Range("L4").Select
With Selection.Font
.Color = -11489280
.TintAndShade = 0
End With
ActiveCell.FormulaR1C1 = "File is locked"
Exit Sub
End Sub

Sub Unlock()
On Error GoTo booboo
unpass = InputBox("Enter Pass")
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Unprotect Password:=unpass
Next
Sheets("Totaal").Select
Range("L4").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
ActiveCell.FormulaR1C1 = "File is unlocked"
Exit Sub
booboo: MsgBox "Wrong password"
End Sub

This gives me an error in the line that is highlighted above. I don't see what the problem is. The Unlock Sub seems to work...Any help WILL be appreciated!

[BadlySpelledBuoy]

Hi and welcome

You're attempting to change the font colour AFTER the sheet has been protected.

Change this line:

Please Login or Register  to view this content.

To this:

Please Login or Register  to view this content.

BSB

[wyrm76]

Thank you for helping. This however didn't solve my problem yet. It did give me an idea where to look. Your suggestion gave me the same error:

Error.jpg

[BadlySpelledBuoy]

I mocked up a file and it worked fine for me.

Could you attach a desensitized version of your file?

BSB

[wyrm76]

I don't know why, but it is working now. Thanks a lot for helping! You're the hero of the day for me!

[BadlySpelledBuoy]

Happy to help

BSB

[wyrm76]

Nevermind, problem solved.