Come bloccare o proteggere le celle dopo l'immissione o l'inserimento dei dati Excel?
Supponendo di avere un foglio di lavoro e solo un certo intervallo di celle vuote richiede l'immissione dei dati e, dopo aver terminato l'inserimento dei dati, è necessario che le celle vengano bloccate automaticamente per impedire nuovamente le modifiche. Come puoi fare per ottenerlo? Questo articolo può aiutarti.
Blocca o proteggi le celle dopo l'immissione dei dati o l'inserimento con codice VBA
Blocca o proteggi le celle dopo l'immissione dei dati o l'inserimento con codice VBA
Ad esempio, l'intervallo specifico di celle vuote è A1:F8. Effettuare le seguenti operazioni per bloccare queste celle dopo l'immissione dei dati Excel.
1. Sblocca prima questo intervallo, seleziona le celle e fai clic con il pulsante destro del mouse, quindi scegli formato celle nel menu di scelta rapida e nel file formato celle finestra di dialogo, deselezionando il file Bloccato scatola sotto il protezione scheda e infine facendo clic su OK pulsante. Vedi screenshot:
2. Clic Review > Proteggi foglio. E specifica un passaggioword per proteggere questo foglio di lavoro.
3. Fare clic con il pulsante destro del mouse sulla scheda del foglio, selezionare Visualizza codice dal menu di scelta rapida. Quindi copia e incolla il codice VBA sottostante nella finestra del codice. Vedi screenshot:
Codice VBA: blocca o protegge le celle dopo l'immissione o l'input dei dati
Dim mRg As Range
Dim mStr As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:F8"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Note:: Nel codice, “A1:F8” è l'intervallo necessario per inserire i dati; e “123” è il passaggioword di questo foglio di lavoro protetto. Per favore cambiali secondo le tue necessità.
4. Stampa altro + Q contemporaneamente i tasti per chiudere il file Microsoft Visual Basic, Applications Edition finestra.
Dopo aver terminato di inserire i dati nelle celle dell'intervallo A1: F8, verranno bloccati automaticamente. E riceverai una finestra di dialogo di prompt se provi a modificare qualsiasi contenuto di cella di questo intervallo. Vedi screenshot:
Articoli correlati:
- Come bloccare contemporaneamente tutti i riferimenti di cella nelle formule Excel?
- Come bloccare o sbloccare le celle in base ai valori in un'altra cella in Excel?
- Come bloccare un'immagine/immagine nella o all'interno della cella Excel?
I migliori strumenti per la produttività in ufficio
Supporta ufficio/Excel 2007-2021 e 365 | Disponibile in 44 lingue | Facile da disinstallare completamente
Kutools for Excel Vanta oltre 300 funzionalità, Garantirti che ciò di cui hai bisogno sia a portata di clic...
Carica il tuo Excel Abilità: Sperimenta l'efficienza come mai prima d'ora Kutools for Excel (Prova gratuita di 30 giorni con tutte le funzionalità)
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 Word, Excel, Presa della corrente, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la tua produttività del 50% e riduce centinaia di clic del mouse ogni giorno! (Prova gratuita di 30 giorni con tutte le funzionalità)
