Скрытый Лист

[aval]

Ответ не верный. Надо свойство StartUpPosition изменить на "Windows Default"(при "Manual" можно установить куда захочешь)

[segail]

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

Надо изменить значение свойства ShowModal для этой формы. Вместо "True" поставить "False". Это позволит работать на листе не закрывая форму.

Если несколько форм. То теряется последовательность . Возникает доступ к первичным формам, что не очень желательно. Лучше код открытие листа закрытие формы.

[pivas]

Код для кнопки:

Private Sub CommandButton8_Click()
    Sheets("База_данных").Visible = True
    Sheets("База_данных").Select
    Range("A1").Select
    UserForm1.Hide
End Sub

а в конец кода листа База_данных допишите

UserForm1.Show

[segail]

Да вот эта смена позиций подходит. Теперь надо продумать с остальными листами и формами. Спасибо

[segail]

Еще дополнительный вопрос . При закрытие формы2 крестом необходимо открыть форму1.
Что я тут напортачил? Форма2 закрывается но форма1 не открывается.

Private Sub UserForm2_QueryClose(Cancel As Integer, CloseMode As Integer)
UserForm1.Show
End Sub

[pivas]

Попробуйте так:

Private Sub UserForm_Terminate()
UserForm1.Show
End Sub

[segail]

Первый раз срабатывает, второй раз уже нет. Форма2 просто не закрывается.

[pivas]

У меня работает в обоих вариантах, только в первом случае код такой:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
UserForm1.Show
End Sub

т.е. двойка не нужна, так как код помещается в модуль формы 2.

[segail]

Последовательность действий

Private Sub CommandButton8_Click()
UserForm1.Hide
UserForm2.Show
End Sub

Private Sub UserForm_Terminate()
UserForm1.Show
End Sub

Первый раз срабатывает. На втором разе форма2 зависает. Крестик на форме работает но форма не закрывается. Диспетчером задач снимаю задачу

[segail]

Данный код находится не в модули а в форме

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

Private Sub UserForm_Terminate()
UserForm1.Show
End Sub