İ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ə tarixə əsaslanan hüceyrələri necə qoruyursunuz?

Normal olaraq, digərləri hüceyrə dəyərlərini düzəldən və ya dəyişdirməməyi maneə törətmək üçün iş səhifəsini qoruyuruq, ancaq bəzən hüceyrələri tarixə qorumaq lazımdır. Məsələn, digər hüceyrələri qorumaq istəyirəm, ancaq bu günkü tarixin hüceyrə dəyərlərini aşağıdakı ekran görüntüsü kimi dəyişdirmək üçün icazə verin, bu maddə, tarixə əsasən hüceyrələrin necə qorunması barədə danışacaqdır.

doc 1 tarixinə qorumaq

VBA kodu ilə bugünkü tarix sırası istisna olmaqla, bütün satırları qoruyun

Tarixin VBA kodu ilə keçdiyi bütün satırları qoruyun


arrow mavi sağ bubble VBA kodu ilə bugünkü tarix sırası istisna olmaqla, bütün satırları qoruyun

Yalnız bu günün tarixini bərabər olan satağa icazə verin, aşağıdakı kod sizə kömək edə bilər, belə edin:

1. Hüceyrələri tarixə əsaslanan qorumaq istədiyiniz tabla sekmesini sağa vurun və sonra seçin Kodları baxın kontekst menyusundan çıxdı Proqramlar üçün Microsoft Visual Basic Pəncərədən, aşağıdakı kodu boş modula kopyalayıb yapışdırıb:

VBA kodu: Bu günün tarixindən başqa bütün sətirləri qoruyun:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161025
    If Range("E" & Selection.Row).Value <> Date Then
        ActiveSheet.Protect Password:="111111"
        MsgBox "Only today's date row can be edited!", vbInformation, "Kutools for Excel"
    ElseIf Range("E" & Selection.Row).Value = Date Then
        ActiveSheet.Unprotect Password:="111111"
        ActiveSheet.EnableSelection = xlNoRestrictions
    End If
End Sub

doc 2 tarixinə qorumaq

Qeyd: Yuxarıdakı kodda, məktub E tarixi olan sütun başlığıdır "111111"Bu hesabatı qorumaq üçün parol. Onları ehtiyaclarınıza dəyişə bilərsiniz.

2. Sonra bu kod pəncərəsini saxlayıb bağlayın.

(1.) Bu günün tarixi sıra xaricində başqa hüceyrələri tıklatırsanız, hücrenin düzenlenemediğini hatırlatmak üçün bir istek qutusu açılır, ekran görüntüsüne baxın:

doc 3 tarixinə qorumaq

(2.) Əgər bu günün tarixinə bərabərdirsə və düzəliş etsəniz, uğurla dəyişdiriləcək, ekran görüntüsünə baxın:

doc 4 tarixinə qorumaq


arrow mavi sağ bubble Tarixin VBA kodu ilə keçdiyi bütün satırları qoruyun

Tarixin bütün satırlarını qorumaq istəyirsinizsə, yalnız bu gün və gələcək tarix satırlarına icazə verin, aşağıdakı VBA kodunu tətbiq edin:

1. Hüceyrələri tarixə əsaslanan qorumaq istədiyiniz tabla sekmesini sağa vurun və sonra seçin Kodları baxın kontekst menyusundan çıxdı Proqramlar üçün Microsoft Visual Basic Pəncərədən, aşağıdakı kodu boş modula kopyalayıb yapışdırıb:

VBA kodu: Bütün satırların tarixini qoruyun:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice 20161025
  Dim xRow As Long
  xRow = 2
  ThisWorkbook.ActiveSheet.Unprotect Password:="111111"
  ThisWorkbook.ActiveSheet.Cells.Locked = False
  Do Until IsEmpty(Cells(xRow, 5))
    If Cells(xRow, 5) < Date Then
      Rows(xRow).Locked = True
    End If
    xRow = xRow + 1
  Loop
  ThisWorkbook.ActiveSheet.Protect Password:="111111"
End Sub

doc 5 tarixinə qorumaq

Qeyd: Yuxarıda göstərilən kodda nömrə 5 tarixi olan sütun nömrəsi, "111111"Bu hesabatı qorumaq üçün parol. Onları ehtiyaclarınıza dəyişə bilərsiniz.

3. Sonra bu kod pəncərəsini saxlayıb bağlayın.

(1.) Hüceyrələrin tarixini keçirtdiyiniz zaman, hücrenin düzenlenemediğini xatırlatmaq üçün bir sorğu qutusu açılır, ekran görünüşünə baxın:

doc 6 tarixinə qorumaq

(2.) Bu günün və ya gələcək tarixdə dəyərləri dəyişməyə çalışmaq üçün satır hüceyrəsini tıklatırsanız, uğurla dəyişdiriləcək, ekran görüntüsünə baxın:

doc 7 tarixinə qorumaq



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.
    Niall · 3 months ago
    As someone who is relatively new to VBA, would you mind explaining why xRow = 2 in Line 4?



    Thanks
    • To post as a guest, your comment is unpublished.
      Piotr · 3 months ago
      because in row no. 1 you have header
  • To post as a guest, your comment is unpublished.
    Bobby · 1 years ago
    This works great. but how can I switch it to unlock a column based on dates in row 3?
  • To post as a guest, your comment is unpublished.
    TAHER KANPURWALA · 1 years ago
    Hello.....


    I am using the code for Protect all rows except today’s date row........



    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Updateby Extendoffice 20161025
    If Range("A" & Selection.Row).Value <> Date Then
    ActiveSheet.Protect Password:="111111"
    MsgBox "Only today's date row can be edited!", vbInformation, "Kutools for Excel"
    ElseIf Range("E" & Selection.Row).Value = Date Then
    ActiveSheet.Unprotect Password:="111111"
    ActiveSheet.EnableSelection = xlNoRestrictions
    End If
    End Sub


    After i save i and click on cell i get message only today's date row can be edited....but if i double click the cell the i can edit...pls help
  • To post as a guest, your comment is unpublished.
    LUIS GARCIA · 1 years ago
    hi is it possible to lock certain cells depending on the date that is directly above them in a column?
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hi, Lusis,
      Can you give your problem more specifically? Or you can attach a screenshot as your problem.
      Thank you!
  • To post as a guest, your comment is unpublished.
    Lmg · 1 years ago
    Hi is it possible to lock columns by the date directly above the columns?