İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də data girişi və ya girişdən sonra hüceyrələri kilidləmək və ya qorumaq necə?

Bir iş səhifəniz olduğunu və yalnız müəyyən bir sıra boş hüceyrə məlumatlarının girilməsinə ehtiyac duyduğunu və məlumatları girdikdən sonra, dəyişmələri yenidən qarşısını almaq üçün avtomatik olaraq kilidlənmək üçün hüceyrələrə ehtiyac duyulur. Bunu bacarmaq üçün necə edə bilərsiniz? Bu yazı sizə kömək edə bilər.

VBA kodu ilə məlumat girişi və ya girişdən sonra hüceyrələri bağlamaq və ya qorumaq


VBA kodu ilə məlumat girişi və ya girişdən sonra hüceyrələri bağlamaq və ya qorumaq

Məsələn, müəyyən boşluq hüceyrələri A1: F8 olur. Excel-də data girildikdən sonra bu hüceyrələri bağlamaq üçün xahiş edirik.

1. Əvvəlcədən bu aralığın kilidini açın, hüceyrələri seçin və sağ klikləyin, sonra seçin Format Cells sağ tıklaya menyusunda və Format Cells informasiya qutusunu silin Bağlıdır altındakı qutu müdafiə nişanlanmaq və nəhayət basın OK düyməsini basın. Ekran görüntüsünə baxın:

2. klik baxış > Səthi qoruyun. Bu iş səhifəsini qorumaq üçün bir parol daxil edin.

3. Sekanın sekmesini sağa vurun, seçin Kodları baxın sağ tıklayarak menyudan. Aşağıdakı VBA kodunu Kod pencerəsinə kopyalayıb yapışdırın. Ekran görüntüsünə baxın:

VBA kodu: Məlumat girişindən və ya girişindən sonra hüceyrələri bağlamaq və ya qorumaq

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

Qeyd: Kodda, "A1: F8" giriş məlumatları üçün lazım olan sıra; və "123" bu qorunan iş səhifəsinin paroludur. Lazım olduğunuz halda onları dəyişdirin.

4. Basın Dayandırmaq + Q düymələri eyni vaxtda bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

A1: F8 aralığına daxil olan məlumatları daxil etdikdən sonra avtomatik olaraq kilidlənəcəklər. Bu aralığın hər hansı bir hüceyrə məzmununu dəyişdirməyə çalışarsanız, tez bir informasiya qutusu alacaqsınız. Ekran görüntüsünə baxın:


Office Tab - Excel-də iş kitablarının sekmeli tarama, redaktə edilməsi və idarə olunması:

Office Tab sekmeli interfeysi Google Chrome, Internet Explorer yeni versiyaları və Microsoft Excel kimi Firefox kimi veb brauzerlərdə göründüyü kimi gətirir. Bu zaman qənaət vasitədir və işinizdə əvəzsizdir. Demonun aşağıda bax:

Ofis Sekmesinin pulsuz sınaq üçün basın!

Excel üçün Office Tab


Əlaqəli məqalələr:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    jackie · 1 years ago
    Hi
    editing the code is there a way i can get it to lock all the cells in the range after data has been entered into one cell within that range ? so they can only enter data into one cell within the range not multiple.


    thank you
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Jackie,
      The below VBA code can help you solve the problem.

      Private Sub Worksheet_Change(ByVal Target As Range)
      Dim xRg As Range
      Dim xSRg As Range
      On Error Resume Next
      Set xSRg = Range("A1:F8")
      Set xRg = Intersect(xSRg, Target)
      If xRg Is Nothing Then Exit Sub
      Target.Worksheet.Unprotect Password:="123"
      xSRg.Locked = True
      Target.Worksheet.Protect Password:="123"
      End Sub
  • To post as a guest, your comment is unpublished.
    jackie · 1 years ago
    Hi


    i want it to lock the range after entry into one cell in the range please can you advise how i need to edit this to do this thank you
  • To post as a guest, your comment is unpublished.
    oh yeah · 1 years ago
    is it have to coding?
  • To post as a guest, your comment is unpublished.
    Palash Somani · 1 years ago
    cells are not even editable...what went wrong don't understand pls help
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      At first, you need to set specified cells to Unlocked for editig, and then protect the worksheet. And finally apply the VBA script.
  • To post as a guest, your comment is unpublished.
    Akshay · 1 years ago
    Hi,
    Sir i want to lock after one time input data !
    Like i am following one customer and write status , then any more employee cant edit or modify that !
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      Method in this post can also help you to solve this problem.