Как да деактивирате функциите за изрязване, копиране и поставяне в Excel?
Да предположим, че имате работна книга с важни данни, които трябва да защитите от изрязване, копиране и поставяне. Как да го постигнем? Тази статия предоставя метод на VBA, за да деактивирате функциите за изрязване, копиране и поставяне едновременно в работна книга на Excel.
Деактивирайте функциите за изрязване, копиране и поставяне с VBA код
Деактивирайте функциите за изрязване, копиране и поставяне с VBA код
Моля, направете следното, за да деактивирате функциите за изрязване, копиране и поставяне в работна книга на Excel.
1. В работната книга трябва да деактивирате функциите за изрязване, копиране и поставяне, моля, натиснете Друг + F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, моля щракнете два пъти Тази работна книга вляво Проект прозорец и след това копирайте и поставете кода на VBA по-долу в Тази работна книга (код) прозорец. Вижте екранна снимка:
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?
- Как да деактивирам менюто с десен бутон в определен работен лист или цяла работна книга в Excel?
- Как да предотвратите или деактивирате режима на редактиране чрез двойно щракване върху клетка в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!