Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Запуск макроса только в активной книге
 
Добрый день, появилась такая необходимость как запретить перетаскивание ячеек курсором, можно ли как-то запускать данный макрос только в той книге где он прописан?

Application.CellDragAndDrop = Falce
 
Добрый день. Можно, наверное, на событие открытия книги повесить эти инструкции.
Кому решение нужно - тот пример и рисует.
 
Данный код применяется ко всем книгам Excel

Private Sub Workbook_Open()
Application.CellDragAndDrop = Falce
End Sub
 
В стандартный модуль:
Код
Sub Auto_Open()
  Application.CellDragAndDrop = False
End Sub
   
Sub Auto_Close()
  Application.CellDragAndDrop = True
End Sub


В модуль "Эта Книга"
Код
Private Sub Workbook_Activate()
  Application.CellDragAndDrop = False
End Sub
 
Private Sub Workbook_Deactivate()
  Application.CellDragAndDrop = True
End Sub


Автор кода:
ZVI
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=71289&MID=s#postform
Изменено: Dyroff - 28 Мар 2018 17:37:54
Нужно бежать со всех ног, чтобы только оставаться на месте, а чтобы куда-то попасть, надо бежать как минимум вдвое быстрее!
 
Ну просто супер!!!  Спасибо !!!!
Страницы: 1
Читают тему (гостей: 1)