Username der schreibgeschützten DAtei

• Username der schreibgeschützten DAtei von Alex vom 05.12.2003 08:51:25
  • AW: Username der schreibgeschützten DAtei - von mischa richter am 05.12.2003 17:13:29

Betrifft: Username der schreibgeschützten DAtei
von: Alex
Geschrieben am: 05.12.2003 08:51:25
Hallo Forum,

wenn ich eine Datei schreibgeschützt öffne möchte ich mittels VBA den Benutzernamen (die Person die im Moment die Datei geöffnet hat)auslesen und dann übers Netz eine Nachricht senden.
Nachrcht senden hab ich mir gedacht mache ich über
Net send Benutzernamen ..........

Betrifft: AW: Username der schreibgeschützten DAtei
von: mischa richter
Geschrieben am: 05.12.2003 17:13:29
geht nicht, da es zwei verschiedene sachen sind.
net send schickt eine msg an den PC-Namen,
der UserName der Datei aus MS-Excel kann ganz anders lauten.

evtl. hilft dir folgendes was:
lass die excel-datei beim öffnen eine externe txt-datei mit dem PC-Namen anlegen:
API:
Declare Function GetComputerName& Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lbbuffer As String, nSize As Long)

Private Function CptName() As String
Dim sTxt As String * 64
Dim tmp As Variant
tmp = GetComputerName(sTxt, 64)
CptName = Left(sTxt, 9)
End Function

diesen string dann mit open - print - close speichern ...
und jetzt kannste diese manuell auslesen und dann mit NetSend was machen.

Mischa

Excel-Beispiele zum Thema " Username der schreibgeschützten DAtei"
UserName aus der Windows-Registry auslesen	Dokumententitel und UserName in Kopfzeile übernehmen