Access2007で閉じるボタン無効を無効にする方法

Access2002で、WindowsAPIのDeleteMenu等を使ってアプリケーションの閉じるボタンを無効にしているのですが、Access2007では無効になりません。

Access2007で閉じるボタン無効を無効にする方法はないでしょうか。
よろしくお願いいたします。

lngMenuhWnd = GetSystemMenu(hWndAccessApp, 0)
lngRet = RemoveMenu(lngMenuhWnd, SC_CLOSE, MF_BYCOMMAND)

No.2 ベストアンサー 回答者： Nayuta_X 回答日時： 2007/08/11 17:43

例:何かをした　とは、OptionButtonにチェックを入れたとかです。

実際は、OptionButtonにチェックを入れたなら mySw=True とかにします。

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

if 何かをした=True then 'Public 何かをした　As Boolean　で、定義すること
Cancel = True
else　　'何もしない
Cancel = False
end if
End Sub

この回答へのお礼

ありがとうございます。
参考にさせていただきます。

お礼日時：2007/08/23 18:41

No.1 回答者： Nayuta_X 回答日時： 2007/08/11 10:08

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Cancel = True
End Sub
でも、だめですか??。

この回答への補足

再訂正
誤 ボタン無効を無効にする方法
正 ボタンを無効にする方法

補足日時：2007/08/11 12:40

この回答へのお礼

回答ありがとうございます。
この方法であれば大丈夫ですが、少しリスクがあるので、閉じるボタンを無効にする方法はないかと考えています。

訂正
× ボタン無効を無効にする方法
× ボタンを無効にする方法

お礼日時：2007/08/11 12:25