Управление пользовательскими конфигурациями Office 2003 с помощью групповых политик
Отключение элементов пользовательского интерфейса
Вы можете задать политики, отключающие команды меню, кнопки панели инструментов и сочетания клавиш. Задав эти политики, Вы можете запретить пользователям изменять определенные функции и параметры приложений Office или получать доступ к ним. Отключенные политикой пункты меню или кнопки панели инструментов отображаются в пользовательском интерфейсе затененными и недоступны пользователям.
Отключение пунктов меню и кнопок панели инструментов
Подключив шаблоны политик Office 2003 и запустив оснастку Групповые политики, в разделе Disable items in user interface a Predefined a Disable command bar buttons and menu items каждого административного шаблона можно найти список названий пунктов меню и кнопок панели инструментов. Этот список содержит команды, которые администраторы часто предпочитают отключать (например, команда Гиперссылка (Hyperlink) в меню Вставка (Insert) или раскрывающееся подменю Макрос (Macro) в меню Сервис (Tools)).
Для того, чтобы отключить любую другую команду в приложении Office 2003, Вы должны включить политику Disable command bar buttons and menu items в разделе Disable items in user interface – Custom административного шаблона и добавить идентификатор элемента управления (ID) команды, которую Вы хотите отключить.
Для отключения пункта меню и соответствующей ему кнопки панели инструментов выполните следующие шаги:
- Откройте диалоговое окно свойств политики Disable command bar buttons and menu items в разделе Disable items in user interface – Custom административного шаблона соответствующего приложения Office 2003.
- Установите переключатель в положение Включено (Enabled) и нажмите кнопку Показать (Show).
- Нажмите кнопку Добавить (Add) и введите идентификатор элемента управления команды, которую Вы хотите отключить.
Примечание
Пункты меню и соответствующие им кнопки панели инструментов имеют одинаковый идентификатор элемента управления. Например, в Microsoft Word команда Сохранить (Save) меню Файл (File) и кнопка Сохранить (Save) панели инструментов Стандартная (Standard) имеют ID 3.
Нахождение кодов элементов управления с помощью Visual Basic for Applications
Вы можете производить поиск ID любых элементов меню или панели инструментов приложений Office 2003 с помощью Microsoft Visual Basic® for Applications (VBA). Вы можете искать отдельный ID или использовать макросы для поиска нескольких ID. После нахождения идентификатора элемента управления Вы можете добавить его в список отключаемых элементов в соответствующей групповой политике.
Примечание
Команды меню и соответствующие им кнопки панели инструментов имеют одинаковый идентификатор элемента управления. Например, в Microsoft Word команда Сохранить (Save) меню Файл (File) и кнопка Сохранить (Save) панели инструментов Стандартная (Standard) имеют ID 3.
Поиск отдельного идентификатора элемента управления
В окне Immediate программы Visual Basic for Applications Вы можете производить поиск отдельного ID команды меню. Например, следующая команда возвращает значение 748, которое является идентификатором элемента управления для команды Сохранить как (Save As) меню Файл (File) в программе Microsoft Word:
? commandbars("menu bar").controls("file").controls("save as...").id
Примечание
Для программы Microsoft Excel в предыдущем примере используйте значение "worksheet menu bar" вместо "menu bar".
Для поиска ID кнопки панели инструментов используется та же команда. Например, следующая команда возвращает идентификатор элемента управления для кнопки Схема документа (Document Map) панели инструментов Стандартная (Standard) в программе Microsoft Word:
? commandbars ("standard").controls ("document map").id
Поиск ID всех элементов меню или панели инструментов
Для поиска ID всех элементов определенного меню или панели инструментов Вы можете создать VBA-макрос. Например, следующий макрос выводит несколько окон, в которых отображены все команды меню Файл (File) любого приложения Office 2003 и соответствующие им идентификаторы элементов управления:
Sub EnumerateControls()
Dim icbc As Integer
Dim cbcs As CommandBarControls
Set cbcs = Application.CommandBars("Menu Bar").Controls("File").Controls
For icbc = 1 To cbcs.Count
MsgBox cbcs(icbc).Caption & " = " & cbcs(icbc).ID
Next icbc
End Sub
Примечание
Для того, чтобы отключить все элементы меню, Вы можете либо отключить каждый элемент по отдельности, либо отключить меню целиком, введя ID этого меню, используя в обоих случаях оснастку Групповая политика.