viewer code for a protected worksheet

[George T]

I needs is this viewer code to work in a sheet this is protected. I have certain columns that are protected and other columns user can modify. column C is unprotected and column A is unprotected.


Private Sub Worksheet_Change(ByVal Target As Range)

' Automatically place date/time stamp in cells A12:A120 when a cell in C12:C120 is manually updated
If Not Intersect(Target, Range("C12:C120")) Is Nothing Then
Target.Offset(0, -2) = Now
End If

End Sub

 

[Joe4]

If columns A and C are "unprotected" (meaning that the sheet is "protected" but these columns are not "locked"), then this code should work fine.

Can you confirm that all the cells in these ranges are, indeed, not locked?
(http://www.officearticles.com/excel/cell_locking_in_microsoft_excel.htm)

 

[George T]

I am sorry column C is not protected and column A is protected and locked.

 

[Joe4]

Then you will have to add VBA code to that script that when the condition is met, it will unprotect the worksheet temporary so it can update the value in column A, then re-protect it afterwards to lock it again.

You should be able to get the code needed to protect/unprotect your worksheet by turning on the Macro Recorder and record yourself performing those steps manually.