締切済み

マクロがあるファイルの読み出し時にマクロの有効を聞いてこないようにする。

  • 暇なときにでも
  • 質問No.264200
  • 閲覧数314
  • ありがとう数4
  • 気になる数0
  • 回答数4
  • コメント数0

お礼率 87% (62/71)

以下のようにエクセルのブックのシート名をゲットしようとしたのですが、エクセルにマクロを入れてあるため、「マクロの有効、無効」を聞いてきます。
聞いてこないようにするため
xlApp.DisplayAlerts = False
を入れたのですが、ダメでした。なにか良い方法はあるのでしょうか?
宜しくお願いいたします。

Dim FileNam As String
Dim filebasho As String
Dim wbsinario As Object
Dim shtsinario As Object
Dim ExcelWasNotRunning As Boolean
If Err.Number <> 0 Then ExcelWasNotRunning = True
Err.Clear
' xlApp.DisplayAlerts = False
Set shtsinario = GetObject(filebasho & "\" & FileNam)
Set wbsinario = shtsinario.Application.Workbooks(FileNam)
通報する
  • 回答数4
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全4件)

  • 回答No.1
レベル9

ベストアンサー率 25% (17/66)

ズレていたらごめんなさい。

>エクセルにマクロを入れてあるため、「マクロの有効、無効」を聞いてきます

これはExcelの起動時のメッセージと言う事でしょうか?
そう解釈した場合、単純にExcelのセキュリティーレベルを変更しては如何なのでしょうか?
「ツール」「マクロ」「セキュリティー」のセキュリティーレベルを「低」にすると起動時のメッセージが出なくなります。
但し、マクロウィルスには十分ご注意下さい。
お礼コメント
kamechan

お礼率 87% (62/71)

早速のご回答ありがとうございます。
>これはExcelの起動時のメッセージと言う事でしょうか?
その通りです。セキュリティレベルを下げれば良いと思うのですが、
他人のパソコンでも使えるソフトとしたいのでVBで設定できる
ようにしたいと思っています。
しかし、その方法がよく分かりません。
エクセルの新しいマクロの記録で取得しようと思ったのですがダメでした。
なにかよい方法があると良いのですが・・・
投稿日時 - 2002-05-05 18:27:40
  • 回答No.2
レベル14

ベストアンサー率 28% (4414/15693)

他カテゴリのカテゴリマスター
コーディングを一読して「xlApp.DisplayAlerts = False」が気になります。「Application.DisplayAlerts=False」ではどうですか。
「xl・・・」はエクセルVBAのエクセルシステムが定義する定数ではないのでしょうか。
お礼コメント
kamechan

お礼率 87% (62/71)

ご回答ありがとうございます。
>コーディングを一読して「xlApp.DisplayAlerts = False」が気になります。「Application.DisplayAlerts=False」ではどうですか
なるほど・・・と早速試してみましたがダメでした。
(×_×;)シュン
投稿日時 - 2002-05-05 18:32:40
  • 回答No.3
レベル9

ベストアンサー率 50% (37/73)

>他人のパソコンでも使えるソフトとしたいのでVBで設定できる
>ようにしたいと思っています。

おそらく、ムリです。
もしもそんな事が可能ならば、マクロウイルスを作り放題になります。
各々のExcelの持ち主に、セキュリティレベルを下げてもらうしかないと思います。
お礼コメント
kamechan

お礼率 87% (62/71)

gonta_gomaさま
ご回答ありがとうございます。
>もしもそんな事が可能ならば、マクロウイルスを作り放題になります。
その通りですね。各個人のセキュリティを自由に変えられるアプリケーションが
あれば、危険極まりないですね。
今回の希望は「マクロを有効、無効を聞いてくるのをなくしたい」ことなので逆にセキュリティレベルを最高に上げて必ず無効で立ち上がるようにする方法でもよいのですが。。。なにか良い方法はあるのでしょうか????
投稿日時 - 2002-05-09 21:43:59
  • 回答No.4
レベル13

ベストアンサー率 68% (791/1163)

以下は「マクロの有効、無効」を聞いてこないようにする方法です。読んでもらえば分かると思いますが、そのExcelの使用者の了解の元に行います。VBで外部から操作するような方法ではありません。
自前のメニューを作り、そのメニューから開くわけで、「マクロの有効、無効」のダイアログは出ません。

(1)auto_openを使って、コマンドバーに自前のメニューを表示するマクロを作成します。
   このメニューには「マクロの有効、無効」を表示させなくてもいいシート名を登録し、
   該当のワークシートを開けるようにします。

(2)(1)のマクロを書いたBookをアドインとして保存します。

(3)(2)のアドインファイルを「XLStart」フォルダに置きます。


エクスプローラでダブルクリックして開いたりしないで、
  エクセルを開く→自前のメニューから呼び出し の手順になります。

これで指定したBookは警告なしで開くことができます。(Excel2000で確認)
お礼コメント
kamechan

お礼率 87% (62/71)

nishi6さん
連絡が遅くなり申し訳ございません。
VBから操作するのは無理なようですね。
教えていただいた方法で、できるか今後検討していこうと思います。
ありがとうございました。
投稿日時 - 2002-05-19 13:42:21
このQ&Aで解決しましたか?
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する

特集


より良い社会へ。感謝経済プロジェクト始動

ピックアップ

ページ先頭へ