Penso ti riferisca a questo:
Private Sub DataGrid1_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
If MsgBox("Sei Sicuro di Voler AGGIORNARE il dato?", vbQuestion + vbYesNo, "Uscita") = vbNo Then
Cancel = 1
End If
End Sub