Demo

[yasso38]

Excel'de korumaları dosyalara kullanım süresine veya açılış sayısına sınırlama getirmek için hazırladığım kodlar. Sizin sayfa isimleriniz neyse siz onları yazın.

Sub auto_open()
UserForm1.Show 'açılış notu için
ActiveSheet.Unprotect ("buraya sayfa koruma şifresini yazın") 'dosya sayfasındaki şifreyi açıyor
If [a1] = "" Then [a1] = "1"
If [a1].Value < 20 Then [a1] = [a1] + 1 'aktif a1 h&#252;cresinin de&#287;erini 1 art&#305;r&#305;yor
ActiveSheet.Protect ("buraya sayfa koruma &#351;ifresini yaz&#305;n") 'sayfa &#351;ifresini tekrar aktif yap&#305;yor
If [a1].Value = 20 Then 'a1 de&#287;eri 20 olunca
MsgBox "Kullan&#305;m S&#252;reniz Doldu" 'uyar&#305; mesaj&#305; veriyor
Application.DisplayAlerts = False
ActiveWorkbook.Unprotect ("buraya dosya koruma &#351;ifresini yaz&#305;n") 'dosya koruma &#351;ifresini a&#231;&#305;yor
Sheets("sayfa1").Delete 'silinmesini istedi&#287;imiz sayfalar&#305; siliyor
Sheets("sayfa2").Delete 'Not:1 tane a&#231;&#305;k sayfam&#305;z kalmas&#305; gerekiyor.
Sheets("sayfa3").Delete
Sheets("sayfa4").Delete
Sheets("sayfa5").Delete
Application.DisplayAlerts = True
ActiveWorkbook.Protect ("buraya dosya koruma &#351;ifresini yaz&#305;n") 'dosya koruma &#351;ifresi aktif oluyor
ThisWorkbook.Save 'Kaydediyor
ActiveWindow.Close True 'dosyay&#305; kapat&#305;yor
End If
End Sub

'Not dosyan&#305;n kaydedilmeden kapanmas&#305;na kar&#351;&#305; bo&#351; mod&#252;l sayfas&#305;na a&#351;a&#287;&#305;daki
'kodu yaz&#305;yoruz

'Sub Auto_Close()
'ThisWorkbook.Save
'End Sub

'e&#287;er belirli bir tarih vermek istersek a&#351;a&#287;&#305;daki sat&#305;rlar&#305; silip
'If [a1] = "" Then [a1] = "1"
'If [a1].Value < 20 Then [a1] = [a1]

'a2 h&#252;cresisine =bug&#252;n()form&#252;l&#252; , a1 h&#252;cresine de a1=METNE&#199;EV&#304;R(A2;"gg.aa.yyyy")yaz&#305;p
'If [a1].Value = 20 sat&#305;r&#305;n&#305; , If [a1].Value = ("27.04.2007") Then olarak de&#287;i&#351;tirin
'27.04.2007 yerine hangi tarihi istiyorsan&#305;z onu yaz&#305;n.