Μετάβαση στο κύριο περιεχόμενο

Πώς να αποτρέψετε τη διαγραφή σειρών ή στηλών σε ένα κοινόχρηστο βιβλίο χωρίς προστασία;

Όταν μοιράζεστε ένα βιβλίο εργασίας σε άλλους, πώς μπορείτε να εμποδίσετε τους άλλους να διαγράψουν τις στήλες ή τις σειρές του κοινόχρηστου βιβλίου εργασίας σας χωρίς να προστατεύσουν το βιβλίο εργασίας; Εδώ βρίσκω έναν κωδικό VBA που μπορεί να εμποδίσει άλλους να διαγράψουν τις στήλες και τις σειρές σε ένα κοινόχρηστο βιβλίο εργασίας.

Αποτρέψτε τη διαγραφή σειρών ή στηλών σε ένα κοινόχρηστο βιβλίο εργασίας με το VBA


βέλος μπλε δεξιά φούσκα Αποτρέψτε τη διαγραφή σειρών ή στηλών σε ένα κοινόχρηστο βιβλίο εργασίας με το VBA

1. Τύπος Alt + F11 για να ανοίξετε ένα Microsoft Visual Basic για εφαρμογή παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης για να ανοίξετε ένα παράθυρο Module και, στη συνέχεια, αντιγράψτε το ακόλουθο VBA στο παράθυρο.

VBA: Αποτροπή διαγραφής σειρών ή στηλών.

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. κλικ τρέξιμο κουμπί ή F5 πληκτρολογήστε το πληκτρολόγιο για να εκτελέσετε αυτόν τον κωδικό.

Στη συνέχεια, όταν άλλοι κάνουν δεξί κλικ για να διαγράψουν επιλεγμένες στήλες ή σειρές, η επιλογή Διαγραφή δεν μπορεί να εφαρμοστεί στο μενού περιβάλλοντος. Δείτε το στιγμιότυπο οθόνης:

doc-disable-delete-row-στήλη-1

Επίσης, εμποδίζει τους χρήστες να χρησιμοποιούν τα πλήκτρα συντόμευσης Ctrl + - για τη διαγραφή σειρών ή στηλών.

Σημείωση:

(1) Εάν έχετε μοιραστεί το βιβλίο εργασίας σας με Βαθμολογία Κριτικής > Κοινή χρήση βιβλίου εργασίας, δεν μπορείτε πλέον να προσθέσετε μακροεντολές VBA. Επομένως, καλύτερα να προσθέσετε το VBA πριν μοιραστείτε το βιβλίο εργασίας.

(2) Αυτό το VBA θα απενεργοποιήσει το Διαγραφή στο μενού περιβάλλοντος σε όλα τα βιβλία εργασίας όταν κάνετε δεξί κλικ σε επιλεγμένες στήλες ή σειρές.

(3) Για να επαναφέρετε το Διαγραφή στο μενού περιβάλλοντος, αντικαταστήστε και τα δύο Ψευδής με Οι αληθινοί στο VBA παραπάνω και εκτελέστε ξανά το VBA.

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Está genial el código! Gracias! Pero esto no bloquea el poder eliminar la fila haciendo CTRL- .....
Sabrías cómo poder bloquearlo también?

Gracias!
This comment was minimized by the moderator on the site
Hi, I have updated the code in the article, you can try again, now it prevent the shortcuts and the delete command.
This comment was minimized by the moderator on the site
Bonjour

Je n'arrive plus à supprimer le fait de supprimer des lignes maintenant que j'ai créer ce code VBA.
Comment se traduit "les Vetitables" en français j'ai essayé "true" mais ça ne fonctionne pas

Merci de votre réponse
This comment was minimized by the moderator on the site
Sorry, Sand, I do not understand French.
This comment was minimized by the moderator on the site
Nice piece of code, but it doesn't prevent the user from using {ctrl} - to delete rows...
This comment was minimized by the moderator on the site
Vba code to disable delete, cut and insert option in Excel hoe ribbon
This comment was minimized by the moderator on the site
Can you Please share the vba code to disable Cut,Insert and Delete option in Home ribbon??? However i know thw vba code to disable it through right click and keyboard. But here i need code to disable cut, insert and delet option in excel home ribbon.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations