スタートメニューに表示される名前の取得(EXCEL

質問

EXCELのユーザー名（アプリケーションユーザ名）の変更を行いたいと考えいます。
（ツール⇒オプション⇒全般の中に表示される「ユーザー名」の部分）

EXCEL立ち上げたら自動的に変更されるようなVBAを作成してるのですが、
変更する名前の取得方法がわかりません。

OSのログインユーザーの取得方法はわかるのですが、その情報ではなく、
スタートメニューをクリックした際に一番上に表示せれる名前の情報を取得して
アプリケーションユーザー名を書き換えたいと考えています。

（私の環境の場合、OSのログインユーザー名は数字の羅列で、スタートメニューの中の名前が漢字氏名となっているためです）

この情報を取得し、アプリケーションユーザー名を書き換えるVBAをご教授いただけますでしょうか。
よろしくお願い致します

回答No.2

merlionXX

ANo1　merlionXXです。

> 上の方法での "hatenasan12"をWindowsのスタートメニューに表示される名前に書き換えたいということです。　ユーザごと表示名違うので。

ああ、そういう意味ですか。
わたしはまだWin2000なので、スタートメニューに名前が表示されないのです。
PCのログインIDなら、Environ("Username")　で取得できます。

それでよければ
Application.UserName = Environ("Username")
で出来ると思いますが、違っていたらごめんなさい。

回答No.1

merlionXX

> EXCEL立ち上げたら自動的に変更されるようなVBA

それなら、

Sub Auto_Open()
Application.UserName = "hatenasan12"
End Sub

ですが、一度かえたらそのままなので何もEXCELをち上げるごとに設定する必要はないのでは？

補足

もちろん、毎回設定させるつもりはありません。
全員に配って、1回だけ実行だけしてもらうつもりです。

（クリック1つで、書き換えられるようにしたい）

上の方法での "hatenasan12"をWindowsのスタートメニューに表示される名前に書き換えたいということです。　ユーザごと表示名違うので。