Внесение изменений в исходный код

[Djars]

Задача следующая: появляется надпись вроде: введите вашу фамилию; затем это сохраняется и при каждом проигрывании макроса всплывает приветствие.
Возможно ли это и если да, то как.
Заранее спасибо за ответ

[ALX_2002]

Вроде написал. Надеюсь подойдёт. Сейвит в реестр.

Код: Выделить всё

Dim USERNAME As String
Private Sub Form_Load()
On Error Resume Next
USERNAME = GetSetting("INFO", "USERS", "NAME", "")
If USERNAME <> "" Then
MsgBox "Приветствую вас " & USERNAME
Else
TRYAGAIN:
USERNAME = InputBox("Введите имя и фамилию")
If USERNAME = "" Then GoTo TRYAGAIN
SaveSetting "INFO", "USERS", "NAME", USERNAME
End If
End Sub


[Djars]

Благодарю