Hogyan lehet letiltani a vágási, másolási és beillesztési funkciókat az Excelben?

Tegyük fel, hogy van egy munkafüzete fontos adatokkal, amelyeket meg kell védenie a kivágás, másolás és beillesztés ellen. Hogyan lehet elérni? Ez a cikk egy VBA-módszert ismertet a vágási, másolási és beillesztési funkciók egyidejű letiltására az Excel munkafüzetében.

Tiltsa le a VBA kóddal a kivágás, másolás és beillesztés funkciókat

Tiltsa le a VBA kóddal a kivágás, másolás és beillesztés funkciókat

Kérjük, tegye a következőket az Excel munkafüzet kivágási, másolási és beillesztési funkcióinak letiltásához.

1. A munkafüzetben le kell tiltania a kivágás, másolás és beillesztés funkciókat, nyomja meg a gombot más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablak, kattintson duplán Ez a munkafüzet balra NetPoulSafe projekt ablaktáblán, majd másolja és illessze be az alábbi VBA kódot a Ez a munkafüzet (kód) ablak. Lásd a képernyőképet:

VBA-kód: Tiltsa le egyszerre a kivágás, másolás és beillesztés funkciókat az Excelben

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. Ezután kérjük nyomja meg a gombot más + Q gombokkal lépjen ki a Microsoft Visual Basic for Applications ablak.

Most nem vághatja ki vagy másolhatja le az adatokat erről a munkafüzetről, miközben más lapokról vagy munkafüzetekről másolt adatokat nem lehet beilleszteni ebbe a munkafüzetbe.

Megjegyzések: A drag and drop funkció szintén le van tiltva a fenti VBA kód futtatása után.

Oldja fel az Excel Magic alkalmazást a Kutools AI segítségével

• Intelligens végrehajtás: Cellaműveletek végrehajtása, adatok elemzése és diagramok létrehozása – mindezt egyszerű parancsok hajtják végre.
• Egyedi képletek: Személyre szabott képleteket állíthat elő a munkafolyamatok egyszerűsítéséhez.
• VBA kódolás: Írjon és implementáljon VBA kódot könnyedén.
• Képlet értelmezése: Könnyedén megértheti az összetett képleteket.
• Szöveg fordítása: Törje le a nyelvi akadályokat a táblázatokban.

Növelje Excel képességeit AI-alapú eszközökkel. Töltse le most és tapasztalja meg a még soha nem látott hatékonyságot!

Kapcsolódó cikkek:

• Hogyan lehet letiltani a jobb egérgombbal az Excel lap lapját?
• Hogyan lehet letiltani a jobb egérgombbal indított menüt a megadott munkalapon vagy az Excel teljes munkafüzetében?
• Hogyan lehet megakadályozni vagy letiltani a szerkesztési módot az Excel cellájára való dupla kattintással?