Display Username And Welcome Message

AndrewJ · Jan 10th 2007

Thought I'd post up a little code I wrote a while back for an app I was developing... kind of useless but its pretty cool. This will get the user name of the computer and display a personal message based on what time the windows clock is set to.

Code

Option Explicit
Private UserName As String
Private Declare Function getusername Lib "advapi32.dll" _ 
   Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long


sub display_un_and_welcome()


    ' display the username and welcome message


    get_user_name


    Sheets(1).Select


    Range("B2").Select
    ActiveCell.FormulaR1C1 = _
       "=IF( HOUR(NOW()) < 18, IF(HOUR(NOW()) > 11, ""Good Afternoon,"", _ 
            IF(HOUR(NOW()) <  6, ""Good morning, wow you're here _ 
            early,"",""Good Morning,"")), ""Good Evening,"")"


    Range("B6").Select


    Range("B2").Value = Range("B2").Value & " " & UserName & "!"


End Sub


Sub get_user_name()
   
    ' get the username
    
    Dim lpBuff As String * 25
    Dim ret As Long
    ret = getusername(lpBuff, 25)
    UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
       
End Sub

Display More

hmm, somehow the code is putting spaces where the apostrophe is in the formular1c1.. just remember to take it out

amritduttgautam · Jan 13th 2007

Re: Display Username And Welcome Message

Hi AndrewJ,

Good one i think i can use it in one of my sheets

**royUK** · Jan 13th 2007

Re: Display Username And Welcome Message

Here's another way

Code

Private Sub Workbook_Open()
Dim sName As String
Dim sTxt As String
Dim CurrTime As Long
sName = Environ("UserName")


CurrTime = Hour(Now)
Select Case CurrTime
Case Is > 18
sTxt = "Good evening, "
Case Is > 12
sTxt = "Good afternoon, "
Case Is < 6
sTxt = "Good morning, wow you're here early, "
End Select
MsgBox sTxt & sName


End Sub

Display More

AndrewJ · Jan 15th 2007

Re: Display Username And Welcome Message

thumbs up to that Roy! I wrote what I had a ways back before I was really into vba, good call on the case structure tho.

Excel newbie · Jan 15th 2007

Re: Display Username And Welcome Message

Hi Roy

This may be a silly question(i may be missing something entirely here), but I dont think all the hour are covered.

What happens if its before Hour 11 but after Hour 6 ?

Could we include something like :

Code

Case Else
        sTxt = "Good Morning, "
    End Select

AndrewJ · Jan 16th 2007

Re: Display Username And Welcome Message

Yea, that should work, excel newbie. Also, I'm not sure why I had '11' there instead of 12... it might have been because excel considered 12am to be the hour 00...

Hello · Jan 21st 2007

Re: Display Username And Welcome Message

RoyUK, I used your code but only my name appears not the GoodEvening messages etc. Any ideas?

**royUK** · Jan 21st 2007

Re: Display Username And Welcome Message

Quote from Hello

RoyUK, I used your code but only my name appears not the GoodEvening messages etc. Any ideas?

If youv' copied & pasted correctly then it should work

Hello · Jan 21st 2007

Re: Display Username And Welcome Message

Yeah, it works now I think it was something to do with the hours

abccells · Jan 28th 2007

Re: Display Username And Welcome Message

hi
If I want to add time and Date to it, how to do so?
like
"Good Morning <USER NAME>, It is 5.50am 29.01.07. Have a good day! - administrater"

jai

**royUK** · Jan 28th 2007

Re: Display Username And Welcome Message

This is not a question & answer Forum. Ask your question in the Excel/VBA Forum

Display Username And Welcome Message

Participate now!

Share