title image


Smiley Re: Namen der geöffneten Dateien bzw. weiterer Dateien ermitteln (VBA)
Hallo Holger,

noch ein Tipp zur Überwachung vom Öffnen bestimmter Dateien:

Ich lass beim Öffnen wichtiger Dateien einen WorkbookOpen-Code dieser Dateien laufen, der ein net send an mich abschickt:



Sub Workbook_Open()



Dim Pfad As String

Dim Datei As String



Pfad = ThisWorkbook.Path

Datei = ThisWorkbook.Name

Shell "net send DeinUserName " & Pfad & "\" & Datei & "wird geöffnet von " & Application.UserName, vbHide



End Sub


Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: