Запрет на вставку, на специальную вставку

[Аслан Абдрахманов]

Здравствуйте! Я не очень разбираюсь в макросах. Но чуть понятие есть. Можете предложить такой макрос, который не дает вставить горячими клавишами, специальной вставкой, короче чтобы нельзя было вообще никак вставить скопированное. А только вручную писать.

[VictorM]

Смотрите

Для того, чтобы в нужной рабочей книге "заблокировать" использование команд Вырезать, Копировать, Вставить, Специальная вставка и Формат по образцу, а также горячих клавиш CTRL+X, CTRL+C, CTRL+V скопируйте нижеприведённый код в модуль ThisWorkbook(ЭтаКнига) нужной рабочей книги.

Как в рабочей книге заблокировать стандартные кнопки, команды и горячие клавиши, которые отвечают за копирование

[SAS888]

Когда-то делал нечто подобное с перехватом ID-команд. Посмотрите пример во вложении.
Откройте файл и запустите макрос "DisAbleAllCLear". После этого ряд действий для пользователя будет заблокирован. Для того, чтобы вернуть начальное состояние, выполните макрос "EnableAllClear".
Если нужно, то выполнение этих макросов привяжите к событиям открытия (активации) и закрытия (деактивации) книги.
В коде макроса подробные комментарии. То, что Вам не требуется - уберите.

[Аслан Абдрахманов]

Не получилось! (

[Аслан Абдрахманов]

SAS888.
А что удалить, чтобы можно было писать вручную, а запрет на все вставки оставить?

[Аслан Абдрахманов]

SAS888.
Что-то получилось, но остались три варианта вставки: сохранить исходное форматирование, использовать конечное форматирование и сохранить только текст. Первые два варианта обычно показывает, когда копируешь с Word, а третий, когда копируешь с Exel выделив текст. Как заблокировать и эти?

[AndVGri]

Не идеально, очистка буфера привязана к изменению ячейки или листа (если скопировать в другой программе текст, переключится в Excel, то не меняя ячейки можно будет вставить).
В модуль книги

Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If TypeOf Sh Is Worksheet Then
        OpenClipboard 0
        EmptyClipboard
        CloseClipboard
    End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If TypeOf Sh Is Worksheet Then
        OpenClipboard 0
        EmptyClipboard
        CloseClipboard
    End If
End Sub

[Аслан Абдрахманов]

AndVGri.
Вроде ничего не изменилось. (

[Аслан Абдрахманов]

AndVGri.
Если оставаться в одной ячейке, то можно вставить. Если выбрать другую, то нет. Типа сброс делает. Но пойдет. Спасибо друзья. )

[Аслан Абдрахманов]

Но если сможете и это устранить, то буду благодарен. ) Если самим интересно. )