Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Отображение ТОЛЬКО собственной панели
 
#1
23.10.2010 17:24:53
Всем добрый день!  
 
Есть макрос, удачно слепленный с данного сайта (ну правда хороший ресурс).    
Так вот, я бы хотел вывести на экран свою панель инструментов с кнопкой "Сохранить", "Макросы - Безопасность", "Надстройка", "Настройки".    
При загрузке панель создаётся, при закрытии всё возвращается в первоначальный вид.    
Всё.    
Файл с макросом прилагаю.    
 
С уважением,
 
 
 
#2
23.10.2010 19:00:49
Как создать свою панель инструментов, можно почитать здесь: http://excelvba.ru/tools/CommandBar (там есть пример файла) <BR>А чтобы убрать с экрана всё лишнее (панели инструментов, и прочее), используйте этот код: http://excelvba.ru/code/another/HideCommandBarsAndRibbon <BR>Выбрать значки для кнопок своей панели инструментов можно с помощью этого макроса: http://excelvba.ru/code/FaceID
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
23.10.2010 20:34:45
{quote}{login=EducatedFool}{date=23.10.2010 07:00}{thema=}{post}Как создать свою панель инструментов, можно почитать здесь: http://excelvba.ru/tools/CommandBar (там есть пример файла) <BR>А чтобы убрать с экрана всё лишнее (панели инструментов, и прочее), используйте этот код: http://excelvba.ru/code/another/HideCommandBarsAndRibbon <BR>Выбрать значки для кнопок своей панели инструментов можно с помощью этого макроса: http://excelvba.ru/code/FaceID{/post}{/quote}  
 
Спасибо, EducatedFool!  
 
Сейчас посмотрю.
 
 
 
#4
23.10.2010 20:41:28
посмотрел ссылки ...  
вот только вопрос - как убрать всё, КРОМЕ собственной панели для меня актуален.    
Как добавить кнопки, создать - сделаю сам, правда, но вот помогите пожалуйста дописать макрос (см. первый пост), чтобы он не скрывал лишь одну панель - созданную пользователем.    
 
С уважением,
 
 
 
#5
23.10.2010 21:11:01
А вы не пробовали в макрос скрытия панелей добавить строку типа этой?  
 
.CommandBars("НазваниеМоейПанели").Enabled = not Value
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#6
23.10.2010 21:15:30
{quote}{login=EducatedFool}{date=23.10.2010 09:11}{thema=}{post}А вы не пробовали в макрос скрытия панелей добавить строку типа этой?  
 
.CommandBars("НазваниеМоейПанели").Enabled = not Value{/post}{/quote}  
 
Нет, не пробовал.    
И попробовав - запутался :)  
Прошу Вас, подсобите.    
 
С уважением,
 
 
 
#7
24.10.2010 00:01:28
Так, вот что я сделал ...    
всё работает, тему можно закрывать ... но так хочется научиться назначать собственным кнопкам определённый макросы ... :)  
 
Гуру Excel! Прошу Вас не отказать в таком лёгком для вас макросе.    
Смотрите прилагаемый файл.    
Рассматриваемая кнопка - смайлик.
 
 
 
#8
24.10.2010 00:18:45
{quote}{login=The_Prist}{date=24.10.2010 12:13}{thema=}{post}И еще. В макросе UdaliaemPanel первой строкой сделайте On error resume next - в один прекрасный день выпадет ошибка, т.к. данная панель будет не найдена вследствие каких-либо причин. А перед строкой Set NewBar = CommandBars вызывайте UdaliaemPanel. Иначе когда-нибудь у Вас создастся лишняя панель.{/post}{/quote}  
 
О! Покорнешне благодарю за совет!  
 
Я тут попробовал текст Вашего макроса - что-то не так ... смайлик без макроса ...
 
 
 
#9
24.10.2010 00:24:36
{quote}{login=The_Prist}{date=24.10.2010 12:20}{thema=Re: Re: }{post}{quote}{login=Пахом}{date=24.10.2010 12:18}{thema=Re: }{post}Я тут попробовал текст Вашего макроса - что-то не так ... смайлик без макроса ...{/post}{/quote}Прикалываетесь? У Вас там только один макрос. Я показал, как назначить его первым двум кнопкам - остальные сами.{/post}{/quote}  
 
а ... мне только для смайлика надо, поэтому не понял Вашего примера, сори.    
Ладно, всё равно разберусь.  
Спасибо Вам, The_Prist!
 
 
 
#10
24.10.2010 01:03:34
выкладываю результат этой темы.    
Макрос скрывает всё ненужное, кроме самого окна Excel.    
Затем создаёт и защищает панели инструментов с небольшим набором кнопок.    
При закрытии книги макрос возвращает всё на круги своя.    
 
ПС: Особую благодарность хочу выразить уважаемому The_Prist.    
 
С уважением,
 
 
 
#11
24.10.2010 01:04:28
{quote}{login=Пахом}{date=24.10.2010 01:03}{thema=Результат темы - кому нужно}{post}выкладываю результат этой темы.    
Макрос скрывает всё ненужное, кроме самого окна Excel.    
Затем создаёт и защищает панели инструментов с небольшим набором кнопок.    
При закрытии книги макрос возвращает всё на круги своя.    
 
ПС: Особую благодарность хочу выразить уважаемому The_Prist.    
 
С уважением,{/post}{/quote}  
 
кх кх ... сам файл :)
 
 
 
#12
24.10.2010 01:29:28
1. {quote}{login=The_Prist}{date=24.10.2010 12:13}{thema=}{post}И еще. В макросе UdaliaemPanel первой строкой сделайте On error resume next - в один прекрасный день выпадет ошибка, т.к. данная панель будет не найдена вследствие каких-либо причин.{/post}{/quote}  
2. {quote}{login=The_Prist}{date=24.10.2010 12:13}{thema=}{post}А перед строкой Set NewBar = CommandBars вызывайте UdaliaemPanel. Иначе когда-нибудь у Вас создастся лишняя панель.{/post}{/quote}  
 
По Вашим рекомендациям прилагаю файл.    
Ещё раз спасибо The_Prist!  
 
С уважением,
 
 
 
Страницы: 1
Читают тему
Наверх