Dosyanın Kopyalandığını Tespit Etme

[baydeniro]

Merhaba arkadaşlar. Bir excel dosyasının, Save As yolu ile veya C:\\ altında, MS-DOS ortamında kopyalanıp kopyalanmadığının bilgisinin söz konusu dosyadan anlamak mümkün mü ?

 

[Levent Menteşoğlu]

MSDOS ortamında veya windowsta direk dosya adınında kopyalama yapılırsa bunun tespit edilebileceğini konusunda fikrim yok. (bana oldukça zor gibi geliyor)

Fakat save as ile anlamak mümkün bunun içinde dosyanın thisworkbook modülüne yazılacak aşağıdaki prosedür ile gizli bir sayfaya kopyalama bilgilerini yazabilirsiniz.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
if SaveAsUI=true then
.
.
.
end if
End Sub

 

[baydeniro]

Sayın Levent Menteşoğlu. Bu uygulama ile ilgili bir örnek dosya ekleyebilir misiniz !!!

 

[Leoncio]

Belki aşağıdaki kodlar kullanılabilir.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Mesaj = Application.UserName & " kullanıcısı dosyayı kaydetti"
Dosya = ThisWorkbook.Name
Shell "C:\Windows\system32\net.exe send BILGISAYAR_ADI " & Dosya & " - " & Mesaj, vbHide
End Sub

Burada bilgisayar adı kullandığınız bilgisayarın adı olacaktır.