Çözüldü AĞ'da açık olan excel dosyasını başka bir pc'den kapatma

[tukayf]

Ağ üzerinde açık olan excel dosyasını başka bir bilgisayardan kaydet-kapat yaptırabilir miyim. Sürekli açık unutuluyor. Kimde olduğunu tespit edemiyoruz. Tespit etsek bile o an yerinde olmuyor.

 

[hamitcan]

Dosya, belli bir süre sonra kendini kapatsa...
Not.Kodun içinde uyarı mesajları, istenirse kaldırılabilir.

Sub my_Procedure()
    cvp = MsgBox("Dosya Kapansın mı ?", vbYesNo)
    If cvp = vbYes Then
        ActiveWorkbook.Save
       
        Application.Quit
    End If
End Sub
Sub auto_open()
    Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
End Sub

 

[tukayf]

Sn. Hamitcan. Çalışma prensibini anlayamadım. Ağda bulunan ve başka kullanıcı tarafından açık unutulan belli bir yol üzerindeki excel dosyasını kendi bilgisayarımdan kapatmak istiyorum. Bu verdiğiniz kodlarla o dosyayı bulma imkanım var mı?

 

[hamitcan]

Verdiğim kod bahsettiğiniz işi yapmıyor. Sadece belli bir süre sonra kendini kapatıyor. Bu şekilde bir öneride bulunmak istedim. İşinizi görür mü bilmem ?

 

[tukayf]

Hocam kod ne kadar sürede tepki verecek peki. Açık unutulan dosyada dosyayı kapatması için.

 

[hamitcan]

Verdiğim kod 15 sn sonra kendini kapatmak için soruyor. Süreyi isterseniz değiştirebilirsiniz.

 

[hamitcan]

Uyarı vermeden de kendini kapatabilir. Bunu ilk mesajımda belirttim.

 

[tukayf]

My_prosedur makrosunu bulamıyor hocam.

 

[hamitcan]

Dosyayı ekledim.

 

[tukayf]

Sn. Hamitcan çok teşekkürler.