Πώς να απενεργοποιήσετε τη δυνατότητα εισαγωγής γραμμής και στήλης στο Excel;

Κανονικά, μπορούμε να εισάγουμε γραμμές και στήλες μεταξύ των υπαρχόντων δεδομένων γρήγορα και εύκολα, εάν αποτρέψετε την εισαγωγή άλλων στηλών ή σειρών σε ένα φύλλο εργασίας, μπορεί να μπορείτε να προστατεύσετε το φύλλο για να απενεργοποιήσετε τη λειτουργία εισαγωγής γραμμών ή στηλών. Αλλά, πώς θα μπορούσατε να απενεργοποιήσετε τη λειτουργία εισαγωγής σειράς και στήλης χωρίς προστασία φύλλου;

Αποτρέψτε τους άλλους να εισάγουν σειρές και στήλες με κώδικα VBA

Αποτρέψτε τους άλλους να εισάγουν σειρές και στήλες με κώδικα VBA

Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να απενεργοποιήσετε τη λειτουργία εισαγωγής γραμμής και στήλης στο βιβλίο εργασίας του Excel, κάντε το ως εξής:

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

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

Κωδικός VBA: αποτρέψτε την εισαγωγή γραμμών και στηλών:

Sub NoInsert()
'Updateby Extendoffice
    Dim I As Integer
    Dim cbStr As String
    Dim cbCtrl As CommandBarControl
    Application.ScreenUpdating = False
    For I = 1 To 2
        If I = 1 Then
            cbStr = "row"
        Else
            cbStr = "column"
        End If
        For Each cbCtrl In Application.CommandBars(cbStr).Controls
            If cbCtrl.ID = 3183 Then
                cbCtrl.Enabled = False
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

3. Τύπος F5 για να εκτελέσετε αυτόν τον κώδικα, τώρα όταν κάνετε δεξί κλικ για να εισαγάγετε σειρές ή στήλες, το Κύριο θέμα η επιλογή δεν μπορεί να εφαρμοστεί στο μενού περιβάλλοντος. Δείτε το στιγμιότυπο οθόνης:

:

1. Αυτό το VBA θα απενεργοποιήσει τη λειτουργία Εισαγωγή στο μενού περιβάλλοντος σε όλα τα βιβλία εργασίας όταν κάνετε δεξί κλικ για να εισαγάγετε σειρές ή στήλες.

2. Για να επαναφέρετε την εντολή Εισαγωγή στο μενού περιβάλλοντος, εφαρμόστε τον ακόλουθο κώδικα:

Sub NoInsert()
'Updateby Extendoffice
    Dim I As Integer
    Dim cbStr As String
    Dim cbCtrl As CommandBarControl
    Application.ScreenUpdating = True
    For I = 1 To 2
        If I = 1 Then
            cbStr = "row"
        Else
            cbStr = "column"
        End If
        For Each cbCtrl In Application.CommandBars(cbStr).Controls
            If cbCtrl.ID = 3183 Then
                cbCtrl.Enabled = True
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub