Πώς να αποτρέψετε τη διαγραφή σειρών ή στηλών σε ένα κοινόχρηστο βιβλίο χωρίς προστασία;
Όταν μοιράζεστε ένα βιβλίο εργασίας σε άλλους, πώς μπορείτε να εμποδίσετε τους άλλους να διαγράψουν τις στήλες ή τις σειρές του κοινόχρηστου βιβλίου εργασίας σας χωρίς να προστατεύσουν το βιβλίο εργασίας; Εδώ βρίσκω έναν κωδικό 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 πληκτρολογήστε το πληκτρολόγιο για να εκτελέσετε αυτόν τον κωδικό.
Στη συνέχεια, όταν άλλοι κάνουν δεξί κλικ για να διαγράψουν επιλεγμένες στήλες ή σειρές, η επιλογή Διαγραφή δεν μπορεί να εφαρμοστεί στο μενού περιβάλλοντος. Δείτε το στιγμιότυπο οθόνης:
Επίσης, εμποδίζει τους χρήστες να χρησιμοποιούν τα πλήκτρα συντόμευσης Ctrl + - για τη διαγραφή σειρών ή στηλών.
Σημείωση:
(1) Εάν έχετε μοιραστεί το βιβλίο εργασίας σας με Βαθμολογία Κριτικής > Κοινή χρήση βιβλίου εργασίας, δεν μπορείτε πλέον να προσθέσετε μακροεντολές VBA. Επομένως, καλύτερα να προσθέσετε το VBA πριν μοιραστείτε το βιβλίο εργασίας.
(2) Αυτό το VBA θα απενεργοποιήσει το Διαγραφή στο μενού περιβάλλοντος σε όλα τα βιβλία εργασίας όταν κάνετε δεξί κλικ σε επιλεγμένες στήλες ή σειρές.
(3) Για να επαναφέρετε το Διαγραφή στο μενού περιβάλλοντος, αντικαταστήστε και τα δύο Ψευδής με Οι αληθινοί στο VBA παραπάνω και εκτελέστε ξανά το VBA.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!