Excel VBA質問箱 IV

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

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


46142 / 76732 ←次へ | 前へ→

【35568】Re:Excel2000のプロダクトID取得について
発言  Ned  - 06/3/7(火) 21:08 -

引用なし
パスワード
   こんにちは。
>確実にとれるのか
となるとよくわかりませんが、とりあえず私の環境では以下でとれました。

Sub license()
  On Error Resume Next
  Dim ProductVersion As String
  'Dim ProductCodeID As String
  Dim ExcelPath As String
  Dim wsh As Object
  
  Set wsh = CreateObject("WScript.Shell")
  'Excelのバージョン情報、プロダクトコード取得
  ProductVersion = Application.Version
  'ProductCodeID = Application.ProductCode
  'レジストリ読み込みキーの作成
  ExcelPath = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\" _
    & ProductVersion & "\Registration" & "\ProductID\" 'ProductCodeID & "\ProductID"
  'ExcelのプロダクトID取得
  Range("I2") = wsh.Regread(ExcelPath)
  'ユーザ名セット
  Range("I3") = Application.UserName
  Set wsh = Nothing
End Sub
6 hits

【35559】Excel2000のプロダクトID取得について こば。 06/3/7(火) 19:41 質問
【35568】Re:Excel2000のプロダクトID取得について Ned 06/3/7(火) 21:08 発言
【35575】Re:Excel2000のプロダクトID取得について こば。 06/3/7(火) 21:50 発言

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