非表示の名前が検出されました

ドキュメント検査で、ブックに非表示の名前が見つかりました。 これらの名前は、ソルバー シナリオに関する非表示の情報を格納する場合があります。 たとえば、ソルバー アドインを使用してシナリオを実行する場合、計算パラメーターとその他の機密性の高いデータに関する情報を、非表示の名前を付けてブック内に保存することがあります。

重要: Microsoft には、例示または暗黙的な保証のない、イラスト用のプログラミング例が用意されています。 これには、商品性または特定の目的に対する適合性の黙示的な保証が含まれますが、これに限定されるわけではありません。 この記事では、例示されているプログラミング言語と、プロシージャの作成とデバッグに使用するツールについて理解していることを前提としています。 Microsoft サポートエンジニアは、特定の手順の機能について説明していますが、これらの例を変更して、特定の要件を満たす機能の追加や手順の作成を行うことはできません。

問題

ドキュメント検査では、これらの非表示の名前を削除できません。

推奨される解決策

次のマクロを実行して、非表示の名前を削除します。 このマクロでは、3つの項目を一覧表示するメッセージボックスが表示されます。 (1) 定義された名前が表示または非表示になっているか (2) 定義された名前であり、(3) 名前が参照先 (ブックのセル参照) であるかどうかを示します。 [はい]または [いいえ] を選択して、定義された名前を削除することもできます。

注: このマクロを使用して非表示の名前を削除する場合、アドイン (ソルバーなど) またはマクロが期待どおりに動作しないことがあり、これらに関連する非表示のデータが失われる可能性があります。 このマクロは、ソルバーによって追加された名前だけでなく、非表示として定義された名前にも影響します。

注意: シート名にスペースが含まれていると、定義された名前を削除しようとしたときに、エラーが表示されることがあります。

非表示の名前を削除する

' Module to remove all hidden names on active workbook
   Sub Remove_Hidden_Names()

       ' Dimension variables.
       Dim xName As Variant
       Dim Result As Variant
       Dim Vis As Variant

       ' Loop once for each name in the workbook.
       For Each xName In ActiveWorkbook.Names

           'If a name is not visible (it is hidden)...
           If xName.Visible = True Then
               Vis = "Visible"
           Else
               Vis = "Hidden"
           End If

           ' ...ask whether or not to delete the name.
           Result = MsgBox(prompt:="Delete " & Vis & " Name " & _
               Chr(10) & xName.Name & "?" & Chr(10) & _
               "Which refers to: " & Chr(10) & xName.RefersTo, _
               Buttons:=vbYesNo)

           ' If the result is true, then delete the name.
           If Result = vbYes Then xName.Delete

           ' Loop to the next name.
       Next xName

   End Sub

注:  このページは、自動翻訳によって翻訳されているため、文章校正のエラーや不正確な情報が含まれている可能性があります。 私たちの目的は、このコンテンツがお客様の役に立つようにすることです。 情報が役に立ったかどうか、ご意見をお寄せください。 参考までに、こちらから英語の記事をお読みいただけます。

ヘルプを表示

Office のスキルを磨く
トレーニングの探索
新機能を最初に入手
Office Insider に参加する

この情報は役に立ちましたか?

ご意見をいただきありがとうございます。

フィードバックをお寄せいただき、ありがとうございます。Office サポートの担当者におつなぎいたします。

×