We help IT Professionals succeed at work.

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

123 Views
Last Modified: 2017-04-11
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")
   
    Range("$i$5").Select
    ActiveCell.FormulaR1C1 = UserName
    Range("$j$5").Select
    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"
   

    Range("$j5").Select
    ActiveCell = vbNullString
    Range("$i$5").Select
    ActiveCell = vbNullString
   
    Exit Sub
   
    End If

       
    MsgBox "Approved"
End Sub
Comment
Watch Question

CERTIFIED EXPERT
Top Expert 2016
Commented:
This problem has been solved!
(Unlock this solution with a 7-day Free Trial)
UNLOCK SOLUTION
CERTIFIED EXPERT
Top Expert 2016

Commented:
A solution