Kako preprečiti brisanje vrstic ali stolpcev v deljeni zvezki v skupni rabi?

Ko lahko delite delovni zvezek z drugimi, kako lahko drugim preprečite brisanje stolpcev ali vrstic delovnega zvezka v skupni rabi, ne da bi zaščitili delovni zvezek? Tu najdem kodo VBA, ki drugim lahko prepreči brisanje stolpcev in vrstic v deljenem delovnem zvezku.

Preprečite brisanje vrstic ali stolpcev v deljeni knjigi v skupni rabi z VBA

Preprečite brisanje vrstic ali stolpcev v deljeni knjigi v skupni rabi z VBA

1. Pritisnite Alt + F11 da odprete Microsoft Visual Basic za uporabo okno.

2. klik Vstavi > Moduli da odprete okno modula, nato v okno kopirajte naslednji VBA.

VBA: preprečite brisanje vrstic ali stolpcev.

Sub StopDeleteRowCols()
'Updateby20221221
Dim xBarControl As CommandBarControl
Application.OnKey "^{-}", ""
For Each xBarControl In Application.CommandBars.FindControls(ID:=293)
    xBarControl.Enabled = False
Next
For Each xBarControl In Application.CommandBars.FindControls(ID:=294)
    xBarControl.Enabled = False
Next
End Sub

3. klik Run gumb ali F5 tipko na tipkovnici za zagon te kode.

Ko drugi z desno miškino tipko izbrišejo izbrane stolpce ali vrstice, možnosti Izbriši v kontekstnem meniju ni mogoče uporabiti. Oglejte si posnetek zaslona:

Prav tako uporabnikom preprečuje uporabo bližnjičnih tipk Ctrl + - za brisanje vrstic ali stolpcev.

Opomba:

(1) Če ste delovni zvezek delili z pregled > Delite delovni zvezek, ne morete več dodati nobenega makra VBA. Zato raje dodajte VBA, preden delite delovni zvezek.

(2) Ta VBA bo onemogočil Brisanje v kontekstnem meniju v vseh delovnih zvezkih, ko z desno miškino tipko kliknete izbrane stolpce ali vrstice.

(3) Če želite obnoviti datoteko Brisanje v priročnem meniju zamenjajte obe False z True v VBA zgoraj in znova zaženite VBA.