-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
need macro (if windows current user... then)
- Thread starter backup69
- Start date
north19701
Active Member
- Joined
- Jun 17, 2003
- Messages
- 491
like?:
Code:
Private Sub Workbook_Open()
If Application.UserName = "me" Then
'something
else
'something else
End If
End Sub
Upvote
0
The following will put the user’s Windows log-on name in sheet1, cell A1
Normal module
ThisWorkbook module
Regards,
Mike
Normal module
Code:
Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long
Public Function UserName() As String
Dim sName As String * 256
Dim cChars As Long
cChars = 256
If GetUserName(sName, cChars) Then
UserName = Left$(sName, cChars - 1)
End If
End Function
Code:
Private Sub Workbook_Open()
Dim UserN As String
UserN = UserName()
Sheets(1).Range("A1").Value = UserN
End SubRegards,
Mike
Upvote
0
north19701
Active Member
- Joined
- Jun 17, 2003
- Messages
- 491
no problem. preferably, I'd use Ekim's. seems a lot more fool proof than mine.
Upvote
0
Sry but something wrong
This chek only Name in Excel user but not Windows User
And this code i dont anderstand completely
i dont figure out
i put this in Workbook not to WorkSheet (this not work)
To smart for me :P
Code:
Private Sub Workbook_Open()
If Application.UserName = "my name" Then
UserForm1.Show
else
'something else
End If
End SubAnd this code i dont anderstand completely
Code:
Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "My Name" _ '<---------------------this
(ByVal lpBuffer As String, _
nSize As Long) As Long
Public Function UserName() As String
Dim sName As String * 256
Dim cChars As Long
cChars = 256
If GetUserName(sName, cChars) Then
UserForm1.Show '<---------------- and this
End If
End Functioni dont figure out
i put this in Workbook not to WorkSheet (this not work)
To smart for me :P
Upvote
0
north19701
Active Member
- Joined
- Jun 17, 2003
- Messages
- 491
backup69: what you need to do is place Mike's following code:
in a regular module, not the worksheet or workbook modules.
then in your workbook module place Mike's other code:
and adjust it to your needs. The UserN variable houses the user name, so you could right an If statement of of that like
Code:
Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long
Public Function UserName() As String
Dim sName As String * 256
Dim cChars As Long
cChars = 256
If GetUserName(sName, cChars) Then
UserName = Left$(sName, cChars - 1)
End If
End Functionin a regular module, not the worksheet or workbook modules.
then in your workbook module place Mike's other code:
Code:
Private Sub Workbook_Open()
Dim UserN As String
UserN = UserName()
Sheets(1).Range("A1").Value = UserN
End Suband adjust it to your needs. The UserN variable houses the user name, so you could right an If statement of of that like
Code:
If UserN = "Me" then
'something
else
'something else
end if
Upvote
0
north19701
Active Member
- Joined
- Jun 17, 2003
- Messages
- 491
what do you need it to do with the name once you get it? Ekim's code provides the Windows user logon name.
Upvote
0
