Как отключить функции вырезания, копирования и вставки в Excel?

Предположим, у вас есть рабочая книга с важными данными, которые нужно защитить от вырезания, копирования и вставки. Как этого добиться? В этой статье представлен метод VBA, с помощью которого вы можете одновременно отключить функции вырезания, копирования и вставки в книге Excel.

Отключить функции вырезания, копирования и вставки с кодом VBA

Отключить функции вырезания, копирования и вставки с кодом VBA

Чтобы отключить функции вырезания, копирования и вставки в книге Excel, сделайте следующее.

1. В книге вам нужно отключить функции вырезания, копирования и вставки, нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окно, пожалуйста, дважды щелкните Эта рабочая тетрадь слева Проект панели, а затем скопируйте и вставьте приведенный ниже код VBA в ThisWorkbook (Код) окно. Смотрите скриншот:

Код VBA: отключение функций вырезания, копирования и вставки одновременно в Excel

Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub

3. Затем нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно.

Теперь вы не можете вырезать или копировать данные из этой книги, а данные, которые вы скопировали с других листов или книг, не могут быть вставлены в эту книгу.

Внимание: Функция перетаскивания также отключается после выполнения вышеуказанного кода VBA.

Разблокируйте магию Excel с помощью Kutools AI

• Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
• VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формулы: Легкое понимание сложных формул.
• Перевод текста: преодолевайте языковые барьеры в своих таблицах.

Расширьте свои возможности Excel с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!

Статьи по теме:

• Как отключить щелчок правой кнопкой мыши на вкладке листа в Excel?
• Как отключить контекстное меню на указанном листе или всей книге в Excel?
• Как предотвратить или отключить режим редактирования двойным щелчком по ячейке в Excel?