Cum să preveniți ștergerea rândurilor sau coloanelor dintr-un registru de lucru partajat neprotejat?
Când distribuiți un registru de lucru altora, cum puteți împiedica alții să șteargă coloanele sau rândurile din registrul dvs. de lucru partajat fără a proteja registrul de lucru? Aici găsesc un cod VBA care poate împiedica alte persoane să șteargă coloanele și rândurile dintr-un registru de lucru partajat.
Evitați ștergerea rândurilor sau coloanelor dintr-un registru de lucru partajat cu VBA
Evitați ștergerea rândurilor sau coloanelor dintr-un registru de lucru partajat cu VBA
1. presa Alt + F11 pentru a deschide o Microsoft Visual Basic pentru aplicație fereastră.
2. clic Insera > Module pentru a deschide o fereastră de modul, apoi copiați următorul VBA în fereastră.
VBA: împiedicați ștergerea rândurilor sau coloanelor.
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. clic Alerga butonul sau F5 tasta de pe tastatură pentru a rula acest cod.
Apoi, când alții dau clic dreapta pentru a șterge coloanele sau rândurile selectate, opțiunea Ștergere nu poate fi aplicată în meniul contextual. Vedeți captura de ecran:
De asemenea, împiedică utilizatorii să folosească tastele de comandă rapidă Ctrl + - pentru a șterge rânduri sau coloane.
Notă:
(1) Dacă v-ați împărtășit registrul de lucru Recenzie > Distribuiți registrul de lucru, nu mai puteți adăuga niciun macro VBA. Prin urmare, ar fi bine să adăugați VBA înainte de a partaja registrul de lucru.
(2) Acest VBA va dezactiva Șterge în meniul contextual din toate registrele de lucru când faceți clic dreapta pe coloanele sau rândurile selectate.
(3) Pentru a restabili fișierul Șterge în meniul contextual, vă rugăm să le înlocuiți pe ambele Fals cu Adevărat în VBA de mai sus și rulați din nou VBA.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!