Msgbox based on Msgbox

[surkdidat]

Is it possible to have a messagebox on pop up with text entry, i.e.on opening the spreadsheet it asks the user to enter their name. When they press ok, then depending on that was entered a specific message box appears, ie

Opening MsgBox - "Please Enter Your Name..."

(User enters "surkdidat")

Msgbox 2 appears "Hello surkdidat... Please work on sheet 2"

 

[Paul Ked]

Private Sub Workbook_Open()
    Dim LogName As String, MsgStr As String
    LogName = InputBox("Please enter your name.", "Name required...")
    Select Case LogName
        Case Is = "surkdidat"
            MsgStr = "Hello surkdidat... Please work on sheet 2"
        'etc etc
    End Select
    MsgBox MsgStr, vbInformation, "Have a nice day..."
End Sub

 

[surkdidat]

Excellent, thank you for this.
Sorry to be a pain, but is there an option if the name is not on the list, it states "unauthorised access", and gives one more opportunity to put their name in correctly, and if still not on the list brings up a message "sorry, too many attempts" and then closes?

Private Sub Workbook_Open()
    Dim LogName As String, MsgStr As String
    LogName = InputBox("Please enter your name.", "Name required...")
    Select Case LogName
        Case Is = "surkdidat"
            MsgStr = "Hello surkdidat... Please work on sheet 2"
        'etc etc
    End Select
    MsgBox MsgStr, vbInformation, "Have a nice day..."
End Sub

 

[Paul Ked]

Sure, just put that in where it says etc etc, simples!

 

[surkdidat]

Hello thee. With my limited knowledge of VBA, I have now worked out what I needed

Many hanks again for your help!

Sure, just put that in where it says etc etc, simples!

 

[Paul Ked]

Excellent!

Cheers

 

[MrIfOnly]

Another way to do this without user Select Case for each username: (Create a named range of all of your users and name it "UserNames")

Private Sub Workbook_Open()    Dim LogName, response As Integer
    Dim UserName As Range
    Do
        response = 0
        LogName = Application.InputBox("Please enter your name.", "Name required...")
        If LogName = False Then ThisWorkbook.Close
        Set UserName = Range("UserNames").Find(LogName, lookat:=xlWhole)
        If UserName Is Nothing Then
            response = MsgBox("You did not enter a valid username. Do you wish to continue?", _
            vbRetryCancel + vbCritical, "Invalid Username")
        End If
        If response = 2 Then ThisWorkbook.Close
    Loop Until response <> 4
    
    MsgBox "Hello " & UserName & "... Please work on sheet 2"
    Worksheets(2).Activate
End Sub

Regards,

CJ

 

[Paul Ked]

I went the select case route because of

depending on that was entered a specific message box appears

Your message box only changes the user name, not the direction.

 

[MrIfOnly]

I went the select case route because of



Your message box only changes the user name, not the direction.

Good point. I missed that in the OP.