delete opties uitschakelt in je Microsoft Office Excel-toepassing met behulp van Visual Basic for Applications , of VBA , kunnen gegevens in werkbladen die niet mag worden gewijzigd beschermen . Gebruik de " Workbook_SheetBeforeRightClick " evenement om de optie "Verwijderen " uit te schakelen in de menubalk . In VBA kunt u ook het werkblad beschermen door niet waardoor de gebruiker alle content met de toets " Delete " op hun toetsenbord te verwijderen . Instructies
1 Start Microsoft Office Excel en type " 1 " in " A1 ", " 2 " in " A2 ", " 3 " in " A3 ", " 4 " in " A4 " en " 5 " in " A5 . " Klik op het tabblad " Developer " en klik op " Visual Basic " om de VB -editor te starten .
Dubbelklik op " ThisWorkbook " 2 uit het deelvenster Project Explorer om de code -module te openen .
< br >
Kopieer 3 en plak de volgende code uit te schakelen " Delete " op het werkblad : Private Sub Workbook_SheetBeforeRightClick
( ByVal Sh As Object , ByVal Target As Range , Cancel As Boolean) < br > Dim cmdBCntrl Zoals CommandBarControl
Dim pos als Geheel
On Error Resume Next Sh.Protect UserInterFaceOnly
: = True
Met Application . . . CommandBars ( "Cell " ) pos
= Controls ( "Verwijderen ... " ) Index
Stel cmdBCntrl = Controls.Add . ( Vóór : = pos , Temporary : = True ) . Controls
( "Verwijderen ... " ) . Verwijder End met
On Error GoTo 0
End Sub
4 Schakel terug naar Microsoft Excel , en probeer de rechtermuisknop op een willekeurige cel . Het menu zal niet de optie "Verwijderen" . Druk op de toets " Delete" op je toetsenbord en je zal een bericht waarin staat dat de cel wordt beschermd.
|
