Private Const GWL_STYLE As Long = -16& 'для установки нового вида окна
Private Const GWL_EXSTYLE = -20& 'для расширенного стиля окна
Private Const WS_CAPTION As Long = &HC00000 'определяет заголовок
Private Const WS_BORDER As Long = &H800000 'определяет рамку формы
'Функции API, применяемые для поиска окна и изменения его стиля
#If VBA7 Then
    Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr
    Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As LongPtr) As Long
#Else
    Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function DrawMenuBar Lib "user32.dll" (ByVal hwnd As Long) As Long
#End If

Sub NoQueryClose(FormName As String)
    Dim ihWnd, hStyle
    'ищем окно формы среди всех открытых окон
    If Val(Application.Version) < 9 Then
        ihWnd = FindWindow("ThunderXFrame", FormName) 'для Excel 97
    Else
        ihWnd = FindWindow("ThunderDFrame", FormName) 'для Excel 2000 и выше
    End If
    'получаем информацию о найденном окне(стили и т.д.)
    hStyle = GetWindowLong(ihWnd, -16&)
    'убираем кнопку крестика
    SetWindowLong ihWnd, -16&, hStyle And Not &H80000
End Sub

    If Len(Dir$(ThisDocument.Path & "/" & "Data.xlsx", vbHidden)) > 0 Then
        MsgBox ("Файл существует!")
    Else
        Workbooks.add
        Application.Visible = False 'Делаем запуск приложения невидимым
        'Вставляем данные
        Worksheets(1)
        Range("A1").Value = "Фамилиё"
        Range("B1").Value = "Имя"
        Range("A1:B1").Font.Bold = True
        Range("A2").Value = "Doe"
        Range("B2").Value = "John"
        'Отключаем системные сообщения
        Application.DisplayAlerts = False
        'Сохраняем книгу
        Workbooks.SaveAs ThisDocument.Path & "/" & "Data.xlsx"
        'Включаем системные сообщения
        Application.DisplayAlerts = True
        'Закрываем книгу
        Workbooks.Quit
    End If

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

End

End Sub

If VBA.UserForms.Count = 1 Then Exit Sub

Dim Фамилия As String = txt_surname.Text

' *****************************************************************************
' ComboBox Кызы \ Оглы
'
Private Sub cbo_kz_og_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If cbo_kz_og.Text = "" Then lbl_kz_og.Visible = True
End Sub

Private Sub cbo_kz_og_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyTab Then Exit Sub
    If lbl_kz_og.Visible = True Then lbl_kz_og.Visible = False
End Sub
' *****************************************************************************
' TextBox Фамилия
'
Private Sub txt_surname_Enter()
    ВключитьРусскуюРаскладку
End Sub
Private Sub txt_Surname_Change()
    If txt_surname.Text <> "" Then txt_surname.Text = Up1Letter(txt_surname.Text)
End Sub

Private Sub txt_Surname_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If txt_surname.Text = "" Then lbl_surname.Visible = True
    txt_surname = Trim(txt_surname)
    
End Sub

Private Sub txt_surname_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyTab Then Exit Sub
    If lbl_surname.Visible = True Then lbl_surname.Visible = False
    If KeyCode = vbKeyDelete Then
        If txt_surname > "" Then
            txt_surname.Value = ""
    End If
    End If
End Sub

' *****************************************************************************
' TextBox Имя
'
Private Sub txt_name_Enter()
    ВключитьРусскуюРаскладку
End Sub
Private Sub txt_name_Change()
    If txt_name.Text <> "" Then txt_name.Text = Up1Letter(txt_name.Text)
End Sub

Private Sub txt_name_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If txt_name.Text = "" Then lbl_name.Visible = True
End Sub

Private Sub txt_name_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyTab Then Exit Sub
    If lbl_name.Visible = True Then lbl_name.Visible = False
    If KeyCode = vbKeyDelete Then
        If txt_name > "" Then
            txt_name.Value = ""
    End If
    End If
End Sub

Private Sub UserForm_Initialize()
  ComboBox1.AddItem "Иванов"
  ComboBox1.AddItem "Петров"
  ComboBox1.AddItem "Сидоров"
  
  Dim i As Integer
  On Error Resume Next
  i = CInt(ThisDocument.Variables("Combobox1LastChoice").Value)
  If Err.Number <> 0 Then Err.Clear
  ComboBox1.ListIndex = i
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  Dim var As Variable
 
  For Each var In ThisDocument.Variables
    If var.Name = "Combobox1LastChoice" Then
      Exit For
    End If
  Next
  If var Is Nothing Then
    ThisDocument.Variables.Add "Combobox1LastChoice", ComboBox1.ListIndex
  Else
    var.Value = ComboBox1.ListIndex
  End If
End Sub

Dim t$, i As Variant 
t = "Premix Drops"
i = Application.Match(t, ComboBox1.List, 0)
 
If Not IsError(i) Then
   MsgBox t & " уже есть с списке и мы его уничтожим ", vbCritical, ""
   ComboBox1.RemoveItem i - 1
Else
   ComboBox1.AddItem t
End If

Private Sub UserForm_Initialize()
    ComboBox1.List = Array("Capella", "DIY Flavor Shack", "Flavor West", "Flavorah", "Inawera")
End Sub