Çözüldü Veri Girişi Sonrayı Hücreyi Kilitleme

[Turkbey41]

Merhaba,

Excelde B ve C stunlarında veri girişi sonrası değişiklik yapılmasını önlemek istiyorum. Bunu nasıl yapabilirim?

Bu işlemi dosyayı kaydettikten sonra da yapabilir.

Yardımlarınız için şimdiden çok teşekkür ederim.

 

[Necdet]

Merhaba,
Sayfa korumasını uygulayabilirsiniz.
Şifreyi bilen korumayı kaldırır, verisini girer sonra tekrar sayfayı korur.
Ama sonuçta bu da çare değil, şifre her an çözülebilir.

 

[Turkbey41]

Sorunu aşağıdaki şekilde çözüdüm bilginiz olsun.
B ve C stünlarında hücre biçimlendirden kilit tiklerini kaldırdım.
Sonra makro alanına aşağıdaki kodları yazdım.

Sayfa korumasını kaldırma kilit kodu : 123

Dim mRg As Range
Dim mStr As String

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("B:C"), 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("B:C"), 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("B:C"), Target) Is Nothing Then
    Set mRg = Target.Item(1)
     mStr = mRg.Value
End If
End Sub