Checkbox for Time stamp and Lock cells

[Ashwathmv]

Hi,

I am looking for a help to create the checkbox. In the spreadheet column A1 to E1 has to be updated manually. Once the data is updated, i am looking to have a checkbox created in F column, if i tick the check box, first requirement is

1) cell A1 To E1 should get locked
2) in cell G1 tike stamp to be appeared

 

[Logit]

.
Use an ActiveX Checkbox control in F1.

Paste this in the Sheet1 module :

Option Explicit


Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        Sheets("Sheet1").Range("A1:E1").Locked = True
        Sheets("Sheet1").Range("G1").Value = Now
        Worksheets("Sheet1").Protect
    ElseIf CheckBox1.Value = False Then
        Worksheets("Sheet1").Unprotect
        Sheets("Sheet1").Range("A1:E1").Locked = False
        Sheets("Sheet1").Range("G1").Value = ""
    End If
End Sub