Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как заблокировать нажатие на кнопку при помощи макроса - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Как заблокировать нажатие на кнопку при помощи макроса
НедобрыйКлоун Дата: Суббота, 18.11.2023, 06:19 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Доброго дня. Подскажите решение с макросом.

Есть несколько кнопок с макросами, которые выполняют простые операции. И нужно макросом заблокировать некоторые из них.
В таблице L:M - находятся названия фигур, и отметка блокировки. Если в столбце L - стоит единица, то щелчок по этой фигуре нужно заблокировать (не дать макросу с нее - запуститься).
Как макросом сделать такую блокировку ?
К сообщению приложен файл: kniga.xls (48.5 Kb)
 
Ответить
СообщениеДоброго дня. Подскажите решение с макросом.

Есть несколько кнопок с макросами, которые выполняют простые операции. И нужно макросом заблокировать некоторые из них.
В таблице L:M - находятся названия фигур, и отметка блокировки. Если в столбце L - стоит единица, то щелчок по этой фигуре нужно заблокировать (не дать макросу с нее - запуститься).
Как макросом сделать такую блокировку ?

Автор - НедобрыйКлоун
Дата добавления - 18.11.2023 в 06:19
Апострофф Дата: Суббота, 18.11.2023, 10:04 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 457
Репутация: 126 ±
Замечаний: 0% ±

Excel 1997
НедобрыйКлоун, в начало каждого макроса вставьте эту строку
[vba]
Код
If Cells.Find(Application.Caller, , , xlWhole).Offset(, -1) = 1 Then Exit Sub
[/vba]
 
Ответить
СообщениеНедобрыйКлоун, в начало каждого макроса вставьте эту строку
[vba]
Код
If Cells.Find(Application.Caller, , , xlWhole).Offset(, -1) = 1 Then Exit Sub
[/vba]

Автор - Апострофф
Дата добавления - 18.11.2023 в 10:04
НедобрыйКлоун Дата: Суббота, 18.11.2023, 10:53 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Апострофф, понятно. Спасибо.
 
Ответить
СообщениеАпострофф, понятно. Спасибо.

Автор - НедобрыйКлоун
Дата добавления - 18.11.2023 в 10:53
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!