Gegeben Sei ein Netzwerk, das Betriebssystem Windows NT 
     und der gestartete Nachrichtendienst.
     Wollen Sie nun wissen, wer auf bestimmte Dateien zugreift,
     können Sie den Befehl net send benutzen:

     Fügen Sie in die entsprechende Excel-Datei ein Modul ein.
     Erzeugen Sie folgendes Makro:

   Sub Auto_open()
      On Error Goto Err
      Pfad = ThisWorkbook.Path
      If Right(Pfad, 1) <> "\" Then Pfad = Pfad & "\"
      Dateiname = Pfad & ThisWorkbook.Name
      Benutzer = Application.UserName
      Shell "net send \\PC-Müller " & Dateiname & _
        " wurde geöffnet von " & Benutzer, vbHide
      Err:
   End Sub

     Anstelle PC-Müller setzen Sie den Namen Ihres Computers ein.

     Bei jedem Öffnen der Datei werden Sie nun durch eine PopUp-Meldung
     darüber informiert, wer die Datei öffnet.