Come disabilitare la possibilità di inserire righe e colonne in Excel?
Normalmente, possiamo inserire righe e colonne tra i dati esistenti in modo rapido e semplice, se impedisci ad altri di inserire colonne o righe in un foglio di lavoro, potresti proteggere il foglio per disabilitare la funzione di inserimento di righe o colonne. Ma come potresti disabilitare la funzione di inserimento riga e colonna senza proteggere il foglio?
Impedisci ad altri di inserire righe e colonne con codice VBA
Impedisci ad altri di inserire righe e colonne con codice VBA
Il seguente codice VBA può aiutarti a disabilitare la funzione di inserimento di righe e colonne nella cartella di lavoro di Excel, per favore fai come segue:
1. stampa Alt + F11 aprire a Microsoft Visual Basic per l'applicazione finestra.
2. Clic inserire > Moduli per aprire una finestra del modulo, quindi copiare il seguente VBA nella finestra.
Codice VBA: impedisce l'inserimento di righe e colonne:
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. stampa F5 chiave per eseguire questo codice, ora quando fai clic con il pulsante destro del mouse per inserire righe o colonne, il file inserire l'opzione non può essere applicata nel menu contestuale. Vedi screenshot:
Note:
1. Questo VBA disabiliterà la funzione Inserisci nel menu contestuale in tutte le cartelle di lavoro quando si fa clic con il pulsante destro del mouse per inserire righe o colonne.
2. Per ripristinare il comando Inserisci nel menu contestuale, applicare il seguente codice:
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
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
