**Column BH**with dropdown choices for

**Confirmed, Pending, and Cancelled**.

Presupunând că aveți o foaie de lucru și doar o anumită gamă de celule goale necesită introducerea datelor, iar după ce ați terminat introducerea datelor, aveți nevoie ca celulele să fie blocate automat pentru a preveni din nou modificările. Cum poți face pentru a o realiza? Acest articol vă poate ajuta.

**Blocați sau protejați celulele după introducerea sau introducerea datelor cu cod VBA**

De exemplu, o anumită gamă de celule goale este A1: F8. Vă rugăm să faceți următoarele pentru a bloca aceste celule după introducerea datelor în Excel.

1. Deblocați mai întâi acest interval, selectați celulele și faceți clic dreapta, apoi alegeți **Celule de format** în meniul cu clic dreapta și în **Celule de format** casetă de dialog, debifând fișierul **blocat** caseta de sub **protecţie** , apoi faceți clic pe **OK** buton. Vedeți captura de ecran:

2. clic **Recenzie** > **Protejați foaia**. Și specificați o parolă pentru a proteja această foaie de lucru.

3. Faceți clic dreapta pe fila foi, selectați **Afișați codul** din meniul cu clic dreapta. Apoi copiați și lipiți codul VBA de mai jos în fereastra Cod. Vedeți captura de ecran:

**Cod VBA: Blocați sau protejați celulele după introducerea sau introducerea datelor**

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

**notițe**: În cod, „A1: F8” este intervalul de care aveți nevoie pentru a introduce date; iar „123” este parola acestei foi de lucru protejate. Vă rugăm să le schimbați după cum aveți nevoie.

4. presa **Alt** + **Q** tastele simultan pentru a închide **Microsoft Visual Basic pentru aplicații** fereastră.

După terminarea introducerii datelor în celulele din intervalul A1: F8, acestea vor fi blocate automat. Și veți primi o casetă de dialog promptă dacă încercați să modificați orice conținut de celulă din acest interval. Vedeți captura de ecran:

- Cum se blochează toate referințele de celule în formule simultan în Excel?
- Cum se blochează sau deblochează celulele pe baza valorilor dintr-o altă celulă din Excel?
- Cum se blochează imaginea / imaginea la sau în interiorul celulei în Excel?

**reutilizarea**: Introduceți rapid**formule complexe, diagrame**și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...- Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
- Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
- Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
- Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
- Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
- Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
- Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
- Peste 300 de funcții puternice. Suportă Office / Excel 2007-2019 și 365. Suportă toate limbile. Implementare ușoară în întreprindere sau organizație. Funcții complete de încercare gratuită de 30 de zile. Garanție de restituire a banilor de 60 de zile.

**Activați editarea și citirea cu file în Word, Excel, PowerPoint**, Publisher, Access, Visio și Project.- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse în fiecare zi!

Loading comment...
The comment will be refreshed after 00:00.