Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Private Function GetLogonUser() As String
Dim strTemp As String, strUserName As String
strTemp = String(100, Chr$(0))
strTemp = Left$(strTemp, InStr(strTemp, Chr$(0)) - 1)
strUserName = String(100, Chr$(0))
GetUserName strUserName, 100
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
GetLogonUser = strUserName
End Function
Sub ShowUserName()
MsgBox GetLogonUser
End Sub
Sub OnlyForRudi()
Dim sName As String
sName = GetLogonUser
If sName = "Rudi" Then
MsgBox "jij bent Rudi"
'doe hier wat de macro moet doen!
Else
Exit Sub 'niet uitvoeren dus
End If
End Sub