Как сделать UserForm не по верх окон

[and150382]

Подскажите , а как сделать чтобы форма показывалась только когда активен первый лист этой книги?
Если переключаюсь на другой лист то форма исчезает

[and150382]

Работает, но стоит закрыть форму через крестик, и переключиться на другую книгу , то опять выскакивает эта же ошибка.
Что нужно добавить в код?

[Скрипт]

and150382, я закрываю форму из сообщения #29 (http://www.programmersforum.ru/showp...8&postcount=29), нажимая на крестик, и нет ошибки.

[and150382]

Вот то что у меня получается.

Вроде все работает- переключаюсь на другую книгу, форма исчезает.Переключаюсь обратно форма появляется. Но стоит нажать на крестик и переключиться на другую книгу, то выдает ошибку

[Скрипт]

Вот в моём коде:

Private Sub Workbook_Activate()
    
    'Если в переменной "myFlag" слово "False", то
    'значит, что процедуру не запускали и форма не запущена.
    If myFlag = False Then
        'Выходим из кода.
        Exit Sub
    End If
    
    UserForm1.Show
    
End Sub

Вот в вашем коде:

Private Sub Workbook_Activate()
    ' активировали текущую книгу - отображаем форму
    UserForm1.Show
    
    'Если в переменной "myFlag" слово "False", то
    'значит, что процедуру не запускали и форма не запущена.
    If myFlag = False Then
    
        'Выходим из кода.
        Exit Sub
    End If
    
End Sub

[and150382]

Если я UserForm1.Show и UserForm1.Hide ставлю после Exit Sub
End If , то у меня форма появляется при открытии книги , но при переключении на другую книгу она не исчезает

[Скрипт]

and150382, в сообщении #29 (http://www.programmersforum.ru/showp...8&postcount=29) находится форма, которая работает так, как надо.

Смотрите код в этой форме и переносите к себе код так же, как этот код находится в форме.

[and150382]

Все сделал как в примере и ничего....все так же при закрытии на крестик и переход на другую книгу выскакивает ошибка

[and150382]

Получается на крестик нужно что-то добавить

Private Sub UserForm_Terminate()

'Делаем пометку, что форма закрыта.
myFlag = False


End Sub

[and150382]

Уважаемые гуру!!!!
Скажите что нужно добавить в код?
Сам справиться к сожалению не могу.
В VBA не силен (только изучаю) , хотя это интересно и затягивает.
Постоянно выскакивает ошибка (когда форму закрываешь) при переключении книг , а книг открытых может быть много.