[[20140730134609]]　『指定時間に自動でマクロ開始』（アブラーハム）　ページの最後に飛ぶ

『指定時間に自動でマクロ開始』（アブラーハム）

月～金（土日祝日除く）に自動で指定先にファックスを送信する、というマクロを作成しております。

その一環で指定時刻になったら自動で動くマクロ、というのを作成しようとしておりますが、こちらがうまくいきません。

シートは
sheet1、注文、という名のシートがそれぞれ一枚ずつあり、
いまやろうとしていることは、指定時間になると、自動で『注文』シートに
保護がかかり、書き込みが不可になる、という仕様です。

Sub ロック()

Worksheets("注文").Protect

End Sub

Sub Sample1()
　　Application.OnTime EarliestTime:=TimeValue("13:45:00"), Procedure:="ロック"
End Sub

上記のコードを作成しましたが、時間になってもシートは保護されておりませんでした。
なにか問題があるのでしょうか？

＜使用 Excel：Excel2003、使用 OS：WindowsXP ＞

Sample1のマクロは実行しているのでしょうか？

たとえば、エクセルファイルを開いたタイミングや、
ファイルを起動後にSample1を実行してみてください。

たぶん動きます。

他に考えられる点は、

ロック関数は、標準モジュールに記述するくらいかな。
（K） 2014/07/30(水) 13:58

K様

ご指摘のとおりです。実行しておりませんでした。。。
このコードだと、時間になれば自動で実行されると勝手に誤解しておりました。
失礼致しました。
（アブラーハム） 2014/07/30(水) 14:06

コメント返信：