Come si fa a disabilitare la possibilità di inserire righe e colonne in Excel?
Di solito, possiamo inserire righe e colonne tra i dati esistenti in modo rapido e semplice. Se si desidera impedire ad altri di inserire colonne o righe in un foglio di lavoro, è possibile proteggere il foglio per disabilitare la funzione di inserimento di righe o colonne. Ma come si può disabilitare questa funzione senza proteggere il foglio?
Impedisci ad altri di Inserisci righe e colonne con codice VBA
Impedisci ad altri di Inserisci righe e colonne con codice VBA
Il seguente codice VBA ti consente di disabilitare la funzione di inserimento di righe e colonne nella cartella di lavoro di Excel. Procedi come indicato di seguito:
1. Premi Alt + F11 per aprire una finestra di Microsoft Visual Basic, Applications Edition.
2. Fai clic su Inserisci > Modulo per aprire la finestra del modulo, quindi copia il seguente codice VBA al suo interno.
Codice VBA: impedisce di Inserisci 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. Premi il tasto F5 per eseguire questo codice. Ora, quando fai clic con il pulsante destro del mouse per inserire righe o colonne, l'opzione Inserisci non sarà più disponibile nel menu contestuale. Vedi screenshot:
Note:
1. Questo codice VBA disabilita la funzione «Inserisci» nel menu contestuale di 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, applica 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
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi