KutoolsforOffice — Un'unica soluzione, cinque potenti strumenti.Ottenere di più con meno sforzo.

Come bloccare e sbloccare celle specifiche tramite una casella di controllo in Excel?

AutoreSiluvia Data di modifica

Questo articolo spiega come usare una casella di controllo per bloccare e sbloccare un intervallo specifico di celle in Excel.

Bloccare e sbloccare celle specifiche con una casella di controllo utilizzando codice VBA


Bloccare e sbloccare celle specifiche con una casella di controllo utilizzando codice VBA

Lo script VBA seguente ti permette di bloccare o sbloccare un intervallo specifico di celle selezionando o deselezionando una casella di controllo nel foglio di lavoro. Segui questi passaggi.

1. Innanzitutto, assegna un nome all’intervallo di celle che desideri bloccare e sbloccare tramite una casella di controllo.

In questo esempio, seleziona l'intervallo A1:A14, digita il nome LockRng nella casella Nome, quindi premi il tasto Invio. Vedi screenshot:

Uno screenshot della specifica di un intervallo di celle in Excel con la casella Nome evidenziata

2. Nel foglio di lavoro che contiene la casella di controllo che utilizzerai per bloccare e sbloccare la selezione, fai clic con il pulsante destro sulla scheda del foglio, quindi seleziona Visualizza codice dal menu contestuale.

Nota: la casella di controllo deve essere un controllo ActiveX al momento dell’inserimento.

3. Nella finestra Microsoft Visual Basic for Applications che si apre, copia e incolla il seguente codice VBA nella finestra Codice.

Codice VBA: Bloccare o sbloccare un intervallo di celle specifiche con una casella di controllo

Private Sub CheckBox1_Click()
    Range("LockRng").Select
    On Error Resume Next
    If CheckBox1.Value = True Then
        Selection.Locked = False
        MsgBox "Range cells " & Selection.Address & " has been unlocked", vbInformation, "Kutools for Excel"
    Else
        Selection.Locked = True
        MsgBox "Range cells " & Selection.Address & " has been locked", vbInformation, "Kutools for Excel"
    End If
End Sub

Nota: Nel codice, Checkbox1 è il nome della casella di controllo e LockRng è il nome dell’intervallo protetto. Puoi personalizzarli in base alle tue esigenze.

Uno screenshot della finestra Microsoft Visual Basic for Applications con il codice VBA incollato

4. Premi contemporaneamente i tasti Alt+Q per chiudere la finestra Microsoft Visual Basic for Applications.

Ora puoi testare il codice. Quando deselezioni la casella di controllo, apparirà una finestra di dialogo Kutools per Excel che ti informerà che l’intervallo limitato è stato bloccato; fai clic sul pulsante OK.

Quando invece selezioni la casella di controllo, tutte le celle nell’intervallo limitato verranno sbloccate e apparirà una finestra di dialogo Kutools per Excel, come mostrato nello screenshot a destra.

Uno screenshot della finestra di dialogo Kutools for Excel che mostra l'intervallo di celle sbloccato


Articoli correlati:

Migliori Strumenti per la Produttività in Office

🤖KUTOOLS AI Assistente: Rivoluziona Analisi dei dati in base a:Esecuzione Intelligente   |  Genera Codice|  Crea formule personalizzate  |  Analizza Dati e Genera Grafici|  Richiama Funzioni avanzate
Funzionalità Popolari:Trova, Evidenzia o Contrassegna Duplicati   |  Elimina righe vuote   |  Combinare Colonne o Celle senza Perdere Dati   |   Arrotondamento senza usare la formula...
Super RICERCA.VERT:VLookup con Criteri Multipli  |  VLookup con Valori Multipli  |   VLookup tra Fogli Multipli   |   Corrispondenza approssimativa....
Elenco a discesa avanzato:Crea Rapidamente un Elenco a Discesa   |  Elenco a Discesa Dipendente   |  Elenco a Discesa con Selezione Multipla....
Gestione Colonne:Aggiungi un Numero Specifico di Colonne|Sposta Colonne|Attiva/Disattiva lo Stato di Visibilità delle Colonne Nascoste|Confronta Intervalli e Colonne...
Funzionalità in Evidenza:Attenzione della griglia   |  Visualizzazione Design   |Barra delle formule avanzata   | Gestione Cartelle di Lavoro e Fogli   |  Biblioteca di risorse(Testo Automatico)|  Selettore di Date   |  Unisci fogli di lavoro  |  Crittografa/Decrittografa celle   | Invia Email da Lista   |  Super Filtri   |   Filtro speciale(Filtra celle con testo in grassetto/corsivo/barrato...) ...
Principali Set di Strumenti 15:12 Strumentiper il Testo(Aggiungi testo,Elimina Caratteri Specifici, ...)|   50+Tipidi Grafico(Diagramma di Gantt, ...)|   40+ Formule Pratiche(Calcola l'età in base alla data di nascita, ...)|   19 Strumentidi Inserimento(Inserisci Codice QR,Inserisci Immagine dal Percorso, ...)|   12 Strumentidi Conversione(Converti in parole,Conversione del tasso di cambio, ...)|   7 StrumentiUnisci e Dividi(Unione avanzata righe,Dividi celle, ...)|... e molto altro
Usa Kutools nella tua lingua preferita – supporta inglese, spagnolo, tedesco, francese, cinese e 40+ altre!

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.

ExcelWordOutlookTabsPowerPoint
  • 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