showZugriffe
07.09.2006 20:38:25
PeterP
wieso funzt folgende VBA nur mit Word-Dokumenten. In der Fa., wo ich es auch für Excel einsetzen wollte, klappte es mit Word, aber nicht mit Excel.
Wieso und gibt es das Script auch für Excel Dateien?
Ach ja, wir haben in der Fa. Windows 2000 Server und Office 2000
Quelle des Scriptes ist übrigens die aktuelle Chip
Sub autoOpen()
Dim strUser As String
On Error Resume Next
strUser ystem.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "Logon User Name")
strUser trUser & " (" & CStr(Date) & " " & CStr(Time) & ")"
ThisDocument.Variables.Add Name: etzteZugriffe", Value: rUser
ThisDocument.Variables("LetzteZugriffe") trUser & vbCr & ThisDocument.Variables("LetzteZugriffe")
ThisDocument.Save
End Sub
Sub showZugriffe()
MsgBox ThisDocument.Variables("LetzteZugriffe")
End Sub