Страницы: 1
RSS
Excel все время запускается в свернутом виде, что это может быть ?
 
Добрый день.  
Excel 2010 все время запускается в свернутом виде. В настройках ярлыка прописано, чтобы запускался развернутым во весь экран, но тут дело даже не в ярлыке.    
Открываешь любой Excel файл и он не на весь экран, нажать Развернуть на весь экран, не сложно но......    
Но по потихонечку это начинает раздражать, ни кто не сталкивался с такой проблемой ?
 
Вот здесь   
http://www.excelworld.ru/forum/2-945-1  
вроде утверждают что всё зависит от последнего сохранённого файла. Но у меня не так. ХЗ.
 
У меня зависит. Только что проверил - как сохранил один, закрыл Эксель - так следующий другой (и этот тоже) и открывается.  
2007 русский.
 
У меня тоже. Правда если Excel закрывать отдельно, закрыв все книги, то как было развернуто окно Excel, так книга и откроется.
 
При закрытии Excel сохраняет состояние окон приложения  и последней книги в реестре в разделе:  
HKEY_CURRENT_USER\Software\Microsoft\Office\XX.0\Excel\Options\  
в ключе Maximized.  
Здесь XX - это номер версии: 11 для Excel 2003, 12 - для 2007, 14 - для 2010.  
 
Возможны такие значения ключа Maximized:  
0 - окна приложения и книги свернуты  
1 - окно приложения развернуто, а книги - свернуто  
2 - окно приложения свернуто, а книги - развернуто  
3 - окна приложения и книги развернуты  
 
При последующей загрузке Excel восстанавливает сохраненные параметры.  
Но некоторые надстройки при загрузке сами переопределяют состояние окон.  
Чтобы найти виновницу, нужно отключить все надстройки, в том числе COM-надстройки и надстройки, хранящиеся в папках Xlstart.  
А затем поэкспериментировать, поочередно включая каждую и перезагружая Excel.  
 
Чтобы не зависеть от случая и открывать и приложение, и загружаемую книгу в раскрытом на весь экран виде, можно в личной книге макросов в модуль ЭтаКнига записать приведенный ниже код и сохранить личную книгу макросов (Ctrl-S):  
 
' Код в личной книге макросов в модуле ЭтаКнига  
Private Sub Workbook_Open()  
 Application.OnTime Now, Me.CodeName & ".Maximize"  
End Sub  
Private Sub Maximize()  
 On Error Resume Next  
 Application.WindowState = xlMaximized  
 ActiveWindow.WindowState = xlMaximized  
End Sub
 
Вообще не запускается макрос Private Sub Workbook_Open()... что там внутри не пиши. Макросы естественно включены. Если запустить вручную срабатывает, а при открытии нет.
 
Обратите внимание, куда нужно поместить код - "в модуль ЭтаКнига"  
 
То, есть, не в Module1 (стандартный модуль), не в модуль листа,а в модуль книги, который в русской локализации называется ЭтаКнига, а в английской - ThisWorkook
 
Ура! Ура! Заработало!  
Спасибо.
Страницы: 1
Наверх