Ken
Thanks for your help your right, it does work, although for a period of
opening the workbook it would'nt, recreated this book same code all is OK
many Thanks Michael

"Ken Johnson" wrote:


mmc308 wrote:
I currently have a macro that locks the worksheet once it is passed a month
end date so that no more data can be entered on that worksheet
The worksheet locks fine, however the user is still able to use the
unprotect feature, despite the password been entered when I ran the macro

Private Sub Worksheet_Activate()
' LockSheet After a Specified Date

Dim CheckDate As Date
Dim CurrentDate As Date

CheckDate = Range("IU1").Value
CurrentDate = Range("IV1").Value

If CurrentDate CheckDate Then

ActiveSheet.Protect Password:=Range("IV2")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection
Else

ActiveSheet.Unprotect Password:=Range("IV2")

End If

End Sub

Any advise would be appreciated
TIA

I ran your code (xl2003) and had to supply the password I typed into
IV2 for protection to be removed so the code is fine.

Ken Johnson