Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
custom settings per user?
Hi, is it possible for excel to know who has loged on to the system an
then run a macro i have set up for that user? I'm thinking of some form of IF statment macro but i have know idea o how to get excel to know who has logged in. We all have different logins for the computer for example pmawle o tsmith etc.. Regards Pet -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
custom settings per user?
Hi Pete,
but i have know idea of how to get excel to know who has logged in. This gets you the name of the person logged in: Option Explicit Private Const MAX_USERNAME As Long = 256 Private Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" _ (ByVal lpBuffer As String, _ nSize As Long) As Long Function rgbGetUserName() As String 'return the name of the user Dim tmp As String tmp = Space$(MAX_USERNAME) If GetUserName(tmp, Len(tmp)) Then rgbGetUserName = TrimNull(tmp) End If End Function Private Function TrimNull(item As String) Dim pos As Integer pos = InStr(item, Chr$(0)) If pos Then TrimNull = Left$(item, pos - 1) Else: TrimNull = item End If End Function Regards, Jan Karel Pieterse Excel MVP www.jkp-ads.com |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
custom settings per user?
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
(ByVal lpBuffer As String, nSize As Long) As Long Function ActiveUser() As String Dim str As String str = Space(256) If GetUserName(str, 256) Then ActiveUser = Split(str, Chr(0), 2)(0) End Function -- Rob van Gelder - http://www.vangelder.co.nz/excel "Pete JM " wrote in message ... Hi, is it possible for excel to know who has loged on to the system and then run a macro i have set up for that user? I'm thinking of some form of IF statment macro but i have know idea of how to get excel to know who has logged in. We all have different logins for the computer for example pmawle or tsmith etc.. Regards Pete --- Message posted from http://www.ExcelForum.com/ |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
custom settings per user?
Hi Mark
Put first these declaration in a standard module : Declare Function Get_User_Name Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, _ nSize As Long) As Long Public Function GetUserName() As String ' By Chris Rae, 14/6/99, 3/9/00. 'Option Explicit ' This is used by GetUserName() to find the current user's ' name from the API Dim lpBuff As String * 25 Get_User_Name lpBuff, 25 GetUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1) End Function Then, in a sub, you can test the user name sub test Dim strmsgUser$ user = GetUserName if user= "username" then end if end sub Regards, Jean-Yves "Pete JM " wrote in message ... Hi, is it possible for excel to know who has loged on to the system and then run a macro i have set up for that user? I'm thinking of some form of IF statment macro but i have know idea of how to get excel to know who has logged in. We all have different logins for the computer for example pmawle or tsmith etc.. Regards Pete --- Message posted from http://www.ExcelForum.com/ |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
custom settings per user?
thank you all very much! This has been really helpful Thank you!
Best regards Pet -- Message posted from http://www.ExcelForum.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Keeping Custom Chart Settings | Charts and Charting in Excel | |||
are user-defined chart settings transferrable? | Setting up and Configuration of Excel | |||
Saving Print Settings - Customized for each user | Excel Discussion (Misc queries) | |||
Keep custom toolbar settings - Help!! | Excel Discussion (Misc queries) | |||
Keep Custom Menu settings - help !! | Excel Worksheet Functions |