This modification of your WorksheetChange macro will unprotect the sheet allowing the insertion of the date then it will reactivate the sheet protection.
You must set up all cells of your sheet except column A to be Unprotected then you set the sheet protection. This will allow users to add data in any cells except in column A which will always be protected. Will this work for you?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Columns("B:B")) Is Nothing Then
Application.EnableEvents = False
ActiveSheet.Unprotect
Target.Offset(0, -1).Value = Format(Now, "mm.dd.yyyy hh:mm:ss")
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
Application.EnableEvents = True
ActiveCell.Select
End If
End Sub
Bookmarks