Excel как создать панель инструментов только для одной книги

{quote}{login=EducatedFool}{date=06.10.2009 04:40}{thema=}{post}Аналогичная тема была здесь:

http://www.programmersforum.ru/showthread.php?t=41839  

    И вопрос спецам на похожую тему:  

  Как известно, свойство CommandBars есть как у объекта application, так и у объекта workbook.  
Это мне подсказывает, что можно как-то добавить к книге свою панель инструментов, и чтобы эта панель инструментов СОХРАНЯЛАСЬ ВМЕСТЕ С КНИГОЙ.  
Я в таких случаях при открытии книги макросом формирую панель инструментов заново.  
А есть ли способ добавить в конкретную книгу (а не в сам Excel) простенькую панель инструментов, чтобы при открытии этой книги на любом компе появлялась та самая панель? (не создавая её макросом){/post}{/quote}  
Панель инструментов можно создать вручную и вложить в книгу с помощью меню: Вид – Панели инструментов – Настройка – вкладка Панели инструментов – кнопки Создать и Вложить. Это возможно проделать в версиях Excel 2003 и предыдущих. Но такая вложенная панель будет работать и в Excel 2007, при этом она появится на на ленте на вкладке Надстройки.  

  При первой загрузке книги с встроенной панелью инструментов Excel копирует из книги встроенную панель.  После этого такая копия панели становится уже принадлежностью Application т.е. панелей Excel (сохраняется в XLB-файле в папке «C:Documents and Settings<LOGIN>Application DataMicrosoftExcel») и не удаляется автоматически при закрытии книги. Кроме того, в назначенных макросах контролов копии панели запоминается еще и путь, откуда загружалась книга, и этот путь в последствии автоматически не меняется. При последующих загрузках  книги с этой же встроенной панелью инструментов копирование панели (обновление) Excel больше не производит, так как находит у себя копию панели с аналогичным именем.  

  Нюансы, которые необходимо учитывать:  

  1. Копия панели инструментов остается жить в Excel-е, даже если книга (надстройка) не загружена. Такую панель когда-то придется удалять вручную или дополнительным кодом.  

  2. К имени макроса (.OnAction=”ИмяМакроса”) кнопки такой панели Excel привязывает путь к той книге (надстройке), откуда была изначально скопирована панель. Если впоследствии надстройка будет перемещена и загружена из другой папки, то макросы с панели уже вызываться не будут. Потребуется вручную удалять панель и перезапускать Excel. Часто про эту особенность либо не знают, либо забывают. Вот типичная ситуация: решили сначала ппроверить какую-то надстройку со встроенной панелью, скопировали её во временную папку, проверили – понравилась, перенесли или скопировали куда положено и получили проблему: копия панели будет пытаться обращаться к макросам книги из папки первоначальной загрузки.  

  Для исключения проблемы, описанной в п.2, нужно записать такой следующий в модуль ЭтаКнига книги/надстройки со встроенной панелью:  

  Private Sub Workbook_Open()  
 On Error Resume Next  
 With Application.CommandBars(«ИмяПанели»)  
   .Visible = True  
   ‘ Прописать OnAction без пути к папке    
   .Controls(1).OnAction = «ИмяМакроса1»  
   .Controls(2).OnAction = «ИмяМакроса2»  
   ‘ … и т.д.  
 End With  
End Sub  

  Private Sub Workbook_AddinUninstall()  
 On Error Resume Next  
 Application.CommandBars(«ИмяПанели»).Delete  
End Sub  

  Private Sub Workbook_AddinInstall()  
 With Application.CommandBars(«ИмяПанели»)  
   .Visible = True  
   .Position = msoBarTop  
 End With  
End Sub

Хотя большинство панелей инструментов, которые вы создаете, подходят для практически любой задачи, иногда функциональность пользовательской панели инструментов применима только к одной определенной книге. Этот трюк позволит привязывать панели инструментов к соответствующим книгам.

Если вы когда-либо создавали пользовательскую панель инструментов, то, без сомнения, замечали, что она загружается и становится видимой независимо от того, какую книгу вы открыли. А что если пользовательская панель инструментов содержит записанный макрос, предназначенный только для одной специфической рабочей книги? Вероятно, лучше всего было бы привязать специальные пользовательские панели к соответствующим книгам, чтобы исключить беспорядок и неразбериху. Это можно сделать, вставив немного очень простого кода в частный модуль рабочей книги, что такое рабочая книга вы можете узнать на странице http://www.cyberforum.ru/ms-excel/.

Чтобы попасть в частный модуль, правой кнопкой мыши щелкните значок Excel в левом верхнем углу экрана рядом с меню Файл (File), и в контекстном меню выберите пункт Исходный текст (View Code).
[stextbox id=»warning»]Этот путь недоступен на Маc. Чтобы открыть редактор VBE (Visual Basic Editor), нужно нажать сочетание клавиш Option+F11 или выбрать команду Tools → Macro → Visual Basic Editor. Открыв редактор, в окне Projects щелкните, удерживая клавишу Ctrl, или щелкните правой кнопкой мыши пункт This Workbook.[/stextbox]
Затем введите код из листинга 1.18.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

// Листинг 1.18
Private Sub Workbook_Activate()
	On Error Resume Next
	With Application.CommandBars("MyCustomToolbar")
		.Enabled » True
			.Visible = True
	End With
	On Error GoTo 0
End Sub
 
Private Sub Workbook_Deactivate()
	On Error Resume Next
		Application.CommandBars("MyCustomToolbar").Enabled = False
	On Error GoTo 0
End Sub

Измените текст MyCustomToolbar на имя вашей пользовательской панели инструментов. Чтобы вернуться обратно в окно Excel, закройте окно модуля или нажмите сочетание клавиш Alt/Apple+Q. Если вы откроете или активируете другую книгу, ваша панель инструментов исчезнет и станет недоступной. Снова активируйте соответствующую книгу, и — сюрприз! — панель вернется.

Вы можете даже углубить эту задачу, ограничив пользовательскую панель инструментов только определенным листом в рабочей книге. Правой кнопкой мыши щелкните ярлычок с названием листа, для которого должна быть доступна панель инструментов, и в контекстном меню выберите команду Исходный текст (View Code). Введите код, приведенный в листинге 1.19.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

// Листинг 1.18
Private Sub Worksheet_Deactivate()
	On Error Resume Next
		Application.CommandBars("MyCustomToolbar").Enabled = False
	On Error GoTo 0
End Sub
 
Private Sub Worksheet_Activate()
	On Error Resume Next
		With Application.CommandBars("MyCustomToolbar")
			.Enabled = True
				.Visible = True
	End With
	On Error GoTo 0
End Sub

Теперь нажмите сочетание клавиш Alt/Apple+Q или закройте окно, чтобы вернуться в Excel.

Первая процедура (Worksheet_Deactivate) будет автоматически запускаться каждый раз, когда вы будете покидать выбранный лист, активируя другой. При этом значение свойства Enable вашей пользовательской панели инструментов меняется на значение False, запрещая ее отображение. Вторая процедура будет запускаться каждый раз, когда вы будете активировать нужный лист, устанавливая значение свойства Enable равным True и отображая пользовательскую панель инструментов.

Строка кода Application.CommandBars("MyCustomToolbar").Visible = True заново выводит вашу панель инструментов, чтобы она стала видна пользователю. Перейдите на другой лист, и панель пропадет; снова активируйте выбранный лист, и панель, как по мановению волшебной палочки, появится.

Время на прочтение
1 мин

Количество просмотров 9.7K

Если перед вам стоит задача по автоматизации чего-нибудь в excel, то забудьте про макросы, расположенные непосредственно в книге, создавайте панель инструментов (ribbon), которая

1. не зависит от конкретного файла
2. располагается в основной панели инструментов
3. дает кастомизируемый UI

Для того что бы создать такую панель вам потребуется

1) файл excel с расширением xlam, расположенный в %userprofile%appdataroamingmicrosoftaddins

2) редактор xml ресурса (для разметки кнопок)

3) определить кнопки по примеру

button id="b_MemberSelect" label="Member Select"    onAction="p_MemberSelect" imageMso="ReturnToTaskList"  size="large" 

где p_MemberSelect это процедура VBA

4) в иницилазации процедуры (в файле xlam) нужно передавать предопределенные параметры
Sub p_MemberSelect(ByVal vIRibbonControl As IRibbonControl)

Но у данного решения есть одно ограничение — нет возможности создавать формы, встроенные в панели Excel, например:

Этот пример из проекта In2Sql (плагин для Excel, который визуализирует объекты SQL). В этом плагине код создан с помощью c# и библиотек VSTO.