Function unterdrücken
07.11.2005 15:14:16
HARRY
beim Öffnen meiner Datei wird in Zelle A1 der aktuelle Benutzer per Formel (=Benutzername) und folgender
Function ermittelt:
Option Explicit
Dim BName As String
Declare
Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Function Benutzername()
Dim Buffer As String * 100
Dim BuffLen As Long
Application.Volatile
BuffLen = 100
GetUserName Buffer, BuffLen
Benutzername = Left(Buffer, BuffLen - 1)
End Function
Die Ermittlung des aktuellen Benutzers wird eigentlich nur einmal
(beim Öffnen der Datei) benötigt.
Während der Nutzung der Datei müssen die verschiedenen USER verschiedene Makros mit sehr vielen Range-Befehlen starten.
Diese Makros dauern sehr lange, da nach jedem Range-Befehl (mit denen Werte in Zellen eingegeben werden) immer wieder die Schleife über obengenannte
Function durchlaufen wird.
Ich hoffe, dass ich mich verständlich ausgedrückt habe. Nun zu meiner Frage:
Wie bekomme ich es hin, dass der User nur einmal beim Öffnen der Datei ermittelt wird
(Private
Sub Workbook_Open) ?
Vielen Dank im voraus.
Gruß, HARRY