girilen son veriye kadar üsteki ne kadar veri koruma!!!

[Endless033]

girilen son veriye kadar üsteki ne kadar veri varsa üst satırlarda hepsini koruması olsun istiyorum kesinlikle silme değiştirme olmamasını sağlamam gerekiyor
girdikçe aynı şekilde güncellenmesini istiyorum sonrasında düzeltmem yada silmem içinde bir yetki gibi bir şifreyle giren kişi düzeltebilsin.

 

[Muzaffer Ali]

Merhaba.

A : P aralığındaki tüm hücreleri seçip sağ tıklatın, "Hücreleri Biçimlendir" seçin.
Koruma tabını açıp "Kilitli" işaretini kaldırın.
Tamamı tıklatın.

Gözden Geçir / Sayfayı Koru seçin
Açılan pencerede istediğiniz seçenekleri seçip, şifre belirleyip tamamı tıklatın

aşağıdaki kodu sayfanın kod kısmına kopyalayın.
123 yerine kendi belirlediğiniz şifreyi yazın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:P")) Is Nothing Then
        Unprotect "123"
        Target.Locked = True
        Protect "123"
    End If
End Sub

A : P aralığında herhangi bir hücrede değişiklik yaparsanız hücre kilitlenecek ve şifre girmeden değiştirilmesi engellenmiş olacaktır.

 

[Endless033]

Merhaba.

A : P aralığındaki tüm hücreleri seçip sağ tıklatın, "Hücreleri Biçimlendir" seçin.
Koruma tabını açıp "Kilitli" işaretini kaldırın.
Tamamı tıklatın.

Gözden Geçir / Sayfayı Koru seçin
Açılan pencerede istediğiniz seçenekleri seçip, şifre belirleyip tamamı tıklatın

aşağıdaki kodu sayfanın kod kısmına kopyalayın.
123 yerine kendi belirlediğiniz şifreyi yazın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:P")) Is Nothing Then
        Unprotect "123"
        Target.Locked = True
        Protect "123"
    End If
End Sub

A : P aralığında herhangi bir hücrede değişiklik yaparsanız hücre kilitlenecek ve şifre girmeden değiştirilmesi engellenmiş olacaktır.

açıklamanız için tşk ederim