Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8321 / 13646 ツリー ←次へ | 前へ→

【34052】ExcelのプロダクトID取得方法 こば。 06/1/25(水) 16:39 質問[未読]
【34053】Re:ExcelのプロダクトID取得方法 こば。 06/1/25(水) 16:41 質問[未読]
【34055】Re:ExcelのプロダクトID取得方法 inoue 06/1/25(水) 17:34 発言[未読]
【34056】Re:ExcelのプロダクトID取得方法 Blue 06/1/25(水) 17:40 回答[未読]
【34057】Re:ExcelのプロダクトID取得方法 Blue 06/1/25(水) 17:45 発言[未読]

【34052】ExcelのプロダクトID取得方法
質問  こば。  - 06/1/25(水) 16:39 -

引用なし
パスワード
   ExcelのプロダクトID取得方法をレジストリから取得したい。

wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Registration\{*********}\ProductID")
で読みたいのですが、各個人のマシンによって*******の部分が変わると思います。
ここをの部分だけ読み直して、キーをセットしなおして再度RegReadすることは
可能なのでしょうか。

【34053】Re:ExcelのプロダクトID取得方法
質問  こば。  - 06/1/25(水) 16:41 -

引用なし
パスワード
   ▼こば。 さん:
>ExcelのプロダクトID取得方法をレジストリから取得したい。
>
>wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Registration\{*********}\ProductID")
>で読みたいのですが、各個人のマシンによって*******の部分が変わると思います。
>ここをの部分だけ読み直して、キーをセットしなおして再度RegReadすることは
>可能なのでしょうか。

すみません、動作保障OSは2000です。上記はXPを例に掲載させていただきました。

【34055】Re:ExcelのプロダクトID取得方法
発言  inoue E-MAILWEB  - 06/1/25(水) 17:34 -

引用なし
パスワード
   ▼こば。 さん:
>ExcelのプロダクトID取得方法をレジストリから取得したい。
外し覚悟です。

レジストリ処理はよく分かりませんが、
{*********}の部分は、
Application.ProductCode
ではないでしょうか。

今、RegEditで覗いたのですが(WinXP+Office2000)、
{*********}はなく、
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\9.0\Registration\ProductID
となっており、既定のデータは「none」でした。
Excel97と併存のせいかもしれませんが、
"8.0"の方には"Registration"もありません。

【34056】Re:ExcelのプロダクトID取得方法
回答  Blue  - 06/1/25(水) 17:40 -

引用なし
パスワード
   Application.ProductCode
でとれるっぽいです。
(私の環境では **** が同じ文字列でした)

ついでに
> Office\11.0
の11.0のところも、
Application.Version
で取ったほうがよさそう。

【34057】Re:ExcelのプロダクトID取得方法
発言  Blue  - 06/1/25(水) 17:45 -

引用なし
パスワード
   inoueさんとむちゃくちゃかぶりました。orz

私のところは、Office10.0でしたので、
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\10.0\Registration\{*********}\ProductID
でした。

バージョンによって異なるならば、やはり
Application.Version
で切り分ける必要がありそうですね。
# 意外と簡単に ProductID が取れる方法があるのかも?

8321 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free