Vba in excel to locked entire colums

[vbacoder12]

Hi ,

I have been unsuccessfully writing a vba to locked the cells of multiple columns based on a date. Any suggestions or code that can be provided would be great

 

[vbacoder12]

That IF statement is not valid VBA code and will return an error.

I would also recommend moving the unprotect step under your IF statement.
Otherwise, if the IF statement is NOT met, you are unlocking the worksheet and leaving it unlocked, which I don't think is what you want.

I think this should do what you want in an efficient manner:

Private Sub Workbook_Open()

    If Date > DateSerial(2024, 9, 6) Then
        ActiveSheet.Unprotect Password = ""
        Range("a:d").Locked = False
        Range("e:g").Locked = True
        ActiveSheet.Protect Password = ""
        ThisWorkbook.Save
    End If

End Sub

I want to keep it unlocked until that date so I moved up the unprotect statement. But when I try to enter the password to unprotect it. I am getting this error. The password you supplied is not correct.verify that the caps lock key is off and be sure to use the correct capitalization.
I am using the correct password so not sure the issue

 

[Joe4]

Small update:

If there is no password, you can just use:

        ActiveSheet.Unprotect Password

and

       ActiveSheet.Protect Password

But if there is, it needs to be := and not just =, i.e.

        ActiveSheet.Unprotect Password:="password"

and

       ActiveSheet.Protect Password:="password"