How to protect different cells using VBA

[alinpion]

Hello!

I want to protect different cells from one of my sheets (tab) and the VBA code that I have is not working

Sub ProtectTheSheet()
Cells.Locked = False
Range("A2:A100,C2:C100,D2:D100,J2:J100,K2:K100").Locked = True
ActiveSheet.Protect
End Sub

Can you tell me where is the error!

 

[Jon von der Heyden]

Works for me.

What error do you encounter?

 

[alinpion]

Doesn't give any error just doesn't work.

The entire VBA code of the sheet is this:

Private Sub Worksheet_Activate()
Dim pwd As String: pwd = "password"
Cells(Rows.Count, Columns.Count).Activate
If Application.InputBox("Type the password", "Access Password", "*******") <> pwd Then
Sheets("Sheet1").Activate
MsgBox "Wrong Password"
Else
Range("A1").Activate
End If
End Sub


Sub ProtectTheSheet()
Cells.Locked = False
Range("A2:A100,C2:C100,D2:D100,J2:J100,K2:K100").Locked = True
ActiveSheet.Protect
End Sub

 

[alinpion]

Sorry!

My mistake! All is working! I just needed to close and open the file!

 

[Jon von der Heyden]

You need to call your ProtectTheSheet sub routine in your Worksheet activate event code.

If Application.InputBox("Type the password", "Access Password", "*******") <> pwd Then
    Sheets("Sheet1").Activate
    MsgBox "Wrong Password"
Else
    Call ProtectTheSheet
    Range("A1").Activate
End If