Cum se blochează sau se protejează celulele după introducerea sau introducerea datelor în Excel?

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 modificările din nou. Cum poți realiza asta? Acest articol vă poate ajuta.

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

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. Vă rugăm să deblocați mai întâi acest interval selectând celulele, făcând clic dreapta, apoi alegând 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 în care trebuie să introduceți date; iar „123” este parola pentru foaia de lucru protejată. 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:

Articole pe aceeași temă:

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