VBA auto_openでApplication.onKeyを実行できない

お世話になります。

表題のとおり、Excel起動時に、上書き保存や名前を付けて保存等の
機能をショートカットから実行できなくするように、auto_openで
処理をさせたいのですが、実行時にエラーが出てしまいます。
下記にそのソースを記述します。

Private Sub Auto_Open()
Application.OnKey "F12", ""
End Sub

正確には、ショートカットを無効にするタイミングはブック自体を
開いてから後でも構わないのですが、やはり同じようにエラーが
出ます。

どうしてエラーになるのか、どうすれば正常に動作するのか
教えてください。

以上、宜しくお願い致します。

No.2 回答者： hotosys 回答日時： 2008/09/15 20:54

Application.OnKey "{F12}", ""

No.1 ベストアンサー 回答者： yama1718 回答日時： 2008/09/15 13:05

保存禁止にしたければワークシートのBeforeSaveイベントで

Cancel=True にするだけで簡単に出来ますが、それではダメですか。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
　　　　Cancel = True
End Sub

この回答へのお礼

yama1718さん、ありがとうございます!
エラーの問題は解決しませんが、教えていただいた方法で
うまくいきそうです。

今後とも、何かありましたら宜しくお願い致します。

お礼日時：2008/09/17 10:04