Prodect/unprodect
10.10.2003 08:31:32
Jürgen
Ich habe eine Datei mit mehreren Blättern auf denen von 3 Usern Eintragungen gemacht werden.
Auf einer sogenannten Logdatei in der gleichen Datei lasse ich per Makro
Username;Datum;etc eintragen.
Meine Frage:
wie kann ich die Logdatei vor Veränderungen schützen?
Declare
Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Function UserName()
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
UserName = Left(Buffer, BuffLen)
UserName = Left(UserName, InStr(UserName, Chr(0)) - 1)
End Function
Danke Euch
MfG
Jürgen