Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
  • ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:エクセルで質問です。)

エクセルで簡単な計算表を作成し、終了時にフォームコントロールボタンを使って終了する方法について

このQ&Aのポイント
  • 現在、エクセルで簡単な計算表を作成していますが、問題が発生しています。
  • 終了時に右上にある×ボタンを使って終了できないようにしたいです。
  • また、エクセルを開いた時はフルスクリーンになるように設定しています。

質問者が選んだベストアンサー

  • ベストアンサー
  • rukuku
  • ベストアンサー率42% (401/933)
回答No.1

こんにちは ThisWorkbookに Private Sub Workbook_BeforeClose(Cancel As Boolean)  Cancel = True End Sub で、×ボタンを無効に出来ます。 ただし、 Application.Quit も効かなくなるので、 Application.EnableEvents = False を「Application.Quit」 の前に入れてください。 また、フォームのボタンには Application.Quit だけ設定しておいて、以下のように、あとの処理を Private Sub Workbook_BeforeClose(Cancel As Boolean)  ~ End Sub に記述する方がスリムになります。 Private Sub Workbook_BeforeClose(Cancel As Boolean)  Application.DisplayFullScreen = False  With ActiveWindow   .DisplayHorizontalScrollBar = True   .DisplayVerticalScrollBar = True   .DisplayWorkbookTabs = True   .DisplayGridlines = True   .DisplayHeadings = True  End With  Toolbars(1).Visible = True  Toolbars(2).Visible = True  Toolbars(5).Visible = True  Toolbars(7).Visible = True  Toolbars(9).Visible = True  Application.DisplayFormulaBar = True  Application.DisplayStatusBar = True  Application.DisplayAlerts = False End Sub

maywave
質問者

お礼

回答ありがとうございます。 親切に内容まで入れて頂き大変助かりました。 本当にありがとうございました。

すると、全ての回答が全文表示されます。

その他の回答 (1)

  • mt2008
  • ベストアンサー率52% (885/1701)
回答No.2

パブリック変数を一つ用意して、フォームの終了ボタンが押された時はその変数に1を入れます(1じゃなくても良いです)。 で、ThisWorkbookの Workbook_BeforeClose で、そのパブリック変数が1以外の場合、終了をキャンセルするようにしては如何ですか。

maywave
質問者

お礼

さっそく回答ありがとうございます。 ThisWorkbookに入れるわけですね。 やってみます。 ありがとうございます。

すると、全ての回答が全文表示されます。

関連するQ&A