Excel2010のフォームにOCXコンポーネントを追加し、Excelを起動すると
「このアプリケーションは、安全でない可能性のある ActiveX コントロールを
初期化しようとしています。
このドキュメントの提供元が信頼できる場合は、[はい] をクリックしてください。
コントロールはドキュメントの設定を使用して初期化されます。 」
というメッセージが表示されます。
メッセージを非表示にする方法をないでしょうか?

Office2003では、「Forms3 および ActiveX 初期化」で対応できました。
http://support.microsoft.com/kb/827742/ja

Office2010で、同様の方法で設定しても非表示になりませんでした。
Office2010では、設定方法が変わってしまったのでしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (1件)

環境によるのかもしれませんね。


OWC11.DLLのSpreadsheetコントロールで試してみましたが
HKEY_CURRENT_USER\Software\Microsoft\VBA\Securityキーの設定で対応できました。
参考まで。

(環境)
OS:WindowsXP pro sp3
EXCEL:2010 14.0.5128.5000(32ビット)
#他バージョンとの共存あり(97,2000,2003,2007)
    • good
    • 0
この回答へのお礼

迅速なご回答ありがとうございます。

ご回答どおり、
HKEY_CURRENT_USER\Software\Microsoft\VBA\Securityキーに
以下の値を設定すると、メッセージが非表示になりました。
値の名前:LoadControlsInForms
値の種類:REG_DWORD
値のデータ:1

質問前にこの方法で設定したときは、
非表示にはならなかったのですが。。。

おそらく、そのときは設定ミスをしていたと思います。
助かりました。ありがとうございます。

お礼日時:2011/04/19 14:52

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセル起動時、ActiveXコントロールのメッセージ

エクセルを起動して知人が作成したマクロを使用しようとすると以下のような謎のメッセージがでてマクロの一部機能が動作しません。(このメッセージが指す部分が原因だと思います)

このアプリケーションは安全ではない可能性のある、ActiveXコントロールを初期化しようとしています。このファイルの提供元が信頼できる場合は「ok」をクリックします。コントロールは現在のワークスペースの設定で初期化されます。

いったいどういう意味でしょうか?ちなみにこのマクロは他のPCでは機能します。エクセル2003を使用しています。

Aベストアンサー

こんばんは。

あまり、概念的な話をここで言ってもラチは開かないように思いますから、現実、そのActive X コントロールは何をどう使っているか、っていうことじゃないかしらね。

早い話、それは何か分かっていればよいのですが。

VB6辺りで、自家製でなんていう人もいるかもしれませんが、他のPCで問題ないのを、そのPCだけダメ出しもありえないわけです。しかし、まがりなりにも、マクロの提供側としては、「署名」を入れていない以上は、一応、Active X の名称や性質ぐらいは、提示する義務はあると思いますが、そこらはどうかなっているのでしょうね。

もう、こういうのは、私たちのような外野ではなく、当事者どうしの話のような気もします。ある程度のマクロのレベルの達している人は、Office XP以降で、こういう似たような話は経験しているわけでしょうから、後は、当事者間で、一応の確認をしていただくしか手はないような気がします。もちろん、信頼するで、「OK」もありえますが。ただ、そういう表示をなくしてほしいというリクエストは、お金の掛かる問題だから、それは個人間では、置いておくしかありません。

こんばんは。

あまり、概念的な話をここで言ってもラチは開かないように思いますから、現実、そのActive X コントロールは何をどう使っているか、っていうことじゃないかしらね。

早い話、それは何か分かっていればよいのですが。

VB6辺りで、自家製でなんていう人もいるかもしれませんが、他のPCで問題ないのを、そのPCだけダメ出しもありえないわけです。しかし、まがりなりにも、マクロの提供側としては、「署名」を入れていない以上は、一応、Active X の名称や性質ぐらいは、提示する義務はあると思...続きを読む

Q安全でない可能性のあるActiveXコントロールを初期化

WinXP(SP2導入済み)にOffice2003を導入しました。
他のアプリケーションでは問題ないのですが、Wordを起動させると
「このアプリケーションは、安全でない可能性のあるActiveXコントロールを初期化しようとしています。このドキュメントの提供元が信頼できる場合は「はい」・・・・」といったメッセージが表示されます。
はい、いいえのどちらを選んでも使用できるのですが、いちいちメッセージが表示されてしまいます。
なお、特定のファイルを開く時だけでなく、プログラムメニューから起動させる時(白紙のテンプレートで作業開始する場合)も表示されます。

Aベストアンサー

>ActiveXコントロールの削除
おそらくWORDのVBAを起動してから該当のコントロールを削除することになりますが、初心者には難しいと思います。

QEXCELでactivexコントロールを挿入できな

お世話になります。
環境はWindows8.1+EXCEL2010です。
タイトルの通り、ワークシート上にactivexコントロールのラベルやテキストボックスなどを挿入しようとすると「オブジェクトを挿入できません」というエラーが表示されてしまいます。
月並みな表現ですが、まさに昨日まで特に問題なく使用できていたため、原因がわからず非常に困惑しております。
ちなみに昨日まではVBAにてワークシート上に正常に配置できていたラベルコントロールが、本日では「実行時エラー1004: オブジェクトを挿入できません」というエラーを表示して正常に配置できなくなってしまい、異常が発覚した次第です。"Microsoft Forms 2.0 Object Library"への参照設定がなされていることは確認しています。
他に確認すべき点などございましたら、ぜひご教授いただければ幸いです。
よろしくお願いいたします。

Aベストアンサー

当方2014/12/10の夜に更新プログラムをインストール後、
同じ現象が発生しており、解決いたしましたので、参考になればと思い回答いたします。
Windows7 32bit
Excel2013


(当方が解決した方法)
Cドライブ内を「*.exd」で検索し、検出されたファイルをすべて削除します。



(exdファイルについて)
Excel上で、ActiveXコントロールを挿入した際、キャッシュのために一時フォルダなどに作成されます。


(考えられる原因)
更新プログラムの中に脆弱性を解決するプログラムがいくつか含まれております。
ActiveXコントロールに関係したセキュリティホールがあったと予測できます。
そのうえで考えると、更新適用前のOfficeで作られたexdファイルを使われるとセキュリティ上まずいので、使わせないようにしたのではと予測できます。


(参考にしたサイト)
https://social.technet.microsoft.com/Forums/office/en-US/b8f0af82-0bb8-4799-aa62-1dbcbc5b7742/excel-2010-macros-does-not-work-after-updates-9dec2014?forum=excel

当方2014/12/10の夜に更新プログラムをインストール後、
同じ現象が発生しており、解決いたしましたので、参考になればと思い回答いたします。
Windows7 32bit
Excel2013


(当方が解決した方法)
Cドライブ内を「*.exd」で検索し、検出されたファイルをすべて削除します。



(exdファイルについて)
Excel上で、ActiveXコントロールを挿入した際、キャッシュのために一時フォルダなどに作成されます。


(考えられる原因)
更新プログラムの中に脆弱性を解決するプログラムがいくつか含まれております。
Acti...続きを読む

Q【Excel VBA】マクロでExcel自体を終了させたい

環境:WindowsXP、Excel2003

マクロでエクセルを終了(ブックを閉じて、アプリケーション自体も終了)させたいのですが、以下のコードではアプリケーションが閉じてくれません。

ThisWorkbook.Close
ExcObj.Quit
Application.Quit

どこか悪いところはありますでしょうか?

よろしくお願いします。

Aベストアンサー

普通に考えれば質問者のコードで上手くいきそうですが
hana-hana3さんの回答にもあるようにThisWorkBook.Closeでコード終了となりますので
Application.QuitをThisWorkBook.Closeの前にもってこないといけません。
Application.Quitはそれがあるプロシージャのコードが全て終わるまで
その実行を保留するちょと特別動作をします。

'-------------------------------------
 Application.Quit
 ThisWorkbook.Close
'-------------------------------------
 
 

QVBAによる動画再生

お世話になります。

エクセルのVBAを使って,動画を再生するマクロを組みました。以下のページを参考に作りましたが,エクセルのファイルを立ち上げると,自動的に動画再生が始まってしまいます。再生開始ボタンをクリックしたときに動画再生をしたいのですが,どうすればいいでしょうか。

皆様のお力をお貸しください。使っているのはエクセル2010,Windows8です。

よろしくお願いします。

参考URL
http://ch3cooh.jp/excel-2003/play-movie-using-excel-vba/

Aベストアンサー

停止ボタンも作成し、以下のマクロを登録してみてください。

Sub CloseMovie()
WindowsMediaPlayer1.URL = ""
End Sub


Excelを保存して終了する際は、必ず上記の停止ボタンを押して終了するようにしてみてください。

QEXCELファイルのカレントフォルダを取得するには?

EXCELファイルのカレントフォルダを取得するには?

C:\経理\予算.xls

D:\2005年度\予算.xls

EXCEL97ファイルがあります。

VBAで
  カレントフォルダ名
(C:\経理\,D:\2005年度\)
を取得する事は可能でしょうか?

CURDIRでは上手い方法が見つかりませんでした。

Aベストアンサー

こんばんは。
Excel97 でも、同じですね。以下で試してみてください。

Sub test()
'このブックのパス
a = ThisWorkbook.Path
'アクティブブックのパス
b = ActiveWorkbook.Path
'Excelで設定されたデフォルトパス
c = Application.DefaultFilePath
'カレントディレクトリ
d = CurDir
MsgBox "このブックのパス   : " & a & Chr(13) & _
   "アクティブブックのパス: " & b & Chr(13) & _
   "デフォルトパス    : " & c & Chr(13) & _
   "カレントディレクトリ : " & d & Chr(13)
End Sub

Qエクセル VBA ユーザーフォームを閉じる

ユーザーフォームを開く時は
UserForm1.Showですが
閉じる時は?
UserForm1.Close
だとコンパイルエラーになります。
End
にするしかないですか?

Aベストアンサー

Unload Me とか Unload UserForm1 でユーザーフォームを閉じることができます。

QExcelで =EMBED("Acrobat Document","")の意味を教えてください

あるExcelファイルを開いたところ 画像が貼りつけてあり この画像をポイントしたところ数式バーに =EMBED("Acrobat Document","") という数式が表示されました
この数式の意味することを教えていただけないでしょうか
よろしくお願いします

Aベストアンサー

動詞「埋める」を意味する"Embed"から、オブジェクトを埋めこむ関数と
してヘルプには記載が無い内部関数ですね。
http://office.microsoft.com/ja-jp/excel/HP052034191041.aspx

Excelファイルとは別に、オブジェクトとしてのフォームや外部シート、
Word文書やペイントなどからの関連した画像などが対象です。
"=EMBED("Acrobat Document)"とある場合は、他の回答にもあるように
外部のPDFファイルを埋めこんであることを意味しています。

この機能が埋めこんである場合には、対象をダブルクリックすることで
対象に関係するオブジェクトで埋めこんであるものが開きます。
PDFが関係しますので、これをダブルクリックすることでAdobeReaderで
対象が開くようになります。PDFファイルの場合だとトップページしか
表示されていない場合でも、ダブルクリックすることで2ページ以降を
見ることができる場合もありますので、これを埋めこむ意味合いはある
と思います。

関連するオブジェクトで編集できるなど、さまざまな場面で活用されて
いますので、今回以外でも見る機会はあるかと思います。

ちなみに、Wordにも似たようなものとしてNo.2さんが紹介しているもの
がありますので、Officeを使ううちに、いつかは利用するときもあると
思いますよ。

動詞「埋める」を意味する"Embed"から、オブジェクトを埋めこむ関数と
してヘルプには記載が無い内部関数ですね。
http://office.microsoft.com/ja-jp/excel/HP052034191041.aspx

Excelファイルとは別に、オブジェクトとしてのフォームや外部シート、
Word文書やペイントなどからの関連した画像などが対象です。
"=EMBED("Acrobat Document)"とある場合は、他の回答にもあるように
外部のPDFファイルを埋めこんであることを意味しています。

この機能が埋めこんである場合には、対象をダブルクリックす...続きを読む

Qユーザーフォームにワークシートを表示させる。

Offics Professional Plus2010を使用しています。あるサイトで「ユーザーフォームにワークシートを表示させる。」を見て説明通り行いましたが、「Microsoft Office Spreadsheet」がなく、説明通りOfficsのCDを入れ、「機能の追加/削除」を選択、Excel項目の+を外しましたが中に見当たりません。あるのは「NET プログラミンサポート」と、「アドイン」と、「サンプルファイル」です。何を選択したら良いのでしょうか?教えてください。

Aベストアンサー

http://oshiete.goo.ne.jp/qa/6402282.html?order=asc

2007用に別途ダウンロードできますが
『2007 Microsoft Office system 用 Microsoft Office 2003 Web Components Service Pack 1 (SP1)』
http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=c815dffa-d5f3-4b71-bf46-13721bd44682

これが2010単独環境でも動作するかどうかというのは..さて、どうでしょうか。
http://support.microsoft.com/kb/972129/ja
http://support.microsoft.com/kb/828949/ja

winXPsp3/xl2000,2003,2007,2010 の混在環境で動く事は確認してますが
普段から使いこなしてるわけではないので検証不足は否めません。
他者への配布が関係なく、個人的に使うだけならしばらく試してみると良いかもしれませんね。


#使用時、ActiveXの初期化..等々に関する疑問が発生したら以下を参考に。
http://oshiete.goo.ne.jp/qa/6669982.html

http://oshiete.goo.ne.jp/qa/6402282.html?order=asc

2007用に別途ダウンロードできますが
『2007 Microsoft Office system 用 Microsoft Office 2003 Web Components Service Pack 1 (SP1)』
http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=c815dffa-d5f3-4b71-bf46-13721bd44682

これが2010単独環境でも動作するかどうかというのは..さて、どうでしょうか。
http://support.microsoft.com/kb/972129/ja
http://support.microsoft.com/kb/828949/ja

winXPsp3/xl2000,2003,2007,20...続きを読む

Qエクセルのセルにカレンダーを表示させ、日付をセルに入力させたい

エクセルについて教えて下さい。

エクセルのセルをクリックすると、
カレンダーのようなものが表示され、
マウスで選択すると、
セルに日付が入力されるようにするには
どうしたらよいですか?

すみませんが、宜しくお願い致します。

Aベストアンサー

#02です。foo-mさんがVBAをお使いになるなら、以下のサンプルをいじってみてください。

このサンプルはC4セルがクリックされたときにカレンダーコントロールを表示して、日付を選んだらその日付をC4に書き込み、カレンダーコントロールを閉じるマクロです。

Private Sub Calendar1_Click()
Selection.Value = Calendar1.Value
ActiveSheet.Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$4" Then
ActiveSheet.Calendar1.Visible = True
End If
End Sub

マクロはシートのモジュールとしてペーストして下さいね


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報