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

Вход

Регистрация

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

 

= Мир MS Excel/Как запустить макрос (или сообщение) при вырезании ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как запустить макрос (или сообщение) при вырезании ячейки (Макросы Sub)
Как запустить макрос (или сообщение) при вырезании ячейки
Gauradas Дата: Пятница, 12.07.2013, 20:28 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Здравствуйте! Помогите разобраться!
Составил программку и защитил лист кроме пользовательской группы ячеек.
Все прекрасно работает!
Но есть одна проблема: если пользователь захочет вырезать данные из одной незащищенной ячейки и вставит их в другую то все связи нарушатся и программа перестанет правильно работать.
Вопрос можно ли как то защитить группу ячеек от вырезания или чтобы при вырезании любой ячейки из заданного диапазона, к примеру, выскакивало сообщение о недопустимости данного действия и пользователь смог вернуть операцию.
К сообщению приложен файл: Swar_2_midi-dad.rar (96.8 Kb)


Сообщение отредактировал Gauradas - Пятница, 12.07.2013, 20:29
 
Ответить
СообщениеЗдравствуйте! Помогите разобраться!
Составил программку и защитил лист кроме пользовательской группы ячеек.
Все прекрасно работает!
Но есть одна проблема: если пользователь захочет вырезать данные из одной незащищенной ячейки и вставит их в другую то все связи нарушатся и программа перестанет правильно работать.
Вопрос можно ли как то защитить группу ячеек от вырезания или чтобы при вырезании любой ячейки из заданного диапазона, к примеру, выскакивало сообщение о недопустимости данного действия и пользователь смог вернуть операцию.
Автор - Gauradas
Дата добавления - 12.07.2013 в 20:28
Serge_007 Дата: Пятница, 12.07.2013, 20:34 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Можно в принципе отключить ПКМ и Ctrl+X
Будет работать до тех пор, пока пользователь просто не отключит макросы

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеМожно в принципе отключить ПКМ и Ctrl+X
Будет работать до тех пор, пока пользователь просто не отключит макросы
Автор - Serge_007
Дата добавления - 12.07.2013 в 20:34
Gauradas Дата: Пятница, 12.07.2013, 21:06 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
а это как? Отключить ПКМ?
Может все таки есть какой нибудь способ обработать событие на листе при вырезании ячейки
[vba]
Код
Range("XX").Select
Application.CutCopyMode = False
Selection.Cut
[/vba]
?


Сообщение отредактировал Gauradas - Пятница, 12.07.2013, 21:12
 
Ответить
Сообщениеа это как? Отключить ПКМ?
Может все таки есть какой нибудь способ обработать событие на листе при вырезании ячейки
[vba]
Код
Range("XX").Select
Application.CutCopyMode = False
Selection.Cut
[/vba]
?
Автор - Gauradas
Дата добавления - 12.07.2013 в 21:06
KuklP Дата: Пятница, 12.07.2013, 21:12 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Кросс: http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=1&TID=49656

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеКросс: http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=1&TID=49656
Автор - KuklP
Дата добавления - 12.07.2013 в 21:12
Serge_007 Дата: Пятница, 12.07.2013, 21:14 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата (Gauradas, 12.07.2013 в 21:06, в сообщении №3)
это как? Отключить ПКМ?

[vba]
Код
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
     Cancel = True
End Sub
[/vba]

ЗЫ Оформляйте коды тегами!

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата (Gauradas, 12.07.2013 в 21:06, в сообщении №3)
это как? Отключить ПКМ?

[vba]
Код
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
     Cancel = True
End Sub
[/vba]

ЗЫ Оформляйте коды тегами!
Автор - Serge_007
Дата добавления - 12.07.2013 в 21:14
Gauradas Дата: Пятница, 12.07.2013, 21:30 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Спасибо! Работает, на мышь не реагирует. Но если зайти в меню Правка то вырезать и вставить не составит большого труда smile


Сообщение отредактировал Gauradas - Пятница, 12.07.2013, 21:36
 
Ответить
СообщениеСпасибо! Работает, на мышь не реагирует. Но если зайти в меню Правка то вырезать и вставить не составит большого труда smile
Автор - Gauradas
Дата добавления - 12.07.2013 в 21:30
Serge_007 Дата: Пятница, 12.07.2013, 21:33 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата (Gauradas, 12.07.2013 в 21:30, в сообщении №6)
если зайти в меню Правка

Gauradas, Вы читать умеете? Я что написал:
Цитата (Serge_007, 12.07.2013 в 20:34, в сообщении №2)
отключить ПКМ и Ctrl+X

Что тут непонятного?

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата (Gauradas, 12.07.2013 в 21:30, в сообщении №6)
если зайти в меню Правка

Gauradas, Вы читать умеете? Я что написал:
Цитата (Serge_007, 12.07.2013 в 20:34, в сообщении №2)
отключить ПКМ и Ctrl+X

Что тут непонятного?
Автор - Serge_007
Дата добавления - 12.07.2013 в 21:33
Gauradas Дата: Пятница, 12.07.2013, 21:37 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Да спасибо я прочитал!
Единственное запрет на копирование мне совсем не нужен. Копирование нужно оставить!
Нужен запрет только на вырезание.
То есть вырезал ячейку а на это событие программа среагировала и послала сообщение "Ошибочка!"
 
Ответить
СообщениеДа спасибо я прочитал!
Единственное запрет на копирование мне совсем не нужен. Копирование нужно оставить!
Нужен запрет только на вырезание.
То есть вырезал ячейку а на это событие программа среагировала и послала сообщение "Ошибочка!"
Автор - Gauradas
Дата добавления - 12.07.2013 в 21:37
Serge_007 Дата: Пятница, 12.07.2013, 22:09 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата (Gauradas, 12.07.2013 в 21:37, в сообщении №8)
я прочитал, запрет на копирование мне совсем не нужен
Ткните пальцем, где именно я предложил запрет на копирование. Мне просто самому интересно, из каких моих слов был сделан именно такой вывод

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата (Gauradas, 12.07.2013 в 21:37, в сообщении №8)
я прочитал, запрет на копирование мне совсем не нужен
Ткните пальцем, где именно я предложил запрет на копирование. Мне просто самому интересно, из каких моих слов был сделан именно такой вывод
Автор - Serge_007
Дата добавления - 12.07.2013 в 22:09
Gauradas Дата: Пятница, 12.07.2013, 22:17 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Да мы просто заблокировали ПКМ а отсюда потеряли еще и Копирование-Вставка.
Это немножко не то...
Я бы хотел оставить опцию копирования а вот опцию вырезания запретить или хотя бы запустить предупреждающий MsgBox


Сообщение отредактировал Gauradas - Пятница, 12.07.2013, 22:19
 
Ответить
СообщениеДа мы просто заблокировали ПКМ а отсюда потеряли еще и Копирование-Вставка.
Это немножко не то...
Я бы хотел оставить опцию копирования а вот опцию вырезания запретить или хотя бы запустить предупреждающий MsgBox
Автор - Gauradas
Дата добавления - 12.07.2013 в 22:17
Serge_007 Дата: Пятница, 12.07.2013, 22:24 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата (Gauradas, 12.07.2013 в 22:17, в сообщении №10)
потеряли еще и Копирование-Вставка
Кто именно отключил у Вас Ctrl+C или Ctrl+Insert?
Я?
Если да - то покажите где именно
Если нет - то тогда почему вопрос ко мне, если я сразу сказал что:
Цитата (Serge_007, 12.07.2013 в 20:34, в сообщении №2)
Можно в принципе отключить ПКМ

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата (Gauradas, 12.07.2013 в 22:17, в сообщении №10)
потеряли еще и Копирование-Вставка
Кто именно отключил у Вас Ctrl+C или Ctrl+Insert?
Я?
Если да - то покажите где именно
Если нет - то тогда почему вопрос ко мне, если я сразу сказал что:
Цитата (Serge_007, 12.07.2013 в 20:34, в сообщении №2)
Можно в принципе отключить ПКМ
Автор - Serge_007
Дата добавления - 12.07.2013 в 22:24
Gauradas Дата: Пятница, 12.07.2013, 22:27 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Все ясно претензий то нет... Совет же нужен - а не выяснение того, кто что сказал... Приношу свои извинения за некорректные ответы... Вы все написали в первой строчке...
Что ж - это тоже вариант...
 
Ответить
СообщениеВсе ясно претензий то нет... Совет же нужен - а не выяснение того, кто что сказал... Приношу свои извинения за некорректные ответы... Вы все написали в первой строчке...
Что ж - это тоже вариант...
Автор - Gauradas
Дата добавления - 12.07.2013 в 22:27
Gauradas Дата: Пятница, 12.07.2013, 22:32 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Как можно программно обработать событие вырезать-вставить?
 
Ответить
СообщениеКак можно программно обработать событие вырезать-вставить?
Автор - Gauradas
Дата добавления - 12.07.2013 в 22:32
Serge_007 Дата: Пятница, 12.07.2013, 22:34 | Сообщение № 14
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Запишите макрорекордером

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗапишите макрорекордером
Автор - Serge_007
Дата добавления - 12.07.2013 в 22:34
Gauradas Дата: Пятница, 12.07.2013, 22:53 | Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Всем добрым людям спасибо!
Вопрос решился на "Планете" весьма просто:

[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       If Application.CutCopyMode = xlCut Then
       Application.CutCopyMode = False
       End If
End Sub
[/vba]

Теперь после вырезания ячейки в Меню опция Вставить просто не появляется оставаясь не активной!
Чудесное решение!
Мудрость - это Сила!


Сообщение отредактировал Gauradas - Суббота, 13.07.2013, 07:23
 
Ответить
СообщениеВсем добрым людям спасибо!
Вопрос решился на "Планете" весьма просто:

[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       If Application.CutCopyMode = xlCut Then
       Application.CutCopyMode = False
       End If
End Sub
[/vba]

Теперь после вырезания ячейки в Меню опция Вставить просто не появляется оставаясь не активной!
Чудесное решение!
Мудрость - это Сила!
Автор - Gauradas
Дата добавления - 12.07.2013 в 22:53
SkyPro Дата: Суббота, 13.07.2013, 00:00 | Сообщение № 16
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[offtop]на планете ответ дали.[/offtop]

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Суббота, 13.07.2013, 00:14
 
Ответить
Сообщение[offtop]на планете ответ дали.[/offtop]
Автор - SkyPro
Дата добавления - 13.07.2013 в 00:00
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как запустить макрос (или сообщение) при вырезании ячейки (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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