Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Запрет копирования и вставки
 
#1
12.02.2011 19:19:41
Добрый вечер.  
возможно ли сделать так, чтобы на листе нельзя было вручную использовать метод копировать-вставить? т.е. полностью запретить copy-paste?  
Спасибо.
 
 
 
#2
12.02.2011 19:30:53
{quote}{login=Диана}{date=12.02.2011 07:19}{thema=Запрет копирования и вставки}{post}Добрый вечер.  
возможно ли сделать так, чтобы на листе нельзя было вручную использовать метод копировать-вставить? т.е. полностью запретить copy-paste?  
Спасибо.{/post}{/quote}  
 
Использовать защиту листа.
 
 
 
#3
12.02.2011 19:42:51
спасибо за идею :) уточню ситуацию :)  
Есть макрос, срабатывает по Worksheet_Change:  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
 
Dim sR As Range  
 
Set sR = Range(Cells(9, 4), Cells(opr_a, 34))  
If Target.Cells.Count > 1 Then Exit Sub  
If Not Intersect(Target, sR) Is Nothing Then  
Call tab35_49  
Call hide  
End If  
End Sub  
 
opr_a - это пользовательская функция, определяет последнюю ячейку заполненную.  
 
но дело в том, что если изменяется больше одной ячейки за один раз (допустим скопировать одну ячейку и выделить диапазон, потом вставить), в этом случае макрос отказывается работать.  
 
Возможно ли каким-то образом исправить ситуацию?  
 
Call tab35_49 - математические вычисления  
Call hide - скрытие и открытие дополнительных строк и столбцов, не входящих в диапазон.  
 
Спасибо :)
 
 
 
#4
12.02.2011 19:45:22

Привет! <BR>Вот тут было подобное: http://www.planetaexcel.ru/forum.php?thread_id=13413
 
 
 
#5
12.02.2011 19:53:48
Спасибо, Юрий, за ссылочку... изучила... получается hotkey отключены, отлично. Но конт. меню позволяет копировать и вставлять...
 
 
 
#6
12.02.2011 19:56:11
а возможно ли как-нибудь мой макрос подправить, чтобы он срабатывал при изменении нескольких ячеек диапазона одновременно?
 
 
 
#7
12.02.2011 20:10:44
По поводу контекстного меню у Димы ведь всё реализовано.    
По поводу СРАЗУ нескольких ячеек - утверждать не могу, что это невозможно, но такое решение мне не попадалось.
 
 
 
#8
12.02.2011 20:16:41
http://www.planetaexcel.ru/forum.php?thread_id=12215
 
 
 
#9
12.02.2011 20:23:41
Спасибо, Юрий, разбираюсь со ссылками... позже отпишусь, что получилось :)
 
 
 
#10
12.02.2011 20:25:52
Привет, Ди!  
 
> если изменяется больше одной ячейки за один раз ..., в этом случае макрос отказывается работать.  
Возможно ли каким-то образом исправить ситуацию?  
 
Да, удалить строку  
If Target.Cells.Count > 1 Then Exit Sub  
 
Если надо произвести какие-то действия с каждой измененной ячейкой в sR, то  
 
set Target=intersect(Target, sR)  
if not target is nothing then  
for each x in Target  
'действия с яч. х  
next  
end if  
Если пересечения нет, ошибки не будет и цикл не пройдет ни разу.
 
 
 
#11
12.02.2011 20:31:43
Казанский, спасибо за принятие участия и помощь! :) внедряю :)
 
 
 
#12
12.02.2011 20:35:09
Юрий, Казанский, и примерам Дмитрия и ZVI спасибо за помощь, проблему решила :)
 
 
 
#13
13.02.2011 00:32:59
Приложил ещё один вариант блокировки вставки на листе
 
 
 
#14
14.02.2011 07:31:33
Private Sub Worksheet_Activate() делает команды контекстного меню "вырезать", "копировать", "вставить", "специальная вставка" недоступными.  
Предупреждение: для возврата к нормальной жизни закоментировать exit sub и выполнить ещё раз.
 
 
 
#15
14.02.2011 08:51:33
{quote}{login=k61}{date=14.02.2011 07:31}{thema=ещё вариант}{post}Private Sub Worksheet_Activate() делает команды контекстного меню "вырезать", "копировать", "вставить", "специальная вставка" недоступными.  
Предупреждение: для возврата к нормальной жизни закоментировать exit sub и выполнить ещё раз.{/post}{/quote}  
Тогда Вам ещё и от Ctrl-С, Ctrl-X внутри ячеек или в зоне формулы придется избавляться, а также от Ctrl-V и прочих "горячих" клавиш :-)
 
 
 
#16
14.02.2011 09:02:14
да придётся. но способ убиения команд меню тоже имеет место быть:)
 
 
 
#17
14.02.2011 14:37:20
{quote}{login=k61}{date=14.02.2011 09:02}{thema=re:ZVI}{post}да придётся. но способ убиения команд меню тоже имеет место быть:){/post}{/quote}Да, конечно.  
Но я о том, что заблокировать, например, работу CTRL-C и CTRL-V в режиме редактирования ячейки с помощью OnKey не получится, придется задействовать сабклассинг с помощью API, что совсем не просто.
 
 
 
Страницы: 1
Читают тему
Наверх