Unprotect work sheet error

[vbacoder12]

Hi.
I wrote the vba below to keep a workbook open until a certain date then lock it. When I try to unprotect I get "this password you supplied is not correct. Verify that the caps locks is off and be sure to use the correct capitalization.

Private Sub worksheet()
Activesheet.unprotect password ="dog98"
If Date > dateserial (2024,9,15) then
Range ("H:N").locked=TRUE
Range("A:G").locked=TRUE
Activesheet.Protect Password="dog98"
ThisWorkbook.Save
End If
End Sub

 

[Joe4]

That is not a valid event procedure:

Private Sub worksheet()

How/when, exactly are you trying to run that code?

 

[Joe4]

And as I mentioned in our other thread, those line should look like:

Activesheet.Unprotect Password:="dog98"

and

Activesheet.Protect Password:="dog98"

 

[vbacoder12]

And as I mentioned in our other thread, those line should look like:

Activesheet.Unprotect Password:="dog98"

and

Activesheet.Protect Password:="dog98"

Seems like it this code when the : is only on the protected password line. Once I added that it runs as intended.

 

[vbacoder12]

Seems like it this code when the : is only on the protected password line. Once I added that it runs as intended.

Sorry I missed the workbook open(). My apologies but seems t9 be working