Собственная Панель инструментов

09.06.2011, 19:15. **Показов** 1964. **Ответов** 3

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

Господа, товарищи, подскажите, пожалуйста, как сделать неактивной кнопку на собственной панели.

Кнопки на панель кинул, макросы назначил, но фишка в том, что на разных листах мне все они не нужны и часть из них надо сделать неактивными.

Единственный код который я нашел это

Visual Basic

1
2
3

Application.CommandBars 
'Gorka').Controls.Add Type:=msoControlButton, ID:= _ 
2950, Before:=2

Я непойму как она называется.
Нужно сделать что-то типа

Visual Basic

1
2
3

Private Sub Worksheet_Activate() 
НазваниеКнопки.Enabled = false 
End Sub

09.06.2011, 20:15

Т.е. насколько я понял, Имя уже созданной кнопки не узнаешь и его можно узнать, только при создании в самой программе так нет.

И вообще такое свойство как enable существует или надо воспользоваться visible

Заранее Большое Человеческое Спасибо !!!

@Димит · 09.06.2011, 20:39

Если не хочешь связыватся с именами, то

Visual Basic

1	Application.CommandBars('Gorka').Controls(1).Enabled = false

А если на кнопках есть надписи (они же имена), то

Visual Basic

1	Application.CommandBars('Gorka').Controls('МояЛюбимаяКнопка').Enabled = false

13.06.2011, 10:22

Понял, большое спасибо!!!!!!! Сделал, работает, Теперь пойду изучать волшебное слово Application.

Bober
	09.06.2011, 20:15	2
	Т.е. насколько я понял, Имя уже созданной кнопки не узнаешь и его можно узнать, только при создании в самой программе так нет. И вообще такое свойство как enable существует или надо воспользоваться visible Заранее Большое Человеческое Спасибо !!!

Bober
	13.06.2011, 10:22	4
	Понял, большое спасибо!!!!!!! Сделал, работает, Теперь пойду изучать волшебное слово Application.