Excel dosyasını kapat sonra aç

[nadirornek]

Sub auto_open()
If Date >= CDate("04.04.2014") Then
With ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close SaveChanges:=False
End With
End If
End Sub

Bu kodu çalışma kitabıma eklediğim zaman bu tarihte kapanaçak ve açamayacağım. Ben açmak istersem nasıl açabilirim.

 

[Mahir64]

Merhaba,

Bilgisayarın tarihini geri alabilir, makroları devre dışı bırabbilirsiniz.

 

[nadirornek]

Dosyaya şifreli girip ileri bir tarih atıp açmak mümkün değilmi.

 

[Mahir64]

o zaman.
*2014 yılına daha var. Bir çözümbulunur.
*Dosyayı tasarlayandan yardım isteyin.
*Açılmadığı zamanlarda, devamlı bilgisayarın tahini geri alın.
*....... burası size kalıyor.

 

[uzmanamele]

Merhaba
Dosyanızı CD-R gibi sağlam yerlere yedeklemeden bu tür kodları kullanmayınız!
Kill .FullName satırını silin.
dosyanızı şifreleyin, açamadığınız tarih geldiğinde makroları etkinleştirmeden dosyayı açar, tarihi revize edersiniz.

 

[nadirornek]

Cevaplarınız için teşekkürler