Prompt to change user name

[Grizlore]

Could anyone help please?

Some Users have their full name as the user name within Excel, some just have their three initials.

Is there a way of promting the User to change their stored user name if it is only 3 characters long.

Ideally, I would like an input box to help them change it.

If someone could give me a point in the right direction, it would be appreciated.


Thanks

 

[Andrew Poulsom]

What have you tried? The Application object's UserName property contains the user name and is read/write. You can use the Len funtion to check its length. You can use the InputBox function to prompt the user for input.

 

[Grizlore]

I have bodged this together (hope the code posts ok)

Any suggestions... it seems to do what I need, after your kind advise

Once the Application.username is changed... does it stay changed???

Option Explicit

Sub UserName_checker()

Dim Username As String
Dim NewName As String

If Len(Application.Username) = 3 Then _

NewName = InputBox("Your username is not your fullname..blarr...enter below", _
    "Please enter full name", "Enter your full name HERE")

If NewName = "Enter your full name HERE" Or _
NewName = "" Then
Exit Sub
End If

Application.Username = NewName

MsgBox "Thanks, your Username has now been changed within Excel"

End Sub

Andrew, once again... thanks for your help/advice

 

[wigi]

does it stay changed???

Yes.

 

[Grizlore]

My final code is...

I have intentionally changed my original idea of 3 digits long, to <5

Sub UserName_checker()

Dim Username As String
Dim NewName As String

On Error GoTo 0

Application.ScreenUpdating = False

If Len(Application.Username) < 5 Then NewName = InputBox("It appears that Excel isn't using your full name.", _
    "Your Username is currently stored as " & Application.Username, "Enter your full name HERE")

If NewName = "Enter your full name HERE" Or _
NewName = "" Then
Exit Sub
End If

Application.Username = NewName

ActiveWorkbook.Save

Application.ScreenUpdating = True

MsgBox "Your Username has now been changed to " & UCase(NewName) & " within Excel", , "Name change notification"


End Sub

any comments welcome