Excel VBA質問箱 IV

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

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


4476 / 13645 ツリー ←次へ | 前へ→

【56411】「このコンテンツを有効にする」メッセージが表示されない マリアン 08/6/16(月) 18:53 質問[未読]
【56412】Re:「このコンテンツを有効にする」メッセ... りん 08/6/16(月) 20:11 発言[未読]

【56411】「このコンテンツを有効にする」メッセー...
質問  マリアン  - 08/6/16(月) 18:53 -

引用なし
パスワード
   ウィンドウズXP、エクセル2003で作成したマクロを
ウィンドウズXP、エクセル2007で使用する場合、
セキュリティレベルを「警告を表示してマクロを無効にする」と設定していても、
オプションから「このコンテンツを有効にする」を選択すれぱ。
使用できるはずですが、表示されるのは、
「不明なコンテンツから保護する」のみで、
「このコンテンツを有効にする」が表示されません。

ちなみにこのファイルのマクロ式は以下のようになっています。

==========================================

Public Sub InsertPicture()
  Dim fName As Variant
  '
  fName = Application.GetOpenFilename _
      ("画像ファイル,*.gif;*.jpg;*.bmp", 1, "画像挿入")

  If fName = False Then
    Exit Sub
  End If
 
  Application.ScreenUpdating = False
  '画像挿入し調整
  With Application.ActiveSheet.Pictures.Insert(fName)
   .Top = Application.ActiveCell.Top
   .Left = Application.ActiveCell.Left
   With .ShapeRange
     .LockAspectRatio = msoTrue
     .Height = 272.25
     .Width = 363#
     .Rotation = 0#
   End With
  End With
 
  Application.ScreenUpdating = True

End Sub
==================================

他にもマクロを使ったファイルでいくつか検証してみましたが、
上記のもの以外は、「このコンテンツを有効にする」が表示され、
それを選択するとファイルを使用することができます。

これは、どのような原因が考えられるでしょうか。
セキュリティレベルを低にせずに、
回避したいのですが、方法があれば教えてください。

宜しくお願いいたします。

【56412】Re:「このコンテンツを有効にする」メッ...
発言  りん E-MAIL  - 08/6/16(月) 20:11 -

引用なし
パスワード
   マリアン さん、こんばんわ。

>ウィンドウズXP、エクセル2003で作成したマクロを
>ウィンドウズXP、エクセル2007で使用する場合、
>セキュリティレベルを「警告を表示してマクロを無効にする」と設定していても、
>オプションから「このコンテンツを有効にする」を選択すれぱ。
>使用できるはずですが、表示されるのは、
>「不明なコンテンツから保護する」のみで、
>「このコンテンツを有効にする」が表示されません。

可能であれば、そのファイルが保存されているフォルダを「信頼できる場所」に登録すれば問題なく開くはずです。

いろいろチェックをいじったら、信頼されていないフォルダでも開くことができたのですが、どのコマンドが有効なのか判断できないので全部書きます。

アドイン:アプリケーションアドインに対し、〜 にチェック 
ActiveX:先に確認メッセージを表示してから、初期化に危険が伴う〜 にチェック
マクロの設定:警告を表示して〜 にチェック
開発者向けのマクロ設定 にチェック

これで、普通の警告がでて、有効/無効が切り替えられました。

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