Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Запрет протягивания ячеек
 
#1
19.09.2018 08:10:40
Уважаемые форумчане, подскажите пожалста, можно ли объявить запрет на протягивание ячеек на листе (за квадратик в правом нижнем углу выделения)?
 
 
 
#2
19.09.2018 09:32:11
Уберите птичку:
Не стреляйте в тапера - он играет как может.
 
 
 
#3
19.09.2018 11:50:11
А эта настройка будет применена к книге независимо от того, с какого компьютера она будет открыта? Или это только персональная настройка приложения?
 
 
 
#4
19.09.2018 12:17:21
Это параметр Excel на конкретном компьютере. Вам нужен запрет в конкретном файле только от протягивания? А от копирования/вставки или ручного изменения по отдельности?
Не стреляйте в тапера - он играет как может.
 
 
 
#5
19.09.2018 12:30:07
Цитата
Ts.Soft написал:
нужен запрет в конкретном файле только от протягивания
Да. Остальные функции нужны рабочими
 
 
 
#6
19.09.2018 12:38:43
Ts.Soft, спасибо за птичку, нашел параметр макрорекордером - Application.CellDragAndDrop = False
 
 
 
#7
19.09.2018 13:11:12
Если Вы хотите повесить запрет протяжки на событие открытия книги, то следуя правилам хорошего тона не забудьте вернуть как было перед закрытием.
Код
Dim DragAndDrop As Boolean

Private Sub Workbook_Open()
    DragAndDrop = Application.CellDragAndDrop
    If DragAndDrop Then Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CellDragAndDrop = DragAndDrop
End Sub
Не стреляйте в тапера - он играет как может.
 
 
 
#8
19.09.2018 13:28:07
Ts.Soft, оу, это важно, не подумал. Спасибо большое!
 
 
 
#9
16.11.2020 14:49:04
Цитата
Ts.Soft написал:
то следуя правилам хорошего тона
Возможно ли запретить протягивание только для одного определённого столбца?
 
 
 
#10
16.11.2020 14:54:40
Кирилл, как правила хорошего тона связаны с Вашим вопросом? :) Цитировать нужно с умом.
 
 
 
#11
17.11.2020 07:10:19
Цитата
vikttur написал:
Цитировать нужно с умом.
Хорошо :)
А еще странно, что эксель не в состоянии своим же правилам следовать. У меня заполнение ячеек идет по проверке данных, там 5 значений. Но если одно из значений протянуть вниз, то проверка данных игнорируется. Как по мне, так это бред собачий :)
 
 
 
#12
17.11.2020 08:09:31
Цитата
Кирилл написал:
А еще странно
что в тему с совершенно однозначныи вопросом пытаются повесить все остальные.
Если определенный столбец H, то
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("H:H")) Is Nothing Then
    Application.CellDragAndDrop = False
Else
    Application.CellDragAndDrop = True
End If
End Sub
По вопросам из тем форума, личку не читаю.
 
 
 
Страницы: 1
Наверх