Auto Date / Time Stamp Within Single Cell Anytime Data Entered in Worksheet

[tobink]

I wrote a date/time stamp macro to auto update in a single, specified cell every time data is changed or entered in any other cell for specific worksheets in a workbook that have various other macros and functions. The code works perfectly when the sheets are NOT protected; however, it no longer functions when the worksheets are protected, giving me a "runtime error 1004"?? The following is what I have:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D3:AJ100")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range("B1").Value = Now
Application.Enable Events = True
End Sub

I am very new to this, so any help would be greatly appreciated! Thank you for your time and Happy Holidays.

-Kristin

 

[JoeMo]

Try this after you have inserted your password where noted in bold red font:

Private Sub Worksheet_Change(ByVal Target As Range)
Me.Protect Password:="your pswd here", userinterfaceonly:=True
If Intersect(Target, Range("D3:AJ100")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range("B1").Value = Now
Application.EnableEvents = True
End Sub

 

[tobink]

Try this after you have inserted your password where noted in bold red font:

Private Sub Worksheet_Change(ByVal Target As Range)
Me.Protect Password:="your pswd here", userinterfaceonly:=True
If Intersect(Target, Range("D3:AJ100")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range("B1").Value = Now
Application.EnableEvents = True
End Sub

Thank you so much! This worked perfectly and has solved my problem!