Excel VBA質問箱 IV

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

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


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

【70893】オープン時の動作スキップ VBA初心者 12/1/13(金) 8:08 質問[未読]
【70894】Re:オープン時の動作スキップ ichinose 12/1/13(金) 8:18 発言[未読]
【70896】Re:オープン時の動作スキップ ちん 12/1/13(金) 9:49 発言[未読]
【70899】Re:オープン時の動作スキップ SS 12/1/13(金) 10:44 発言[未読]

【70893】オープン時の動作スキップ
質問  VBA初心者  - 12/1/13(金) 8:08 -

引用なし
パスワード
   はじめまして。
VBA初心者です。

毎月の作業を入力する簡単なシステムを作成しています。
既に納期が過ぎたものをファイルオープン時にアラートとして表示しています。

既に納期が過ぎているかどうかを先月のファイルと現在日の差異で
判断しているのですが、先月分のファイルをシステム内で開いたときにも
先月のファイルのオープン時の処理が走ろうとしてエラーになってしまいます。

なんとか回避したいのですが、マウスでファイルをクリックして
開こうとしているのか、VBAによってファイルが開かられようと
しているのかを判断することは可能でしょうか?

よろしくお願いいたします。

【70894】Re:オープン時の動作スキップ
発言  ichinose  - 12/1/13(金) 8:18 -

引用なし
パスワード
   おはようございます。


>なんとか回避したいのですが、マウスでファイルをクリックして
>開こうとしているのか、VBAによってファイルが開かられようと
>しているのかを判断することは可能でしょうか?
 www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=10941;id=excel

この方法で判断しては?

【70896】Re:オープン時の動作スキップ
発言  ちん  - 12/1/13(金) 9:49 -

引用なし
パスワード
   ▼VBA初心者 さん、おはようございます。ちんといいます。
>VBA初心者です。
>
>毎月の作業を入力する簡単なシステムを作成しています。
>既に納期が過ぎたものをファイルオープン時にアラートとして表示しています。
>
>既に納期が過ぎているかどうかを先月のファイルと現在日の差異で
>判断しているのですが、先月分のファイルをシステム内で開いたときにも
>先月のファイルのオープン時の処理が走ろうとしてエラーになってしまいます。
>
>なんとか回避したいのですが、マウスでファイルをクリックして
>開こうとしているのか、VBAによってファイルが開かられようと
>しているのかを判断することは可能でしょうか?
>
>よろしくお願いいたします。

私の場合は、
sheetのセルに”処理済”か”完了"の文字をセットし、
起動時に、チェックを走らせるか走らせないかを判断しまてます。
以上、参考までに・・・

【70899】Re:オープン時の動作スキップ
発言  SS  - 12/1/13(金) 10:44 -

引用なし
パスワード
   ▼VBA初心者 さん:

こんな感じのイベント禁止ではどうでしょう。
ただし確認してみたところマクロ有効/無効の確認も
飛ばされるので推奨されるものではないのかもしれません。
Sub Macro1()
'
  Application.EnableEvents = False
  
    Workbooks.Open Filename:= _
      "C:\TEST01.xls"
  
  Application.EnableEvents = True
End Sub

>はじめまして。
>VBA初心者です。
>
>毎月の作業を入力する簡単なシステムを作成しています。
>既に納期が過ぎたものをファイルオープン時にアラートとして表示しています。
>
>既に納期が過ぎているかどうかを先月のファイルと現在日の差異で
>判断しているのですが、先月分のファイルをシステム内で開いたときにも
>先月のファイルのオープン時の処理が走ろうとしてエラーになってしまいます。
>
>なんとか回避したいのですが、マウスでファイルをクリックして
>開こうとしているのか、VBAによってファイルが開かられようと
>しているのかを判断することは可能でしょうか?
>
>よろしくお願いいたします。

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