フォームのボタンからのみexcelを終了したい

質問

おねがいします。

都合上、フォームのボタンからだけexcelを終了したのです。

Private Sub CommandButton1_Click()

Application.DisplayAlerts=False
Application.Quit

End Sub

それに伴い、
右上のexcelのｘボタン、シートのxボタンを無効化または非表示にしたいです。

Private Sub Workbook_BeforeClose(Cancel As Boolean)

　　If CloseMode = 0 Then
　　　　Cancel = 1
　　End If

End Sub

これで、エクセルｘボタンは無効になりましたが、
フォームからの終了も出来なくなってしまいました。

フォームからのみ終了する方法を教えてください。

回答No.2

redfox63

UserFom側のコードを

Private Sub CommandButton1_Click()
　　Application.DisplayAlerts=False
　　Application.Quit
　　' この行を追加
　　ThisWorkbook.CanClose = True
　　ThisWorkbook.Close
End Sub
としないといけないようです m(__)m

回答No.1

redfox63

ThisWorkbookに閉じてもいいかのフラグをプロパティなどで実装して見てはいかがでしょう

--- ThisWorkbook
Private bCanClose as Boolean
Public Property Get CanClose() as boolean
　　CanClose = bCanClose
End Property
Public Property Let CanClose( value as boolean )
　　bCanClose = value
End Property

Private Workbook_BeforeClose(cancel as Boolean )
　　if Cancel = false and CanClose = false then
　　　　Cancel = True
　　end if
End Sub

--- UserFoem1
Private Sub CommandButton1_Click()
　　Application.DisplayAlerts=False
　　' この行を追加
　　ThisWorkbook.CanClose = True
　　Application.Quit
End Sub

# CancelModeはUserフォームを閉じる際のQueryCloseイベントで使われる引数のように思います
# BookのBeforeCloseイベントでは直接使えません