Деактивировать "Крестик" в GetOpenFile

[Klim Bassenger]

Уважаемые Товарищи знатоки Excel и VBA!!!
Как сделать, чтобы при открытии окна "Указать путь к файлу" и "Выбрать директорию" (не знаю как они правильно называются, поэтому прилагаю файл) нельзя было их закрыть через крестик и кнопку отмена... Либо, что лучше, при нажатии на крестик или кнопку отмена появлялась первая стартовая форма UserForm8 (а не UserForm4 или 5).
Если можно, то хотелось бы посмотреть два варианта.
Спасибо!

[viter.alex]

Я так понимаю, что Вы хотите запретить, чтобы пользователь возвращал пустую строку при выборе пути файла или директории.
Нужно обрабатывать событие QueryClose (Запрос на закрытие) для форм UserForm4 и UserForm5
Что-то я не смог сходу придумать, как закрыть эти формы и показать стартовую, но отключить можно так:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  Cancel = CInt(Len(TextBoxDir.Value) = 0)
End Sub

Если в поле TextBoxDir для формы UserForm4 не будет ничего введено, то форма не закроется.

Добавлено позже
Вспомнил! Есть у формы событие UserForm_Terminate, в которое как раз и нужно прописать показ основной формы UserForm8. Возникает это событие при выгрузке формы из оперативной памяти, т.е. уже после закрытия.

Private Sub UserForm_Terminate()
  UserForm8.Show
End Sub

Думаю, что такое решение подойдет. Можно, конечно, и крестик у окна дезактивировать, но это такой головняк через WinAPI

[SAS888]

Посмотрите пример во вложении.

[Klim Bassenger]

Сообщение от SAS888

Посмотрите пример во вложении.

Это я так понял убирается крестик из формы, а если без формы просто:

Sub Директория()
Application.GetOpenFilename
End Sub

Чтобы в это окно нельзя было закрыть, либо чтобы пустое значение в строке выбора файла не было...

[SAS888]

Application.GetOpenFilename вызывает модальное окно, поэтому все дальнейшие команды блокируются. Крестик не убрать. Но после закрытия этого окна, можно контролировать выбранный файл, и если он "False" или "пустой", то возвращаться на Application.GetOpenFilename.

[SAS888]

Я имею ввиду следующее:

Sub Директория()
M1: FName = Application.GetOpenFilename
    If FName = "False" Then GoTo M1
End Sub

[Klim Bassenger]

Сообщение от SAS888

Я имею ввиду следующее:

Sub Директория()
M1: FName = Application.GetOpenFilename
    If FName = "False" Then GoTo M1
End Sub

То что нужно! Спасибо!!!