《VBA・CSS》入門実用Tips集 ＋α
メニュー一覧 HOME 　エクセルVBA 　　●応用● 　　5-3 　wwwcount改造 　CSS(ｽﾀｲﾙｼｰﾄ)基本 　BiglobeﾌﾞﾛｸﾞCSS 　CSSいろいろﾘﾌｧﾚﾝｽ 　HTML基本 　HTML簡易ﾘﾌｧﾚﾝｽ	Home > エクセルVBA > 5-3　応用 ● EXCEL Bookを閉じれなくするVBAサンプル(応用) このサンプルでは開いたときBookが閉じれなくなりますが、 シートのボタンを押すとBookが閉じれるようになります。 (方法) �@Sheet1にボタン(CommandButton1)を配置します。 �AThisWorkbook　、Sheet1　、Module1　に次のソースを記述して一度Bookを保存し、Bookを閉じます。 《記述場所》 〔ソースリスト〕 Option Explicit Private Sub Workbook_Open() 'Bookを開いたときに実行される 　　Close_flg = 0 '閉じれなくする End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Bookを閉じるときに実行される 　　If Close_flg = 1 Then 　　　　Cancel = False '閉じる 　　Else 　　　　Cancel = True '閉じない 　　End If End Sub 《記述場所》 〔ソースリスト〕 Option Explicit Private Sub CommandButton1_Click() 　　Close_flg = 1 '閉じれるようにする End Sub 《記述場所》 〔ソースリスト〕 Option Explicit Public Close_flg As Integer '閉じる、閉じない、の判断用変数 ○サンプルファイルダウンロード○(準備中)  このページのトップへ