Нужно заблокировать кнопку Настройка в XP Office

@Cayman1 · Регистрация: 06.05.2009

Author24 — интернет-сервис помощи студентам

Люди! Хелп!!! Нужно заблокировать кнопку Настройка в XP Office, чтобы юзвери не добавляли свои панели. С кнопкой, расположенной в меню 'Tools' - нет проблем, а вот как ее изничтожить из контекстного меню, возникающего при правом клике на любоЙ панели (или при нажатии непонятной кнопки со стрелкой вниз, встроенной в любую панель инструментов) ? Внимание - это контекстное меню, содержащее в себе список всех панелей, само по себе панелью не является!!!!!!!

@vlth · 27.04.2010, 18:22

М.б. кто-нибудь всё-таки добрался до управления свойствами этого меню
и его элементов? Отзовитесь!

@vlth · 27.04.2010, 21:35

Защита панелей от изменения:

Dim CmdBar As CommandBar

On Error Resume Next
For Each CmdBar In CommandBars
If CmdBar.Name = 'Имя_панели' Then
CmdBar.Protection = msoBarNoCustomize + msoBarNoMove + msoBarNoChangeVisible'(Эту строку можно продолжать ... + msoBarNoResize и т.д.)
End If
Next CmdBar

@Cayman1 0 / 0 / 0 Регистрация: 06.05.2009 Сообщений: 3
		1
	Нужно заблокировать кнопку Настройка в XP Office 06.05.2009, 02:33. Показов 1001. Ответов 2 Метки нет (Все метки) Люди! Хелп!!! Нужно заблокировать кнопку Настройка в XP Office, чтобы юзвери не добавляли свои панели. С кнопкой, расположенной в меню 'Tools' - нет проблем, а вот как ее изничтожить из контекстного меню, возникающего при правом клике на любоЙ панели (или при нажатии непонятной кнопки со стрелкой вниз, встроенной в любую панель инструментов) ? Внимание - это контекстное меню, содержащее в себе список всех панелей, само по себе панелью не является!!!!!!! 0

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	27.04.2010, 18:22	2
	М.б. кто-нибудь всё-таки добрался до управления свойствами этого меню и его элементов? Отзовитесь! 0

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	27.04.2010, 21:35	3
	Защита панелей от изменения: Dim CmdBar As CommandBar On Error Resume Next For Each CmdBar In CommandBars If CmdBar.Name = 'Имя_панели' Then CmdBar.Protection = msoBarNoCustomize + msoBarNoMove + msoBarNoChangeVisible'(Эту строку можно продолжать ... + msoBarNoResize и т.д.) End If Next CmdBar 0