Office: Speichern mit VBA macht Probleme!

Hallo Experten!

zum Anfang erstmal mein Code, danach das Problem!

Dim zeit As String
Dim datum As String
Dim User As String
Dim Compname As String

Sub Check(Compname, User)
Compname = UCase(Environ("Computername"))
User = UCase(Environ("Username"))
End Sub

Sub Speichern(aktion)
Call Check(Compname, User)
User = UCase(Environ("Username"))
Pfad = Sheets("Start").Range("F9") ' SPEICHERPFAD Gerätebez-zgr => Gerätebezeichnung-Zugriff
Datei = "Gerätebez-zgr"
Pfad = Pfad + Datei + ".xls"
zeit = Time
datum = Date
Text = datum + Chr$(9) + zeit + Chr$(9) + Compname + Chr$(9) + User + Chr$(9) + aktion
Open Pfad For Append As #1
Print #1, Text
Close #1
End Sub

In Range "F9" Speicherpfad steht: \\Ausbserver1\Home\Gerätebezeichnung\


Mein PROBLEM besteht darin, das User auch über andere Server auf diese Arbeitsmappe zugreifen können. Dadurch wird eine Fehlermeldung ausgegeben und meine Mappe wird ungeschützt geöffnet. (MURKS!)

Jetzt habe ich mir gedacht, die Userdaten in meiner Arbeitsmappe, also nicht mehr extern zu speichern. Die Tabelle könnte "UserZugr" heißen.
Nur wie kann man das realisieren?
HAbe schon hin und her gebastelt, aber irgendwie klappt es nicht!

Danke für eure Hilfe!

Gruß

Mike