[[20161025171656]]　『一定時間毎に自動で上書き保存』（摂）　ページの最後に飛ぶ

『一定時間毎に自動で上書き保存』（摂）

sub macro1()
thisworkbook.save
application.ontime now + timeserial(0, 5, 0), "macro1"
end sub

一定時間毎に自動で上書き保存できるマクロを調べています。
数秒毎に自動で上書き保存をし、「ファイルはロックされています」とエラーが出た場合はポップアップを閉じ、上書き保存ができるまで繰り返すようにしたいのですがどう書いたら良いですか？教えてください。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 ちょっと事情が呑み込めないのですけど、

 １．そのエラーの再現手順をご説明頂けませんか？

 ２．なぜ上書き保存をそんなに頻繁にする必要があるんですか？
 　　差し支えなければお聞かせください。

 　※　数秒毎ですよね？　コードは数分に見えますが。

（半平太） 2016/10/26(水) 07:39

寝ながら考えたんですが、
何かの事情、（Excel側の再計算？）で、
上書き保存がすぐに出来ないので、
出来るまでループして待ちたいという事かと。。。

（まっつわん） 2016/10/26(水) 07:54

コメント返信：