Solved: Install if certain user

[Djblois]

I am trying to use code to install a button on my toolbar if it is a specific user on the computer. This is the code I am using and it doesn't work:

If Application.UserName = "dblois" Then
Set menuObject = Tbar.Controls.Add(Type:=msoControlPopup)
menuObject.Caption = "test"
End If

[Bob Phillips]

Maybe

msoControlButton

[Djblois]

sorry xld, right now I am was just using the popup to test it but it doesn't install that if the user name is dblois.

[Bob Phillips]

Is dblois the application username or login name? If the latter, use

Environ("UserName")

[Djblois]

xld. it was the application username that I was using. However, I can use your way and it works perfectly.

[Djblois]

xld,

Actually, i forgot to test if it wouldn't install if the user name is not dblois and it still installs it. Right now it always installs it. this is the code I am using:

If Environ("Dblois") Then
Set menuItem = menuObject.Controls.Add(Type:=msoControlButton)
menuItem.OnAction = "runsummary"
menuItem.Caption = "Bob's BiWeekly Report"
End If

[Djblois]

Sorry XLD, I thought it was working. Unfortunately, it is always installing now no matter the user name. Here is my code:

If Environ("Dblois") Then
Set menuItem = menuObject.Controls.Add(Type:=msoControlButton)
menuItem.OnAction = "runsummary"
menuItem.Caption = "Bob's BiWeekly Report"
End If

[Bob Phillips]

Environ("UerName") = "Dblois"

[Bob Phillips]

See my reply in the original thread.

[lucas]

Threads merged

[Djblois]

thank you lucas. I added the other one because since I put it complete, I didn't know if anyone would see it.

[lucas]

We can mark it unsolved if you like....In fact I think you can do that using the thread tools. Edit and change the name of the thread by removing the solved part....let me know.

[Djblois]

xld,

this is what I have now:

If Environ("username") = dblois Then
Set menuItem = menuObject.Controls.Add(Type:=msoControlButton)
menuItem.OnAction = "StartBobsBiWeekly"
menuItem.Caption = "Bob's BiWeekly Report"
End If

Unfortunately, it still isn't working

[moa]

dblois should be in quotes.

[Djblois]

thank you lucas and xld it is working now I needed to add " around dblois

[Djblois]

lol, just notived your reply

[Bob Phillips]

Why don't you just copy what I give you?

[Djblois]

I would rather type it most of the code because it will help me remember it and get used to writing my own code.