Office アプリケーションで VBA が使用できる状態になっているかどうかを確認する方法

文書番号: 285884 - 対象製品
この記事は、以前は次の ID で公開されていました: JP285884
すべて展開する | すべて折りたたむ

目次

はじめに

この資料では、Microsoft Office アプリケーションに Microsoft Visual Basic for Applications (VBA) がインストールされているかどうか、および使用できる状態になっているかどうかを確認する方法について説明します。
先頭へ戻る | フィードバック

詳細

VBA がインストールされているかどうかを確認する方法

VBA がインストールされているかどうかを確認するには、Microsoft Windows インストーラの API の MsiQueryFeatureState 関数を呼び出します。この方法を次のコード サンプルに示します。

注 : この資料のコード サンプルは、Microsoft Visual Basic 6.0 を使用して作成したものです。 
Private Declare Function MsiQueryFeatureState Lib "Msi" Alias "MsiQueryFeatureStateA" (ByVal Product As String, ByVal Feature As String) As Long

Private Sub Command1_Click()
   ' Start Word.
   Dim wdApp as Object
   Set wdApp = CreateObject("Word.Application")
 
   ' Get the Product Code.
   Dim szCode as String
   szCode = wdApp.ProductCode

   ' Get FeatureState for the VBAFiles Feature.
   Dim x as Long
   x = MsiQueryFeatureState(szCode, "VBAFiles")

   If (x = 1) Or (x = 3) Or (x = 4) Then
      MsgBox "VBA is installed"
   Else
      MsgBox "VBA is NOT installed"
   End If

End Sub

VBA が使用できる状態になっているかどうかを確認する方法

VBA がインストールされている場合でも、無効になっている可能性があります。次のいずれかの DWORD レジストリ キーが存在し、0 よりも大きい値が設定されている場合、VBA は無効になっています。
  • Microsoft Office 2003
    HKLM\Software\Microsoft\Office\11.0\Common\VBAOff

    HKCU\Software\Microsoft\Office\11.0\Common\VBAOff
  • Microsoft Office XP
    HKLM\Software\Microsoft\Office\10.0\Common\VBAOff

    HKCU\Software\Microsoft\Office\10.0\Common\VBAOff
次のコード サンプルでは、これらのレジストリ キーを照会して、VBA がすべてのユーザーで無効になっているのか、現在のユーザーでのみ無効になっているのか、あるいは無効になっていないのかが報告されます。 
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByVal lpType As Long, lpData As Long, lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002

Private Function VBADisabled(hkeyid As Long) As Boolean
    VBADisabled = False
    
    Dim ret As Long
    Dim hKey As Long
    Dim sKeyName As String
    'In the following line, change "10.0" to "11.0" for 2003 versions.
    sKeyName = "Software\Microsoft\Office\10.0\Common"
    ret = RegOpenKey(hkeyid, sKeyName, hKey)
    If ret = 0 Then
        Dim dwValue As Long
        Dim dwLen As Long
        dwLen = 4
        ret = RegQueryValueEx(hKey, "VBAOff", 0, 0, dwValue, dwLen)
        If ret = 0 Then
            If dwValue > 0 Then VBADisabled = True
        End If
    End If
    
    RegCloseKey hKey


End Function

Private Sub Command1_Click()
    If VBADisabled(HKEY_LOCAL_MACHINE) Then
        MsgBox "VBA disabled for all users"
    ElseIf VBADisabled(HKEY_CURRENT_USER) Then
        MsgBox "VBA disabled for current user only"
    Else
        MsgBox "VBA is not disabled"
    End If

End Sub
先頭へ戻る | フィードバック

関連情報

関連情報を参照するには、以下の「サポート技術情報」 (Microsoft Knowledge Base) をクリックしてください。
287567
(http://support.microsoft.com/kb/287567/ )
[OFFXP] Office XP の VBA を無効にする場合の注意点
282847
(http://support.microsoft.com/kb/282847/ )
[XL2003] VBA (Visual Basic for Applications) を無効にして Excel を実行すると、一部の Excel の機能が使用できない
145679
(http://support.microsoft.com/kb/145679/ )
レジストリ API を使用して設定の保存および取得を行う方法
先頭へ戻る | フィードバック

プロパティ

文書番号: 285884 - 最終更新日: 2006年2月17日 - リビジョン: 4.0
この資料は以下の製品について記述したものです。
  • Microsoft Office Excel 2003
  • Microsoft Office PowerPoint 2003
  • Microsoft Office Word 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft Word 2002 Standard Edition
  • Microsoft Visual Basic 6.0 Professional Edition
キーワード:?
kbhowto kbautomation KB285884
"Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。（Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。"
先頭へ戻る | フィードバック

フィードバック

 
先頭へ戻る先頭へ戻る