Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.03.2010, 11:00   #1
mbrost
 
Регистрация: 30.03.2009
Сообщений: 9
По умолчанию исчезли все панели инструментов и меню

Что делать?
mbrost вне форума Ответить с цитированием
Старый 12.03.2010, 11:06   #2
The_Prist
Участник клуба
 
Аватар для The_Prist
 
Регистрация: 17.07.2009
Сообщений: 1,088
По умолчанию

Попробуйте такой макрос:
Код:
Sub Reset_All_Menu()
    Dim cmndbCBar As CommandBar
    For Each cmndbCBar In Application.CommandBars
        cmndbCBar.Enabled = True: cmndbCBar.Reset
    Next
End Sub
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru
The_Prist вне форума Ответить с цитированием
Старый 12.03.2010, 11:06   #3
Serge 007
Участник клуба
 
Аватар для Serge 007
 
Регистрация: 15.12.2009
Сообщений: 1,448
По умолчанию

Как исчезли? Где исчезли? Что делали?
Бесплатная помощь: www.excelworld.ru
Платная помощь: serge_007.planetaexcel@mail.ru
https://yoomoney.ru: 41001419691823
Serge 007 вне форума Ответить с цитированием
Старый 12.03.2010, 11:09   #4
Eresiarh
Пользователь
 
Регистрация: 15.01.2010
Сообщений: 31
По умолчанию

Как ни старался, но спрятать меню не смог.

Получилось с помощью скрипта)))

Правда : cmndbCBar.Reset приходиться стирать, ругаеться

Последний раз редактировалось Eresiarh; 12.03.2010 в 11:37.
Eresiarh вне форума Ответить с цитированием
Старый 12.03.2010, 11:35   #5
The_Prist
Участник клуба
 
Аватар для The_Prist
 
Регистрация: 17.07.2009
Сообщений: 1,088
По умолчанию

Цитата:
Сообщение от Eresiarh Посмотреть сообщение
Правда : cmndbCBar.Reset приходиться стирать, ругаеться
Чтоб не стирать можно так
Код:
Sub Reset_All_Menu()
    Dim cmndbCBar As CommandBar
    On error resume next
    For Each cmndbCBar In Application.CommandBars
        cmndbCBar.Enabled = True: cmndbCBar.Reset
    Next
End Sub
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru
The_Prist вне форума Ответить с цитированием
Старый 12.03.2010, 12:33   #6
mbrost
 
Регистрация: 30.03.2009
Сообщений: 9
По умолчанию спасибо всем!

Всем большое спасибо за оперативность и советы!!
Удалось восстановить так :
Private Sub Workbook_Open()
With Application
.ScreenUpdating = True
.DisplayStatusBar = True
.DisplayFormulaBar = True
Dim iCommandBar As CommandBar
For Each iCommandBar In .CommandBars
iCommandBar.Enabled = True
Next
End With
End Sub
ручками меню не удалишь - удалили программно у пользователя,
сейчас попробую и предложенный здесь код
mbrost вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверка наличия панели инструментов agregator Microsoft Office Excel 2 18.02.2010 10:44
Добавление или удаление дополнительных кнопок в панели инструментов проводника Windows triceratops Помощь студентам 0 01.12.2009 06:09
после перезагрузки компа исчезли все значки с рабочего стола логарифм Безопасность, Шифрование 2 12.06.2009 16:22
Нужен скрипт "суммирование" на панели инструментов skia Microsoft Office Excel 10 08.05.2009 09:14
Ограничения панели инструментов wnuks Microsoft Office Excel 5 01.07.2008 22:39