Hücrede ilk girilen değerin değiştirilmesini engelleme

[metehanist]

Merhabalar,

Birimlerimizde tuttuğumuz excel dosyalarında bazı ürünlerin geliş termin tarihlerini girdirtiyoruz.

Daha sonra bu tarihleri başka dosyalara çekerek durum sorguluyoruz. Fakat birimlerdeki arkadaşlar ilk girdikleri tarihleri daha sonra değiştirerek bizim yaptığımız sorguları sabote edebiliyorlar.

İstediğim durum şu bir hücreye bir değer girdikten sonra onu değiştiremesinler. Tabi ki değişim durumları olabilecek bu durumda da onay / şifre vs. gibi birşey uygulanabilir mi?

Öncelik değiştirme olmamasıdır. Yani şifre veya onay işi işin spesifik tarafı. Bu konuda yardımcı olabilirseniz sevinirim.

Teşekkürler

 

[Ömer]

Merhaba,

Kodları ThisWorbook sayfasına kopyalayın.

Çalışmayı kaydettiğinizde kodlar çalışır.

Matığı; Çalışma kitabında dolu hücreleri korumaya alır ve bu hücrelere veri girişi yapamazsınız. Yapmak için, korumayı açmalısınız. Koruma şifresini ben "123" olarak yazdım, siz kendinize göre değiştirirsiniz.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
                                Cancel As Boolean)
    On Error Resume Next
 
    With ActiveSheet
        .Unprotect "[COLOR=blue]123[/COLOR]"
          Cells.Locked = False
          Cells.SpecialCells(xlCellTypeConstants, 23).Locked = True
        .Protect "[COLOR=blue]123[/COLOR]"
    End With
 
End Sub