Excel запрет перетаскивания ячеек

Посмотрите такой вариант.
Кнопка на панели инструментов, в меню по ПКМ, комбинации Ctrl+v и Shift+Insert переназначены на вставку только значений, условное_форматирование не захватывается. Все это только на Лист1, в других листах и книгах все как обычно. Для нормальной встаки оставлен путь Правка-Вставить. Есть еще несколько путей обхода, но я думаю, что Вашим «особогениальным» не нужно будет их находить и поэтму не стал блокировать совсем все.

Скажи мне, кудесник, любимец ба’гов…

Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

Мне кажется что тут проще сделать макрос, который просто будет запрещать вставлять что-либо и как-либо, с всплывающем сообщением (ЗАПРЕЩЕНО!ЕПТ!)

только я не знаю как такой макрос сделать 

А я вставил в меню ПКМ следующий пункт и чуствую себя «нормально»

Sub AddShortCut()
        With ComBar.Controls.Add(Type:=msoControlButton)
            .OnAction = "MyPaste"
            .FaceId = 22
            .Caption = "Вставить значение"
        End With
End Sub

Из всех предложенных вариантов, ничего не понял…
помогите, мне тоже нужна такая возможность «запрета вставки»…
не ужели нет какого нить простого макроса, с запретом кнопки вставки…

Находясь в среде Excel нажмите «Alt+F11», откроется окно редактора VBA
Раскройте VBAProject(«Ваша Книга«) …  в модуле «ЭтаКнига» вставьте следующий код


Private Sub Workbook_Open()
    With Application
        .OnKey "^{v}", "MyPaste"
        .OnKey "+{INSERT}", "MyPaste"
        .Run ("AddMyPaste")
    End With
End Sub

затем, ПКМ по VBAProject вызываем меню и добавляем(insert) новый модуль
в Вновь созданный модуль вставьте следующий код


Sub AddMyPaste()
    With CommandBars("Cell").Controls.Add(Type:=msoControlButton, Before:=1)
        .OnAction = "MyPaste"
        .FaceId = 22
        .Caption = "Вставить значение"
    End With
End Sub

во вложении файл с кодом

Что-то у меня все равно вставляется…

я копирую данные из другого ексел файла, и вставляю в пример из вложения… и все равно вставляется, даже с заливкой и с линиями….

не понятно((

 А макросы включили?
В меню ПКМ «Вставить значение» появилось?

сделал все как описано…

а что за меню ПКМ?  я делал написано:

Цитироватьзатем, ПКМ по VBAProject вызываем меню и добавляем(insert) новый модуль
в Вновь созданный модуль вставьте следующий код

и туда вставлял код

ПКМ — Правая Кнопка Мышки

Если Вы запускаете файл и Разрешаете запуск макросов, то в меню ПКМ на ячейке(когда выделена одна/группа ячеейк, а не строка или столбец) должен появиться новый пункт «Вставить значение», если такового не появилось, значит макросы отключены. Возможно, Вам надо сменить уровень безопасности Excel на менее «жесткий» (Сервис/Параметры/Безопасность/Безопасность макросов) Рекомендую «Среднюю» поставить.

все, я понял…. макрос работает….

только вот никакого запрета  copy-paste тут нет. Ведь необходимо чтобы вообще никак нельзя было вставить скопированное…

вот в чем вопрос…)

Что Вам мешает?
Включите воображение

Private Sub MyPaste()
      msgbox("Здесь нельзя вставить скопированное :)")
End Sub

Если через Ctrl +V или shift +insert, то вставку блокирует… но вот если вставлять через Правка — Вставить, то все равно вставляется. Можно ли как то и это заблокировать?

Если для Вас так важно, что бы изменения не вносились в лист, то не проще ли воспользоваться стандартными средствами (Защитить Лист)
Во вложении файл, который кроме клавишь отключает Вставку изо всех контекстных меню.
Это максимум, что я могу для Вас сделать. 

спасибо!! все отлично работает))

boa
у меня опять проблема…запускал вам пример дома на 2007 excel’e, все работало… а вот на работе на 2003, почему то через Правка-Вставить, все равно вставляется… хотя в меню ПКМ — Вставить, блокируется…
непонятно((

Странно, в 2007-м тоже должно вставляться из меню панели
я не знаю как отключить эту вставку

I have a spreadsheet where users input information into column A that is used in formulas in column B. B1 uses the information in A1, B2 uses in the information in A2, etc.

The sheet is «protected» to only allow users to select and change unlocked cells in column A. They should not be able to change the formatting or structure of the sheet. However, even when the sheet is protected, they are able to «move» cell contents by clicking on the frame of cell and dragging it onto another cell.

If they move A1 onto A2, B1 is now using the information in A2, and B2 gives a reference error.

I would like that, when a user «moves» a cell, a macro is fired that will undo the move.

How can I programmatically detect when a cell is moved or is there a different solution?

Does anyone know of a way to detect when a cell is moved programmatically, or have a different solution to my issue? Other than Microsoft not overlooking this issue with sheet protection

I have another solution.

Disable the drag-and-drop functionality in this workbook. The tricky part is that this is an Application-level setting, so you need to toggle it Enabled/Disabled based on which workbook is Active.

This is not exactly beginner level VBA but I have documented it in THIS ANSWER and provided a link to an XLSM file containing all of the sample code & modules.

Realize this is an old post, but I came across it looking for the same thing so I’m sharing an alternate way to address this that I subsequently came up with.

Use the OFFSET function to reference the cells in your formula so that you don’t have to worry about the drag-and-drop moving the referenced cells. In the example, B1 references the value in A1, so in B1 use OFFSET(B1,0,-1) to reference A1.