Protecting a Cell, from input but allow radio button commend to populate the field with the user id and timestamp

Carolynne Donohue
Carolynne Donohue used Ask the Experts™
I want to protect a cell from editing but allow the cell to be populated with a radio command button that populates the cell with the user id and timestamp.  a pop up message appears when the cell has been populated (in my case approving the form).  I can certainly lock the cell but then the radio button doesn't work,  what do I need to add on the front end of marco below?

Sub Product()

  UserName = Environ("username")
    ActiveCell.FormulaR1C1 = UserName
    ActiveCell.FormulaR1C1 = " " & Now

    x = UCase(Range("$i$5").Value)
    y = UCase(Range("$i$3").Value)
    If x = y Then

    MsgBox "ERROR - APROVER ID ERROR" & vbNewLine & vbNewLine & "Product Approver ID must be different then Sales Approver ID"

    ActiveCell = vbNullString
    ActiveCell = vbNullString
    Exit Sub
    End If

    MsgBox "Approved"
End Sub
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Top Expert 2016

You could protect your sheet with UserInterfaceOnly = True so that macros still work
for reference

Top Expert 2016

A solution

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial