vba: как развернуть лист excel на весь экран при открытии книги?

Black__Hole Пользователь Сообщений: 259 Регистрация: 01.01.1970	#1 14.10.2011 11:18:15 Уважаемые, подскажите, пожалуйста, каким образом можно заставить лист excel разворачиваться на весь экран при окрытии книга?

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#2 14.10.2011 11:25:02 В модуль книги: Private Sub Workbook_Open() ActiveWindow.WindowState = xlMaximized End Sub Я сам - дурнее всякого примера! ...

Black__Hole Пользователь Сообщений: 259 Регистрация: 01.01.1970	#3 14.10.2011 11:45:10 {quote}{login=KukLP}{date=14.10.2011 11:25}{thema=}{post}В модуль книги: Private Sub Workbook_Open() ActiveWindow.WindowState = xlMaximized End Sub{/post}{/quote} В "модуль книги" - это в "Эта книга"? Если так, то не разворачивается.

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#4 14.10.2011 11:49:22 А у меня разворачивается. Макросы разрешены? Я сам - дурнее всякого примера! ...

Black__Hole

Пользователь

Сообщений: 259 Регистрация: 01.01.1970

14.10.2011 11:53:12

{quote}{login=KukLP}{date=14.10.2011 11:49}{thema=}{post}А у меня разворачивается. Макросы разрешены?{/post}{/quote}
На open вот такой код, все отрабатывает, кроме разворачивания:
Private Sub Workbook_Open()
Worksheets("Лист1").Protect Password:="any2009", UserInterfaceOnly:=True
Worksheets("Лист2").Protect Password:="any2009", UserInterfaceOnly:=True
Worksheets("Лист3").Protect Password:="any2009", UserInterfaceOnly:=True
Worksheets("Лист4").Protect Password:="any2009", UserInterfaceOnly:=True
Worksheets("Лист5").Protect Password:="any2009", UserInterfaceOnly:=True
Application.Run "Set_DisplayMetrics"
ActiveWindow.WindowState = xlMaximized
Step1_idv.Show
End Sub

nerv Пользователь Сообщений: 3071 Регистрация: 22.12.2012	#6 14.10.2011 12:00:37 Макрорекодер: Application.WindowState = xlMaximized : ) Чебурашка стал символом олимпийских игр. А чего достиг ты? Тишина - самый громкий звук https://github.com/nervgh

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#7 14.10.2011 12:10:55 Саня вопрос был о листе, а не о приложении. Хотя может Black__Hole именно это и надо? Я сам - дурнее всякого примера! ...

Black__Hole Пользователь Сообщений: 259 Регистрация: 01.01.1970	#8 14.10.2011 15:22:14 {quote}{login=nerv}{date=14.10.2011 12:00}{thema=}{post}Макрорекодер: Application.WindowState = xlMaximized : ){/post}{/quote} Так и есть - именно это и надо :) Спасибо!

Читают тему