Come bloccare o proteggere le celle dopo l'immissione o l'input dei dati in 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, il determinato intervallo di celle vuote è A1: F8. Si prega di fare quanto segue per bloccare queste celle dopo l'immissione dei dati in 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 una password 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" è la password di questo foglio di lavoro protetto. Si prega di cambiarli come necessario.
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 tutti i riferimenti di cella nelle formule contemporaneamente in Excel?
- Come bloccare o sbloccare le celle in base ai valori in un'altra cella in Excel?
- Come bloccare l'immagine / immagine su o all'interno della cella in Excel?
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!
