А как можно? Ведь должен же быть способ снять галку с CheckBox при нажатии на кнопку Сброс_Штук ...

Ага, спасибо, действительно заработало!
Уже работа подходит к концу. Сделал кнопку для вывода на печать. Пытался в инете нарыть код для этого дела. По запросу " кнопка VBA excel вывод на печать " изучил несколько десятков ссылок - так толком и не понял что надо прописать. Подскажите кто-нить плиз ...

С музыкой забавно, но сначала хотелось бы чтоб все хоть молча заработало.
Из предыдущего примера я вынес вот что:
Лист сразу улетает на принтер "по умолчанию", а хотелось бы вызвать диалоговое окно печати, ибо хоть ориентацию листа задать надо...

Ок. Заработало.
Подскажите пожалуйста вот что. Я уже задавал этот вопрос, но он остался без ответа.
Мне нужно спрятать 60 кнопок. Я написал:
Конечно работает, но ведь можно короче записать. Пробовал циклом:
Чето не срослось...

Вот спасибо, а я голову ломаю...
По аналогии хотел спрятать другую отдельную кнопку:
В чем тут засада?

Покопался в интернете, вроде написано надо так:
Тоже не катит ...

Ну вот и так попробовал... Тоже ошибку дает:

авторPrivate Sub Сжать_Click()

With Application
.ScreenUpdating = False
.EnableEvents = False
ac = .Calculation: .Calculation = xlCalculationManual
End With


If Сжать.Value Then

Сжать.BackColor = 12648447
Hide_Запас.Value = False

With ActiveSheet
.OLEObjects("Сброс_ФИО").Visible = False

For x = 1 To 46
.OLEObjects("SpinButton" & x).Visible = False
Next
End With

For x = 10 To 59
If Cells(x, 5).Value = 0 Then Rows(x).EntireRow.Hidden = True
Next

Else

Сжать.BackColor = -2147483633
[10:59].EntireRow.Hidden = False

With ActiveSheet
.OLEObjects("Сброс_ФИО").Visible = True

For x = 1 To 46
.OLEObjects("SpinButton" & x).Visible = True
Next
End With

End If

With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = ac
End With

End Sub
В тот код, который любезно предоставил "m" (и который замечательно работает) я вставил строчки, выделенные жирным шрифтом. Нужно одновременно с прятанием 46 кнопок SpinButton 1-46 прятать еще и кнопку "Сброс_ФИО". Осталось еще несколько мелких доработок - и программу можно будет выкладывать на сайт!

Добрый день!
Выкладываю файл, с которым промучился все воскресенье. Пытался разобраться в премудростях VBA, но так и не смог найти ответа на поставленный вопрос. Искал аналогичный пример в хелпе и в инете, но сиравно ошибка вылазит...

Вот выкладываю файл - гляньте опытным глазом.
Нужно при нажатии кнопки "Сжать" прятать кнопки "Сброс_ФИО", Сброс_заказ" и т.д. Всего 5 штук. Вы легко увидите эти строки - 4 из них я их закоментировал.

Что интересно - строка:
.OLEObjects("Hide_Запас").Visible = False
работает, а 4 таких же, но с другими именами - нет ...

Если Вы добавляли кнопки не через панель элементов управления...
Я, честно говоря, и не знал,что их можно добавлять как-то по другому. Конечно я их добавлял через панель управления. Правда у меня все выглядит немного иначе - как на картинке. У меня Офис 2007.

У Вас тоже здесь красный квадратик?
Не понял вопрос. На картинке квадратик серый, такой он и есть. А крестик на нем - красный, так и должно быть, ибо назначение этой кнопки - стирать содержимое соответствующего желтого поля.

Попробую их удалить и создать заново, как Вы посоветовали - может поможет...

В самом начале этого поста Вы писали:
mЭлементы ActiveX можно найти на панели инструментов "Элементы управления".
Также есть старые элементы управления, которые применялись до появления ВБА, находятся на панели инструментов "Формы", их нужно отличать, у них есть свои возможности по управлению без непосредственного написания макроса..
То есть, действительно, нужно именно старые элементы использовать?

Ура! Первая рабочая версия создана и выложена на сайт!

Во-первых хочется сказать огромное спасибо всем тем, кто не жалея своего времени, давал нужные и полезные советы. Именно благодаря им, данная работа была завершена. Я сам модерирую форум на своем сайте http://colormusic.forum24.ru/ и тоже стараюсь помочь всем, кто просит совета...

Итак, расскажу, в чем у меня была загвоздка. Я долго и упорно пытался править код, но все время вылазила ошибка. Уважаемый товарищ, скромно именующий себя "m", направил меня в правильное русло, предположив: Если Вы добавляли кнопки не через панель элементов управления... - и действительно, в этом оказалось все дело! Попробовав на новом чистом листе создать кнопку и прописать ей "скрытие" .OLEObjects("CommandButton1").Visible = False я обнаружил, что действительно, код работает! И стал вспоминать, как я создавал кнопки... Первую кнопку я действительно сделал через Элементы ActiveX панели инструментов "Элементы управления" . А вот остальные я сделал, клонировав эту, то есть Копировать-Вставить. Вот эту-то комбинацию, видать Excel и не любит... Вобщем стер я их все, сделал новые через панель инструментов - и все работает!

Первую рабочую версию я уже выложил на сайт, посмотреть можно тут . На данный момент осталась пара глюков, которые я сейчас пытаюсь исправить.

1. Проблема, связанная с ссылкой на данный файл:
Если эту ссылку на странице ( запустить ) ткнуть из Firefox , то как и положено запускается Excel, и в него загружается этот лист. А вот если ее ткнуть из ИЕ (из Windows7), то появляется окно "Открыть или сохранить файл rsk.zip". Действительно можно сохранить этот файл и открыть его - там какая-то фигня внутри. Но у меня нет такого файла! Че за бред? Если кто может дать дельный совет - буду признателен... На страницу вставлен следующий код:
Я пока вижу одно решение проблемы - положить файл в архиве. Программу будет запускать немного сложнее, но по моему это "глюк" ИЕ, встроенного в Windiws7 - он распознает данный файл как архив ZIP.
Вот прямая ссылка на этот файл , что интересно - с этого форума нормально запускается...

2. Остался непобежденный глюк в самой программе.
Все кнопки прекрасно работают, и после нажатия "Сжать" - "Расжать" - прочно сидят на своих местах. Но вот если после нажатия кнопки "Сжать" сделать какую-либо операцию над файлом (напрмер сохранить его или вывести на печать) а потом "Расжать", то все кнопки, которые были скрыты - исчезают. Точнее складываются стопочкой под те, которые были видны. Пока решение только одно - перезагрузить программу. По возможности хотелось бы от этого глюка избавиться.

Еще раз хочется поблагодарить всех, принимающих участие в данном посте, и в качестве благодарности могу пообещать 10% скидку на нашу продукцию. Заходите, смотрите, может что кому понравится... www.colormusic.ru

Нет, с этого форума через ИЕ тоже не запускается - те же грабли... Вот положил архивом на сайт, чтобы можно было через ИЕ загрузить программу. архив RAR