Password Protect Worksheet
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
|