Выполнить код при закрытии окна просмотра - Microsoft Office Excel

segail · 08.02.2010, 08:53

Здравствуйте.
Подскажите, как при закрытии окна просмотра выполнить обратное действие.

Код:

Sheets("Поставщик").Visible = False
UserForm1.Show

SAS888 · 08.02.2010, 09:38

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

segail · 08.02.2010, 10:13

Окно просмотра закрывается, а сам лист не закрывается, и форма не открывается…

Код:

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    UserForm1.Show
    Sheets("Поставщик").Visible = False
End Sub

SAS888 · 08.02.2010, 10:25

Поменяйте местами команды:

Код:

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Sheets("Поставщик").Visible = False
    UserForm1.Show
End Sub

segail · 08.02.2010, 10:37

А текущая дата, это обязательно?

SAS888 · 08.02.2010, 11:14

Для того, чтобы произошло событие Calculate, по которому запускается макрос, необходимо, чтобы на листе была хотя бы одна формула.

segail · 08.02.2010, 11:17

При входе в окно просмотра нельзя произвести печать. Возможно ли при входе снять данную блокировку?

SAS888 · 08.02.2010, 11:22

Попробуйте заменить по всему коду

Код:

UserForm1.Show

на

Код:

UserForm1.Show 0

08.02.2010, 10:13	#3
segail Форумчанин Регистрация: 13.06.2009 Сообщений: 691	Окно просмотра закрывается, а сам лист не закрывается, и форма не открывается… Код: `Private Sub Workbook_SheetCalculate(ByVal Sh As Object) UserForm1.Show Sheets("Поставщик").Visible = False End Sub`

08.02.2010, 10:25	#4
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Поменяйте местами команды: Код: `Private Sub Workbook_SheetCalculate(ByVal Sh As Object) Sheets("Поставщик").Visible = False UserForm1.Show End Sub` Чем шире угол зрения, тем он тупее.

08.02.2010, 11:14	#6
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Для того, чтобы произошло событие Calculate, по которому запускается макрос, необходимо, чтобы на листе была хотя бы одна формула. Чем шире угол зрения, тем он тупее.

08.02.2010, 11:22	#8
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Попробуйте заменить по всему коду Код: `UserForm1.Show` на Код: `UserForm1.Show 0` Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Есть ли возможность выполнить код при инициализации подключаемого модуля?	shurik_7866	Общие вопросы C/C++	0	07.12.2009 22:59
Confirm при закрытии активного окна	Jensi	JavaScript, Ajax	4	17.08.2009 19:06
Создание собственного окна просмотра отчета	J[OGR]A	Помощь студентам	2	20.03.2009 04:54
Как выполнить действие при закрытии Книги?	valerij	Microsoft Office Excel	9	12.03.2009 15:31
ошибка при закрытии adoquery	Банзай	БД в Delphi	7	03.09.2007 19:31

08.02.2010, 10:37	#5
segail Форумчанин Регистрация: 13.06.2009 Сообщений: 691	А текущая дата, это обязательно?

08.02.2010, 11:17	#7
segail Форумчанин Регистрация: 13.06.2009 Сообщений: 691	При входе в окно просмотра нельзя произвести печать. Возможно ли при входе снять данную блокировку?