Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
скрытие панелей в эксель
 
#1
27.03.2011 23:46:21
Добрый день. Недавно обсуждали эту тему. Спецы прислали макрос (прикладываю). Вопрос такой. Возможно ли сделать так, чтобы все было скрыто кроме например закладок: ФАЙЛ и ДАННЫЕ.
 
 
 
#2
28.03.2011 09:25:26
А что такое закладки?  
Имена листов? Или названия панелей инструментов?  
 
Если речь про имена листов - уберите и макроса строку .DisplayWorkbookTabs = Value  
и скрывайте все листы, кроме листов ФАЙЛ и ДАННЫЕ  
 
Если речь про панель инструментов "стандартная" - то используйте такой вариант функции:  
 
Sub ChangeInterface(Value As Boolean)  
   With Application  
       .ScreenUpdating = False  
       .Caption = IIf(Value = True, Empty, "Наше окно")  
       .DisplayStatusBar = Value: .DisplayFormulaBar = Value  
       Dim iCommandBar As CommandBar, cbc As CommandBarControl  
       For Each iCommandBar In .CommandBars  
           iCommandBar.Enabled = Value  
       Next  
       With .ActiveWindow  
           .Caption = IIf(Value = True, .Parent.Name, "")  
           .DisplayHeadings = Value: .DisplayGridlines = Value  
           .DisplayHorizontalScrollBar = Value: .DisplayVerticalScrollBar = Value  
           .DisplayWorkbookTabs = Value  
       End With  
       With .CommandBars(1)  
           .Reset: .Enabled = True  
           For Each cbc In .Controls  
               cbc.Visible = Value Or (cbc.Caption Like "*Файл*" Or cbc.Caption Like "*Данные*")  
           Next  
       End With  
       .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & Value & ")"  
       .ScreenUpdating = True  
   End With  
End Sub  
 
 
Скриншот результата: http://www.ExcelVBA.ru/pictures/20110328-n0c-19kb.jpg  
Пример в файле: http://excelvba.ru/XL_Files/Sample__28-03-2011__11-25-14.zip
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
28.03.2011 09:57:52
так?
Живи и дай жить..
 
 
 
#4
02.04.2011 03:38:50
все так (я имел ввиду - панели) но есть еще одна просьба - нужно чтобы на экране (на панели) было всего две кнопки: "сохранить" и "обновить сведения из источников"  
спасибо
 
 
 
#5
04.04.2011 23:04:39
не работает правильно - убирает все с экрана. не оставляет на панели "Файл" и "Данные". если кто знает - помогите
 
 
 
#6
05.04.2011 02:39:10
работает правильно. 2003.
 
 
 
#7
06.04.2011 07:26:15
в 2007 - не работает (макросы включил)
 
 
 
#8
06.04.2011 08:43:54
в 2007 вообще нет закладки файл.. -  и что делать?
Живи и дай жить..
 
 
 
#9
14.09.2011 11:34:14
И как все вернуть??????
 
 
 
#10
14.09.2011 11:46:16
куда?
Живи и дай жить..
 
 
 
#11
14.09.2011 11:53:30
{quote}{login=слэн}{date=14.09.2011 11:46}{thema=}{post}куда?{/post}{/quote}  
 
как куда...панели инструментов исчезли! и по-моему безвозвратно...)))  пытался "включить" их через клик правой кн.мыши, а их вообще в списке нет! вот, блин, запустил макрос на свою голову...
 
 
 
#12
14.09.2011 11:59:30
Ну, спасибо! а я уж подумал.."шеф!все пропало!!!" ...мда, век живи-век учись...СПАСИБО!
 
 
 
#13
14.09.2011 12:07:36
{quote}{login=The_Prist}{date=14.09.2011 11:54}{thema=}{post}<EM>http://www.excel-vba.ru/chto-umeet-excel/ne-rabotayut-menyu/</EM>{/post}{/quote}  
Не вляпался :) но тоже спасибо!
 
 
 
#14
14.09.2011 12:14:57
какой файл запускали? в том, что я выкладывал есть макрос восстановления интерфейса..
Живи и дай жить..
 
 
 
#15
14.09.2011 12:26:17
{quote}{login=слэн}{date=14.09.2011 12:14}{thema=}{post}какой файл запускали? в том, что я выкладывал есть макрос восстановления интерфейса..{/post}{/quote}  
 
да в общем то все...разобрался...просто копипастом воспользовался от "EducatedFool"...а вот кстати, задумка не плохая по "скрытию", а можно ли при открытии книги "убирать все", а по закрытию "восстанавливать"? причем восстановление должно показать только те панели какие были активны "до" открытия этого файла? (просто чтоб тему новую не начинать, решил продолжить, с вашего позволения)
 
 
 
#16
14.09.2011 13:36:41
Хреново вы пользуетесь копипастом...  
Везде, где есть макрос скрытия панелей, есть и код их отображения.  
 
Поиском не пробовали воспользоваться? Сразу бы нашли ответ на свой вопрос:  
http://excelvba.ru/code/HideCommandBarsAndRibbon
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
Страницы: 1
Читают тему
Наверх