PS:
Das makro hat nach dem manuellen starten den angemeldeten
:„UserName“ mit der Eingabe verglichen und korrekt gehandelt.
Das bezweifle ich.
Der eingegebene Name, der mit dem Windows-Anmeldenamen vorbesetzt(!) ist, wird mit dem Text „Name“ verglichen…
Wenn der eingegebene Name mit dem Anmeldnamen verglichen werden soll (was mir auch nicht einleuchtet, warum überhaupt), dann sollte das eher so lauten:
Sub Form\_Open(Cancel as Integer)
Dim strEingabe As String
strEingabe = InputBox("Bitte Anmeldenamen eingeben", "Bitte Ihren Anmeldenamen eingeben")
If strEingabe Environ("UserName") Then
MsgBox "Zugriff verweigert!"
Cancel=true
End If
End Sub