Страницы: 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.03.2018 17:37:54
Нужно бежать со всех ног, чтобы только оставаться на месте, а чтобы куда-то попасть, надо бежать как минимум вдвое быстрее!
 
Ну просто супер!!!  Спасибо !!!!
 
Вот решение. Подскажите как заметить постоянный диапазон, на Selection?
Sub UNIC()
   Dim z, i&
   z = Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row).Value
   With CreateObject("scripting.dictionary"): .CompareMode = 1
       For i = 1 To UBound(z)
           If Not .exists(z(i, 1)) Then .Item(z(i, 1)) = 0: .Item(z(i, 1)) = .Count
       Next
       For i = 1 To UBound(z): Range("A" & i + 1) = .Item(z(i, 1)): Next
   End With
End Sub
Изменено: Andreybukh - 11.06.2022 23:58:47 (Добавил вопрос)
Страницы: 1
Наверх