質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.31%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

2回答

3906閲覧

Applicationオブジェクトについて

julia1993

総合スコア8

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

1クリップ

投稿2018/06/22 13:38

マクロ無効時のApplicationオブジェクトについての質問です。

[条件1]
ネット上からダウンロードしたエクセルファイルは私の環境のセキュリティ設定では編集がロックされて
セルへの入力すらできない状態になっています。

[条件2]
ブックAの処理はオープン処理であるプロシージャを呼び出しそのプロシージャの中のOntimeメソッドで
1分後に同一のプロシージャを再起的に呼び出しています。
その流れをブックが閉じられるまで続けています。

ブックAが開いた状態でネット上からダウンロードしてきたブックをオープンし、しばらくすると
Ontimeで予約されたプロシージャが走ったタイミングで
1004 「Ontimeメソッドは失敗しました。_Applicationオブジェクト」
というエラーが発生します。

デバッグすると、1分前に予約したプロシージャの次の処理予約のOntimeメソッドでエラーが発生しています。

ここで疑問なんですが、

ネットからダウンロードしてきたブックを開いたことによって、編集がロックされ、マクロが無効になっているものとばかり思っていたのですが、一分前に予約されたプロシージャ自体は正常に実行されているにも関わらず、プロシージャの最後に書いているOntimeだけエラーになるのはなぜでしょうか?

おそらく、Applicationオブジェクトが使えないことになっているのではないかという仮説を立ててみたのですが
それであっているのでしょうか?

また、そういった状況でも、変わらず再起呼び出しの処理を実行し続けられる方法はございませんでしょうか?

ご教示いただけれは幸いです。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

ベストアンサー

2.nas.xlsmを開くとマクロを有効にするか聞かれるので、「無効」にする。
3.local.xlsmを開いて、yoyakuを実行する。(こちらはローカルにおいているのでマクロは有効)

2.local.xlsmを開いて、yoyakuを実行する。(こちらはローカルにおいているのでマクロは有効)
3.nas.xlsmをファイルを開く、から参照ダイアログを開いて「保護ビューとして開く」

とすると、再現しますね。
マクロの有効/無効ではなく、「保護ビュー」でApplicationオブジェクトが使えなくなっているみたいですね。

「保護ビュー」はExcelのオプションで解除できますが、インターネットからダウンロードしてきたファイル全部に効いてしまうので、あまり適切ではないですね。
試してないけど、↓の設定は効くかもしれません。
https://qiita.com/sambatriste/items/9fc5a32739049eaf7742

投稿2018/06/25 02:05

編集2018/06/25 02:17
sysjojo

総合スコア325

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

julia1993

2018/06/27 11:08

ご返信が遅れて申し訳ありません。 Application.ProtectedViewWindows.Count で保護ビューの数をカウントできたので、1以上の場合はOntimeを回避することにいたしました。 ためになるご回答ありがとうございました。
guest

0

デバッグすると、1分前に予約したプロシージャの次の処理予約のOntimeメソッドでエラーが発生しています。

この条件が整っているときに、OnTimeで予約するよう記述されたプロシージャをVBEから「F5」を押すなどして実行しても同じですか?

私の環境だと、

1.ローカルとファイルサーバー上にそれぞれマクロブック(local.xlsm、nas.xlsm)を作る。

VBA

1' local.xlsm 2Sub yoyaku() 3Application.OnTime Now() + TimeValue("00:00:15"), "msg" 4End Sub 5 6Sub msg() 7MsgBox "local!" 8Application.OnTime Now() + TimeValue("00:00:15"), "msg" 9End Sub

VBA

1'nas.xlsm 2Sub msg() 3MsgBox "nas" 4End Sub

2.nas.xlsmを開くとマクロを有効にするか聞かれるので、「無効」にする。
3.local.xlsmを開いて、yoyakuを実行する。(こちらはローカルにおいているのでマクロは有効)

としても、当該エラーは出ません。(15秒おきにメッセージボックスは出続ける)
マクロが有効/無効というよりは、OnTimeで予約しているプロシージャ内にマクロが無効になっているブックの処理が入っている等しているのでは?と思ったのですが。

投稿2018/06/25 00:26

sysjojo

総合スコア325

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

julia1993

2018/06/25 01:44

ご回答ありがとうございます。 実行してみましたがエラーは発生しませんでした。 どうやらApplicationがブロックされているということではないようなので、もう少し詳しく様々なメソッドを試してみて、何ができて何ができないのか詳しく調べてみます!
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.31%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問