Как в Excel убрать некоторые меню?

Программирование на Visual Basic for Applications
Rubinus
Начинающий
Начинающий
 
Сообщения: 17
Зарегистрирован: 04.07.2004 (Вс) 21:28

Как в Excel убрать некоторые меню?

Сообщение Rubinus » 03.11.2004 (Ср) 1:02

Как в Excel с помощью VBA убрать все меню, к примеру оставить только (Файл, Правка, Вид). Тоесть чтобы при открытии книги на любом компе были только (Файл, Правка, Вид).
Bona mente...

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 03.11.2004 (Ср) 2:12

В workbook_open вставить фигню вида Application.CommandBars("Worksheet menu bar").Controls("Tools").Visible = False
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Rubinus
Начинающий
Начинающий
 
Сообщения: 17
Зарегистрирован: 04.07.2004 (Вс) 21:28

Сообщение Rubinus » 03.11.2004 (Ср) 11:44

Эта строка если я правильно понял отключает все меню? А как оставить только (Файл, Правка, Вид)?
Bona mente...

Vitaly1
Брехман
Брехман
 
Сообщения: 1578
Зарегистрирован: 30.12.2002 (Пн) 16:35
Откуда: Russia, Mosсow

Сообщение Vitaly1 » 03.11.2004 (Ср) 20:05

Придется скрывать пункты меню:

Код: Выделить всё
Application.CommandBars.ActiveMenuBar.Controls("Фор&мат").Visible = False

& символ перед почеркнутой буквой подписи меню :wink:


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот, Mail.ru [бот] и гости: 82

    TopList