Как повесить код на событие листа

[Tow]

Пытаюсь повесить код на событие "Лист1", т.е после ввода определенного логина и пароля у меня открывается "Лист1", и на открытие "Лист1", должен срабатывать во этот код

Код (vb) Выделить Развернуть

Private Sub Worksheet_Deactivate()  
Unload UserForm1  
End Sub  
 
Private Sub Worksheet_Activate()  
'Закрываете , открываете что хотите  
UserForm1.Show (0)  
End Sub  
т.е при переходи на "Лист1", должен запускать UserForm1, но выдает ошибку

Код (vb) Выделить Развернуть

UserForm1.Show (0)  

[Дмитрий Щербаков(The_Prist)]

но выдает ошибку

На будущее: не забывайте написать что за ошибку выдает. А то их там более 4000
Скорее всего надо просто убрать скобки:

Код (vb) Выделить Развернуть

UserForm1.Show 0

[Tow]

Все равно ругается, теперь на

Код (vb) Выделить Развернуть

UserForm1.Show 0

[Дмитрий Щербаков(The_Prist)]

Все равно ругается

не забывайте написать что за ошибку выдает. А то их там более 4000

у нас видимо, долгий разговор будет... ))

[Tow]

Вот эта сперва выскакивает

Код (vb) Выделить Развернуть

runtime error 401 can't show non-modal form when modal form is displayed

[Tow]

Вот пример. Пароли те же "1234", попробуйте зайти через "Марина", пароль "3", как раз выскочит ошибка

[vikttur]

Пытаетесь скрыть ВСЕ листы. Надо сначала показать Main.

[Дмитрий Щербаков(The_Prist)]

can't show non-modal form when modal form is displayed

иногда переводчик рулит. Вы пытаетесь показать какую-то форму в немодальном режиме(Show 0) в то время когда уже висит другая форма, но в модальном режиме. Либо запускайте все формы в немодальном режиме, либо скрывайте все другие формы перед показом нужной.