Kasa Proğramı Eski Güne Girişi Engelleme

[cankız46]

Merhabalar ;
Her ay için tek çalışma kitabında her gün için 30-31 adet excel çalışma sayfası açtım.
Bugün ayın 4 ü bu çalışma kitabını kullanan arkadaşların ayın 2 si ve öncesine yani bulunduğumuz gün den 2 gün yada 1 gün yada 3 gün öncesine giriş çıkış yapmalarını engellemek için bir makro varmı.Ve kullanıcı orayı değiştirmek istediğinde burayı değiştirmeye yetkiniz yok gibi bir uyarı mesajı makrasu yazılabilirmi.
Yardımlarınız için şimdiden teşekkürler.

 

[hamitcan]

Sayfa isimlerinin 1,2,3,4... şeklinde olduğunu varsayarsak; aşağıdaki kodu kullanabilirsiniz.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Day(Date) - Sh.Name >= 3 Then Sh.Protect
End Sub

Not: Kodu, ThisWorkBook kısmına ekleyin.

 

[cankız46]

Merhabalar ;
Ben Beceremedim.Dosya ektedir.
Yardımlarınız için Şimdiden Teşekkürler.

 

[hamitcan]

VBA projeniz şifreli, dosyanızı, şifresiz haliyle ekleyin.

 

[cankız46]

Merhabalar ;
Şifre aic46efe
Teşekkürler