Страницы: 1
RSS
Скрыть/убрать панель инструментов.
 
При переходе по гиперсылке, появляется ненужная мне панель инструментов "Веб-узел" (офис 2003).  
Причём появляется под другими панелями, занимая ценное место.  
Пробовал её и отключать и все кнопки из неё удалять и засовывать между другими панелями - бесполезно. Всё-равно, выскакивает снизу.  
Посоветуйте пожалуйста что-нибудь.
 
еще бы знать, как она называется в VBA правильно... тогда вообще легко: при автозапуске выключается, при выходе - включается.  
Сейчас... поищем...
 
Благодарю!  
Опа, Вы уже Ди. Дайана звучало куда выразительней.  
Жду и надеюсь на решение.
 
Спасибо, Дмитрий!  
Но выскакивает ошибка 5, "Неверный аргумент".  
А где можно посмотреть точное название панели?
 
Если не поможет, сделайте мне скриншотик панельки такой из 2003-го офиса... Может быть, удастся исправить ситуацию.
 
Нет, Дмитрий, панель всё-равно выскакивает. Но сообщение об ошибке макроса уже не появляется.  
Дайана, вот скрин панельки (она нижняя из трёх).
 
{quote}{login=Vlad}{date=19.09.2010 04:36}{thema=}{post}сообщение об ошибке макроса уже не появляется.{/post}{/quote}  
 
значит, она все-таки WEB называется...  
Хотя... что тогда отключили...
 
Спасибо.  
Но не получается. Вешал и на открытие книги - выскакивает зараза.  
Да, выскакивает точно после перехода по ссылке.
 
Эта панель перестала отображаться в списке панелей, но всё-равно выскакивает после перехода по ссылке.
 
Вряд ли конечно, в этом дело... но...  
Попробуйте написать вместо  
 
Application.CommandBars("Web").Visible = False  
 
вот это  
 
Application.CommandBars("Web").Enabled = False
 
Эх, всё-равно эта панель выскакивает.  
Придётся, наверно, смириться...
 
Отключить панель:  
Application.CommandBars("Web").Enabled = False  
 
Но не забудьте её включить, например, перед закрытием книги
 
Спасибо! Так же предлагала Ди:)  
Всё-равно панель выскакивает, как и раньше, после перехода по ссылке.
 
{quote}{login=Vlad}{date=20.09.2010 03:09}{thema=}{post}Спасибо! Так же предлагала Ди:)  
Всё-равно панель выскакивает, как и раньше, после перехода по ссылке.{/post}{/quote}Вы выполните этот код не в Workbook_SheetFollowHyperlink, а сам по себе, или по открытию книги.  
 
Можно и в модуле листа с гиперссылками:  
 
Private Sub Worksheet_Activate()  
 Application.CommandBars("Web").Enabled = False  
End Sub  
Private Sub Worksheet_Deactivate()  
 Application.CommandBars("Web").Enabled = True  
End Sub
 
Спасибо! Получилось.  
Только по открытию книги или активации листа ничего не происходило с панелью "Web",  
А вот при запуске макроса вручную панель исчезла и не появляется.  
Правда, теперь её и в списках нет и второй макрос её не возвращает, но мне она и не нужна, тем более её команды есть в полном перечне команд.  
Ещё раз благодарю!
Страницы: 1
Читают тему
Наверх