Страницы: 1
RSS
Переход в полноэкранный режим
 
Здравствуйте!  
Подскажите как решить проблемку. Есть файл excel которым будут пользоваться различные пользователи. Для пользователей на самом листе выведены кнопки управления для выполнения определенных    
Можно ли написать макрос, который бы автоматически после открытия файла *.excel переводил бы программу в полноэкранный режим, но таким образом чтобы пользователь не смог бы выйти из полноэкранного режима.
 
{quote}{login=АлексейСН}{date=13.01.2009 12:41}{thema=Переход в полноэкранный режим}{post}Здравствуйте!  
Подскажите как решить проблемку. Есть файл excel которым будут пользоваться различные пользователи. Для пользователей на самом листе выведены кнопки управления для выполнения определенных    
Можно ли написать макрос, который бы автоматически после открытия файла *.excel переводил бы программу в полноэкранный режим, но таким образом чтобы пользователь не смог бы выйти из полноэкранного режима.{/post}{/quote}  
 
Посмотрел такая тема уже обсуждалась. Нашел как ее решить. Вот программный код макроса.  
Private Sub Workbook_Open()  
'Полный экран без менюх  
Application.DisplayFullScreen = True  
Application.DisplayScrollBars = False  
Application.DisplayFormulaBar = False  
With ActiveWindow  
.DisplayWorkbookTabs = False  
.DisplayHeadings = False  
End With  
Dim cb As CommandBar  
For Each cb In Application.CommandBars  
If cb.BuiltIn = True Then cb.Enabled = False  
Next  
End Sub  
 
Но, одно но, в 2007 excele при нажатии клавиши ESC он выходит из полноэкранного режима. Как отключить клавишу ESC.
 
ну добавьте еще строчку: Application.OnKey "{ESC}", ""
Живи и дай жить..
 
только вот не знаю как спастись от двойного щелчка по рамке..
Живи и дай жить..
 
{quote}{login=слэн}{date=13.01.2009 02:25}{thema=}{post}только вот не знаю как спастись от двойного щелчка по рамке..{/post}{/quote}  
 
Спасибо все получилось! Да вот только двойной щелчок ….. Может если найдете выложите на форуме?
 
запретить двойной клик мыши :)
 
{quote}{login=Марчук}{date=13.01.2009 05:32}{thema=}{post}запретить двойной клик мыши :){/post}{/quote}  
 
А как это можно сделать????
 
блин, ели ели панели обратно востановил.  
мышь заблокировать думаю можно через WINAPI , а еще может попробовать прописать в событие при изменение листа , запускать макрос для полноэкранного просмотра.  
 
Private Sub Workbook_WindowResize(ByVal Wn As Window)  
End Sub
 
http://msoffice.nm.ru/faq/macros/winapi2.htm#faq372  
 
http://msoffice.nm.ru/faq/macros/miscellaneous.htm#faq72  
 
http://msoffice.nm.ru/faq/macros/miscellaneous.htm#faq371  
 
у меня на работе доступ закрыт к этому сайту :(
Страницы: 1
Читают тему
Наверх