Public Function Mess_OFF()
'レコード更新確認
Application.SetOption "Confirm Record Changes", False
'オブジェクトの削除
Application.SetOption "Confirm Document Deletions", False
'でも、そもそもRunTime版ではオブジェクトの削除ができない？
'いや、VBAで削除することも考えられるか。
'アクションクエリ実行
Application.SetOption "Confirm Action Queries", False
End Function
