Daha önce girilmiş verilerin değiştirilmesini engelleme

[imparator55]

Merhabalar
Bir kitap takip dosyam var. Bazen yanlışlıkla daha önce girilmiş veriler değiştirilebiliyor. Buda veri kaybına sebep oluyor.
Yapmak istediğim: Daha önce B D ve F sütunlarındaki hücrelere veri girilmişse bu verilerin değiştirilmesini engelleme. Makro dışında yapılamayacaığını düşündüğüm için vba forumuna açtım.
Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki linkte benzer bir konu var. İnceleyiniz.

Soru - Excel Tablosunda Yalnızca Bir Gün Değişiklik Yapma

Merhaba, Excel dosyasında sadece bugün veri girişi yapılabilsin istiyorum. Dün ve ondan önceki günlerde girilen verilerde değişiklik yapılmasını önlemek istiyorum. Bunu nasıl sağlayabilirim. Şimdiden çok teşekkür ederim.

www.excel.web.tr

 

[imparator55]

Merhaba,

Aşağıdaki linkte benzer bir konu var. İnceleyiniz.

Soru - Excel Tablosunda Yalnızca Bir Gün Değişiklik Yapma

Merhaba, Excel dosyasında sadece bugün veri girişi yapılabilsin istiyorum. Dün ve ondan önceki günlerde girilen verilerde değişiklik yapılmasını önlemek istiyorum. Bunu nasıl sağlayabilirim. Şimdiden çok teşekkür ederim.

www.excel.web.tr

Merhaba
Korhan bey. Bugün için değilde daha önce kayıt edilmiş olan kayıtların değiştirilmemesi. Mesela kayıtlar yapıldı yapıldı ve 150'nci satıra gelindi. 150'nci satırdan önceki verilerin değiştirilmemesi gerekiyor. Böyle bir uyarlamayı yapabilir miyiz?
Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Benim önerim sadece fikri vermek açısından bir paylaşımdı.

Önemli olan bu işlemin hangi aşamada olacağıdır. Bunu belirledikten sonra ilerlemek daha kolay olacaktır.

Siz kayıt yapıldı diyerek ifade ediyorsunuz. Excele bunu anlatabileceğimiz anahtarı/kriteri belirtirseniz çözüm yolunda ilerleyebiliriz.

 

[mustafa1205]

İşinize yararmı bilmiyorum ama aşağıdaki kodları çalışma kitabının thisworkbook kısmının kod bölümüne yapıştırın. Çalışma kitabını kaydettikten sonra dolu hücreler korumalı hale gelecektir.


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

 

[imparator55]

Siz kayıt yapıldı diyerek ifade ediyorsunuz. Excele bunu anlatabileceğimiz anahtarı/kriteri belirtirseniz çözüm yolunda ilerleyebiliriz.

Merhaba
Hocam şu şekilde açıklamaya çalışayım.
Şimdi Ödünç ver sayfasında b2:b1000 aralığına üye numarası giriliyor, d2:d1000 aralığına kitap barkodu ve g2:g1000 aralığına ise veriliş tarihi giriliyor. Yanlarındaki sütunlara formüller ile veri geliyor ve belirttiğim aralıklar korumalı.
Benim istediğim: mesela sıra b20 hücresinde ise dosyayı kaydettiğim zaman 20'nci satırdan önceki belirttiğim aralıklara veri girişi yapılamasın.
İlginiz için teşekkürler.