Поле ввода, запрашивающее второй ввод данных для хранения данных, можем ли мы сохранить его при первой записи?

Question

Я пытаюсь поместить текстовое поле activex в ячейку (B23), которая скрывает текстовую ячейку с защищенными данными.В текстовом поле установлен пароль *.Когда я помещаю функцию ввода в текстовое поле, оно появляется, когда они начинают печатать, затем, когда я нажимаю «ОК», окно очищается и просит меня повторно ввести данные, а затем сохраняет в B23.Есть ли способ заставить это работать в первый раз, или если во втором всплывающем окне есть надпись «пожалуйста, проверьте вашу запись»?

Я пытался связать ячейку с B23 и снять диапазон, но данные не сохраняются.

Private Sub TextBox1_Change()
  Dim response As String
  response = InputBox(Prompt:="Please enter the EIN/Tax Payer ID with no dashes or spaces. For security purposes this information will disappear after entry and be stored securely.", Title:="Tax Payer Data", Default:="Enter Tax Payer ID here")
   Range("B23").Value = response
   Exit Sub
End Sub

Есть ли способ заставить это работать в первый раз, или если во втором всплывающем окне есть надпись "пожалуйста, подтвердите свою запись"?Я пытаюсь скрыть конфиденциальные данные (EIN, номер банковского счета и т. Д.) После их ввода, но сохраняю начальные «0» и лист Excel уже отформатирован, чтобы показывать нули.Итак, будем ли мы придерживаться текстового поля над ячейкой или что-то другое, я открыт для всего.

Answer 1

Событие GotFocus должно помочь вам

Private Sub TextBox1_GotFocus()
    Dim response As String
  response = InputBox(Prompt:="Please enter the EIN/Tax Payer ID with no dashes or spaces. For security purposes this information will disappear after entry and be stored securely.", Title:="Tax Payer Data", Default:="Enter Tax Payer ID here")
   Range("G1").Value = response
   TextBox1.Text = response
   Exit Sub
End Sub