dosya açılışına sınırlama

[senuyurken]

Dosyanız ekte..

5 hak tanınmıştır..

Günaydın Arkadaşlar. Hayırlı Cumalar.

Yeni Konu açmak istemedim, buraya yazmak istedim.

Benim istediğim, arkadaşlar @Ayhan Ercan arkadaşımızın dosyası kısmen işimi görüyor.

Ama ben istiyorumki ;

Belirli bir tarihten sonra dosya hiç çalışmasın. Kendisini tamamen silsin istiyorum.

Burda verilen kodları denedim ama sonuç alamadım.

@Ayhan Ercan arkadaşımın dosyasındaki kodu kendi dosyamın sayfa kodlarına ekliyorum olmuyor.

Şimdiden teşekkür ederim.

 

[metehan8001]

Günaydın Arkadaşlar. Hayırlı Cumalar.
Yeni Konu açmak istemedim, buraya yazmak istedim.
Benim istediğim, arkadaşlar @Ayhan Ercan arkadaşımızın dosyası kısmen işimi görüyor.
Ama ben istiyorumki ;
Belirli bir tarihten sonra dosya hiç çalışmasın. Kendisini tamamen silsin istiyorum.
Burda verilen kodları denedim ama sonuç alamadım.
@Ayhan Ercan arkadaşımın dosyasındaki kodu kendi dosyamın sayfa kodlarına ekliyorum olmuyor.
Şimdiden teşekkür ederim.

Aşağıdaki kodu dosyanızın module bölümüne yazınız.

Sub auto_open()
'Makroda yazan tarihde dosya kendini kalıcı(geri dönüşümsüz) şekilde imha edecektir.
If Date >= CDate("28.06.2018") Then
    With ThisWorkbook
        MsgBox "Dosyanın kullanım süresi dolmuştur", vbCritical + vbMsgBoxRtlReading, "***************"
        .Save
        .ChangeFileAccess Mode:=xlReadOnly
        Kill .FullName 'www.*************
        .Close SaveChanges:=False
    End With
End If
End Sub

 

[senuyurken]

Aşağıdaki kodu dosyanızın module bölümüne yazınız.

Sub auto_open()
'Makroda yazan tarihde dosya kendini kalıcı(geri dönüşümsüz) şekilde imha edecektir.
If Date >= CDate("28.06.2018") Then
    With ThisWorkbook
        MsgBox "Dosyanın kullanım süresi dolmuştur", vbCritical + vbMsgBoxRtlReading, "***************"
        .Save
        .ChangeFileAccess Mode:=xlReadOnly
        Kill .FullName 'www.*************
        .Close SaveChanges:=False
    End With
End If
End Sub

Teşekkür ederim. Benim dosyamın kod kısmına eklemem yeterlimi.

 

[metehan8001]

Evet