2020/11/10(tue) RelaxTools-Addin Version 4.26.0(RustRemover)

◇機能追加
・オプションに「終了モード」を追加。
　ブックをすべて閉じてもExcelを終了しないようにする。
　Excelを終了するときには最小化されているブック表示の無いウィンドウを閉じてください。
　不用意に閉じてしまうと、Excelの起動に時間がかかるため、
　起動時のレスポンス向上になります。副作用がありましたら
　使用を止めてください。

Author: RelaxTools

RelaxTools.xlam

@@ -1,7 +1,7 @@
 VERSION 5.00
 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmCommonOption 
    Caption         =   "RelaxTools共通設定"
-   ClientHeight    =   5670
+   ClientHeight    =   7275
    ClientLeft      =   120
    ClientTop       =   465
    ClientWidth     =   12105
@@ -84,6 +84,8 @@ Private Sub cmdOk_Click()
     Call SaveSetting(C_TITLE, "Option", "NotHoldFormat", chkNotHoldFormat.Value)
     Call SaveSetting(C_TITLE, "Option", "ClipboardSleep", txtSleep.Text)
 
+    Call SaveSetting(C_TITLE, "Option", "ExitMode", chkExitMode.Value)
+    
     Logger.Level = cboLogLevel.ListIndex
 
     Unload Me
@@ -118,6 +120,7 @@ Private Sub UserForm_Initialize()
 
     chkOnRepeat.Value = CBool(GetSetting(C_TITLE, "Option", "OnRepeat", True))
     chkNotHoldFormat.Value = CBool(GetSetting(C_TITLE, "Option", "NotHoldFormat", False))
+    chkExitMode.Value = CBool(GetSetting(C_TITLE, "Option", "ExitMode", False))
 
     strBuf = ""
     strBuf = strBuf & "・セルの最後に文字列挿入" & vbCrLf

Source/src/Form/frmCommonOption.frm

@@ -43,25 +43,21 @@ Attribute XL.VB_VarHelpID = -1
 Private WithEvents XL_LINE As Excel.Application
 Attribute XL_LINE.VB_VarHelpID = -1
 
-
 Private mScrollRow() As Long
 Private mScrollCol() As Long
 Private mZoom() As Long
 Private mActiveSheet As String
 Private mblnEventCancel As Boolean
 Private mSelection() As Object
 
-
-
 Private Const C_HOLIZONTAL_BAR_NAME As String = "rlxHolizontalBar"
 Private Const C_VERTICAL_BAR_NAME As String = "rlxVerticalBar"
 Private Const C_XY_BAR_NAME As String = "rlxXYBar"
-'Private mWB As Worksheet
-'Public Sub setIRibbon(ByRef r As IRibbonUI)
-'    Set XL = Excel.Application
-'End Sub
-'Private mstrCrossBook As String
 
+Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hWnd As LongPtr, ByVal nCmdShow As Long) As Long
+
+Private Const SW_HIDE As Long = 0
+Private Const SW_FORCEMINIMIZE = 11
 '--------------------------------------------------------------
 '　ブックオープンイベント
 '--------------------------------------------------------------
@@ -94,7 +90,6 @@ Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
     Logger.LogBegin "Workbook_BeforeClose"
 
-    Call removeShortCutKey
     If XL_LINE Is Nothing Then
     Else
         Call deleteCrossLine
@@ -104,7 +99,24 @@ Private Sub Workbook_BeforeClose(Cancel As Boolean)
     End If
 
     Call DeleteTemporaryFile
-
+    
+    '終了モード
+    If CBool(GetSetting(C_TITLE, "Option", "ExitMode", False)) Then
+        If Workbooks.Count > 0 Then
+            Dim WB As Workbook
+            For Each WB In Workbooks
+                WB.Close
+            Next
+            ShowWindow Application.hWnd, SW_FORCEMINIMIZE
+            DoEvents
+            Cancel = True
+        Else
+            Call removeShortCutKey
+        End If
+    Else
+        Call removeShortCutKey
+    End If
+    
     Logger.LogFinish "Workbook_BeforeClose"
 
 End Sub

Source/src/Microsoft Excel Objects/ThisWorkbook.cls

@@ -1,4 +1,13 @@
-2020/11/03(tue) RelaxTools-Addin Version 4.25.6(RustRemover) 
+2020/11/10(tue) RelaxTools-Addin Version 4.26.0(RustRemover) 
+◇機能追加
+・オプションに「終了モード」を追加。
+　ブックをすべて閉じてもExcelを終了しないようにする。
+　Excelを終了するときには最小化されているブック表示の無いウィンドウを閉じてください。
+　不用意に閉じてしまうと、Excelの起動に時間がかかるため、
+　起動時のレスポンス向上になります。副作用がありましたら
+　使用を止めてください。
+
+2020/11/03(tue) RelaxTools-Addin Version 4.25.6(RustRemover) 
 ◇バグ修正
 ・マークダウン変換で文字列を返す式があるとエラーになる不具合を修正。
 ・掲示板廃止に伴いbackstageからBBSへのリンクを削除。