Τρόπος απενεργοποίησης Διαγραφή σε ένα φύλλο εργασίας σε VBA

Απενεργοποίηση διαγράψετε τις επιλογές σας στο Microsoft Office Excel , χρησιμοποιώντας την εφαρμογή Visual Basic for Applications ή VBA , μπορεί να προστατεύσει τα δεδομένα σε φύλλα εργασίας που δεν πρέπει να τροποποιηθεί . Χρησιμοποιήστε το " Workbook_SheetBeforeRightClick " εκδήλωση για να απενεργοποιήσετε το " Διαγραφή" από το μενού . Στην VBA , μπορείτε επίσης να προστατεύουν το φύλλο εργασίας με το να μην επιτρέπει στο χρήστη να διαγράψει οποιοδήποτε περιεχόμενο , χρησιμοποιώντας το πλήκτρο "Delete " στο πληκτρολόγιό τους . Οδηγίες
Η 1

Εκκίνηση του Microsoft Office Excel , και πληκτρολογήστε " 1 " σε " A1 ", " 2 " σε " A2 ", " 3 " σε " A3 ", " 4 " σε " A4 " και " 5 " σε " Α5 ". Κάντε κλικ στην καρτέλα "Προγραμματιστής " , και κάντε κλικ στο " Visual Basic" για να ξεκινήσει το πρόγραμμα επεξεργασίας VB . 2

διπλό κλικ στο " ThisWorkbook " από το παράθυρο του έργου Explorer για να ανοίξετε τη λειτουργική μονάδα κώδικα .

με 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να απενεργοποιήσετε "Διαγραφή" στο φύλλο εργασίας :

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

Dim cmdBCntrl Όπως CommandBarControl

Dim pos As Integer

On Error Resume Next

Sh.Protect UserInterFaceOnly : = True

Με αίτηση . . . . Έλεγχοι CommandBars ( " κινητό " )

pos = ( "Διαγραφή ... " ) Δείκτης

Set cmdBCntrl = Controls.Add ( πριν : = pos , Προσωρινή : = True )

. ελέγχου ( "Delete ... " ) . Διαγραφή

End With

On Error GoTo 0

End Sub
Η 4

Επιστρέψτε στο Microsoft Excel , και να δοκιμάσετε κάντε δεξί κλικ σε οποιοδήποτε κελί . Το μενού δεν θα περιλαμβάνουν το " Διαγραφή " επιλογή . Πατήστε το πλήκτρο "Delete " στο πληκτρολόγιό σας και θα λάβετε ένα μήνυμα που αναφέρει ότι το κύτταρο προστατεύεται .
Η
εικόνων