Çözüldü Günlük girilen verilerin belirli bir süre sonra değiştirilmesini engelleme

[ahmetozen34]

Merhaba,
Daha önce aşağıdaki konu hakkında düşey tarih ilerleyen bir dosya için arkadaşlar aşağıdaki kodlamayı önermişlerdi, örnek dosyadaki gibi yatay ilerleyen günler için de benzeri bir kodlama var mıdır ?

"Günlük veri girişi yapılan bir excel dosyam var. Yapılan veri girişlerinin örneğin 24 saatten sonra silinmesini veya değiştirilmesini istemiyorum. Pazartesi veri girişi yapıldıysa Salı ve sonrası günlerde Pazartesi girilen veri değiştirilemesin istiyorum .Excelin böyle bir özelliği var mıdır, yardımcı olabilirseniz sevinirim ? Şimdiden teşekkür ederim."

Kod:
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[SNNAY]

Merhaba,
Daha önce aşağıdaki konu hakkında düşey tarih ilerleyen bir dosya için arkadaşlar aşağıdaki kodlamayı önermişlerdi, örnek dosyadaki gibi yatay ilerleyen günler için de benzeri bir kodlama var mıdır ?

"Günlük veri girişi yapılan bir excel dosyam var. Yapılan veri girişlerinin örneğin 24 saatten sonra silinmesini veya değiştirilmesini istemiyorum. Pazartesi veri girişi yapıldıysa Salı ve sonrası günlerde Pazartesi girilen veri değiştirilemesin istiyorum .Excelin böyle bir özelliği var mıdır, yardımcı olabilirseniz sevinirim ? Şimdiden teşekkür ederim."

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim son As Long
Dim password As String
Dim userInput As String

son = Range("A1").CurrentRegion.Columns.Count + 1

If Cells(Target.Row, 1) < Date And Target.Column < 5 And Target.Value <> "" Then
userInput = InputBox("Geçmiş veriyi değiştirmek için parolayı giriniz:", "Parola Girişi")

' Parolanızı buraya girin
password = "1234"

If userInput <> password Then
MsgBox "Geçmiş verileri değiştiremezsiniz."
Cells(Target.Row, son).Select
Else
MsgBox "Parola doğru. Veriyi değiştirebilirsiniz."
End If
End If
End Sub

Deneyiniz;
Tarih sütunları farklı hücreler ise Set tarihAraligi = Me.Range("D3:CQ3") kısmında D3:CQ3 yazan yeri değiştiriniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[ahmetozen34]

Hocam öncelikle çok teşekkür ederim.
Yüklediğim örnek dosyadaki ilk sheet'te çalışmıyor malesef.
F5:AJ5 aralığını seçtiğim zaman tüm sayfayı bu aralıktaki tarihlermiş gibi değerlendiriyor ancak her ay bu sheet'te alt alta ekleniyor. Bu sayfaya özel bir çözümün olur mu acaba ?

 

[ahmetozen34]

Deneyiniz;
Tarih sütunları farklı hücreler ise Set tarihAraligi = Me.Range("D3:CQ3") kısmında D3:CQ3 yazan yeri değiştiriniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Hocam öncelikle çok teşekkür ederim.
Yüklediğim örnek dosyadaki ilk sheet'te çalışmıyor malesef.
F5:AJ5 aralığını seçtiğim zaman tüm sayfayı bu aralıktaki tarihlermiş gibi değerlendiriyor ancak her ay bu sheet'te alt alta ekleniyor. Bu sayfaya özel bir çözümün olur mu acaba ?

 

[SNNAY]

Ekip sayfasında sadece F5:AJ5 aralığında (Tarihlerin bulunduğu satır) çalışacak diğer sayfada komple çalışacak;

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[ahmetozen34]

Ekip sayfasında sadece F5:AJ5 aralığında (Tarihlerin bulunduğu satır) çalışacak diğer sayfada komple çalışacak;

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Hocam ilgin için teşekkür ederim ancak doğru anlatamamış olabilirim.

Pers sayfası çok başarılı oldu eline sağlık, o sayfa ile ilgili düzenlemeye ihtiyaç yok.
Equip Sayfası için;
F5 ve AJ31 arası Temmuz ayı için, F36 AJ 62 için Ağustos ayı için kelimeler ile doldurulacak tarih ile değil.
Pers sayfasında yaptığın kodlamanın aynısı burda F5 AJ 31 arası için ayrı , F36 AJ62 için ayrı, hatta eylül ayı eklendiğinde F67 AJ 93 arası için de ayrı çalışması yeterli olacaktır. Mesela F 36'daki tarihe bakacak ve eğer güncel tarihimiz 1 Ağustosu geçmiş ise F36 ve F62 arasındaki değerleri değiştirmeyecek, formülün F 62 sonrasını veya F32 öncesini etkilememesi lazım ki ben alta Eylül ayını eklediğimde eylül için de formülü çoğaltayım. Çoğaltabileceğim bir formül olursa çok iyi olur. Çok teşekkür ederim.

 

[SNNAY]

Hocam ilgin için teşekkür ederim ancak doğru anlatamamış olabilirim.

Pers sayfası çok başarılı oldu eline sağlık, o sayfa ile ilgili düzenlemeye ihtiyaç yok.
Equip Sayfası için;
F5 ve AJ31 arası Temmuz ayı için, F36 AJ 62 için Ağustos ayı için kelimeler ile doldurulacak tarih ile değil.
Pers sayfasında yaptığın kodlamanın aynısı burda F5 AJ 31 arası için ayrı , F36 AJ62 için ayrı, hatta eylül ayı eklendiğinde F67 AJ 93 arası için de ayrı çalışması yeterli olacaktır. Mesela F 36'daki tarihe bakacak ve eğer güncel tarihimiz 1 Ağustosu geçmiş ise F36 ve F62 arasındaki değerleri değiştirmeyecek, formülün F 62 sonrasını veya F32 öncesini etkilememesi lazım ki ben alta Eylül ayını eklediğimde eylül için de formülü çoğaltayım. Çoğaltabileceğim bir formül olursa çok iyi olur. Çok teşekkür ederim.

Deneyiniz;
Sayfaya daha sonra eklenecek tablolar için araliklar = Array("F5:AJ32", "F36:AJ63", "F67:AJ94") ' Buraya yeni aralıklar ekleyebilirsiniz kısmına ekleme yapabilirsiniz örneğin 10. ay için aralık F98:AJ125 gibi
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[ahmetozen34]

Deneyiniz;
Sayfaya daha sonra eklenecek tablolar için araliklar = Array("F5:AJ32", "F36:AJ63", "F67:AJ94") ' Buraya yeni aralıklar ekleyebilirsiniz kısmına ekleme yapabilirsiniz örneğin 10. ay için aralık F98:AJ125 gibi
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Hocam çok teşekkür ederim, tam olarak istediğim gibi çalıyor.
Küçük bir problem var destek olabilirsen sevinirim.
Mesela geçmşi tarihteki bir veriyi değiştirmeye çalışıyorum parola soruyor, parola soran ekranı x ile kapatıyorum, Geçmiş verileri değiştiremezsiniz şeklinde uyarı geliyor, tamama bastıktan sonra hücrenin içine girip değişiklik yapabiliyorum. Aslında daha önce yazdığın kodlarda bu yaşanmıyor. Daha önce yazdığın kodlarda seçimi (fareyi) başka bir hücreye gönderiyordu ve hiçbir şekilde değişiklik yapılamıyordu.

 

[SNNAY]

Deneyiniz.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[ahmetozen34]

Deneyiniz.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Teşekkür ederim.