login

[aidan_soccer11]

hi all i just want to know , when i open my workbook i want it to pop up with a box saying like a user name so if some1 put (o lets just say "tony") once they clicked ok its would say Welcome Tony


could some1 help


thanks

 

[mvptomlinson]

In the Workbook_Open event, try something like:

Private Sub Workbook_Open()
    Dim theUser As String
    theUser = InputBox("Enter your name", "Welcome")
    If theUser = "" Then
        MsgBox "No user name entered."
    Else
        MsgBox "Welcome " & theUser & "!"
    End If
End Sub

 

[mvptomlinson]

Another option, to simply capture the logged in user name on the computer rather than prompting the user:

Private Sub Workbook_Open()
    MsgBox "Welcome " & Environ("USERNAME") & "!"
End Sub

 

[jindon]

Popup?

Private Sub Workbook_Open()
    CreateObject("WScript.Shell").Popup Environ("username"), 3
End Sub