Slik deaktiverer Slett på et regneark i VBA

Deaktivering slette alternativer du Microsoft Office Excel program ved hjelp av Visual Basic for Applications, eller VBA, kan beskytte data i regneark som ikke bør endres. Bruk "Workbook_SheetBeforeRightClick" hendelse for å deaktivere "Slett" fra menylinjen. I VBA, kan du også beskytte regnearket ved å ikke tillate brukeren å slette innhold ved hjelp av "Delete" -tasten på tastaturet sitt.

Bruksanvisning

1 Start Microsoft Office Excel, og skriv "1" i "A1", "2" i "A2", "3" i "A3", "4" i "A4", og "5" i "A5". Klikk på "Utvikler" fanen, og klikk på "Visual Basic" for å starte VB Editor.

2 Dobbeltklikk på "Thisworkbook" fra Project Explorer ruten for å åpne kodemodulen.

3 Kopier og lim inn følgende kode for å deaktivere "Slett" i regnearket:

Private Sub Workbook_SheetBeforeRightClick (ByVal Sh As Object, ByVal Target As Range, Avbryt As Boolean)

Dim cmdBCntrl As CommandBarControl

Dim pos As Integer

På Error Resume Next

Sh.Protect UserInterFaceOnly: = sant

Med Application.CommandBars ( "Cell")

pos = .Controls ( "Slett ..."). Indeks

Sett cmdBCntrl = .Controls.Add (Før: = pos, Midlertidig: = True)

.Controls ( "Slett ..."). Slett

End With

På Error GoTo 0

End Sub

4 Bytt tilbake til Microsoft Excel, og prøve å høyreklikke på en hvilken som helst celle. Menyen vil ikke inkludere "Slett" alternativet. Trykk på "Delete" -tasten på tastaturet, og du vil få en melding om at cellen er beskyttet.