Pop-up when opening a file

[Pollie]

I would like to create a popup which asks for the username immediately when this user opens the file. The username I want to store somewhere in the file. Does anybody know if this is possible and how to do this?

 

[Oaktree]

Welcome to the board.

Why not just use Application.username in VBA to get the username without having to ask for it?

 

[Pollie]

That's an option for the username, but actually I want more pop-ups with other info than username.

 

[Norie]

Why not create a userform that you can show when the workbook opens like this?

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

 

[Oaktree]

If it were just one item, you could use something like this in the ThisWorkbook module:

Private Sub Workbook_Open()
[z1] = Application.InputBox("If your user name is not " & Application.UserName & " please enter the correct username")
If [z1] = "" Then [z1] = Application.UserName
End Sub

To prompt the user to enter a Username

If you're going to be asking for more information that just that, it is better to use a userform than a barrage of Inputboxes.

 

[erik.van.geit]

Hi, Pollie
Welcome to the Board !!!!!

perhaps you mean something like this

Private Sub Workbook_Open()
Dim user_name As String
Dim FBR As Long             'First Blank Row

'instead of the default "", you can use Application.UserName)

user_name = Application.InputBox("name please", "title", "")
    With Sheets("login")
    FBR = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    .Cells(FBR, 2) = user_name
    .Cells(FBR, 1) = Now
    End With

End Sub

kind regards,
Erik

EDIT: didn't see any reply before posting

 

[Pollie]

Thanks, this is a good start, but the macro stops at "With Sheets("login")". What to do?

 

[erik.van.geit]

do you have a sheet named "login"

 

[Pollie]

No, I don't.