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.