SVNのロックでファイルがリポジトリの内容で更新された場合に対応。開きなおすように修正。

Source/src/Class/TortoiseSVN.cls

@@ -277,14 +277,36 @@ Private Sub IVersion_Locked()
         End If
     End With
 
-    CreateObject("Scripting.FileSystemObject").GetFile(WB.FullName).Attributes = 0
-    If WB.ReadOnly Then
-        WB.ChangeFileAccess xlReadWrite
-        Set WB = ActiveWorkbook     'ローカルの場合情報が失われるため再セット
+    If Not WB.Saved Then
+        If MsgBox("ブックが変更されています。破棄しますか？", vbOKCancel + vbQuestion, C_TITLE) <> vbOK Then
+            Exit Sub
+        End If
+    Else
+        If MsgBox("ロックします。よろしいですか？", vbOKCancel + vbQuestion, C_TITLE) <> vbOK Then
+            Exit Sub
+        End If
     End If
+
+    On Error Resume Next
+
+    Application.DisplayAlerts = False
+    Application.ScreenUpdating = False
+
+    CreateObject("Scripting.FileSystemObject").GetFile(WB.FullName).Attributes = 0
     strCommand = CMD_LOCK & GetPath(WB.FullName) & OPT_END0
+    WB.Close False
+    DoEvents
+    Set WB = Nothing
+
     Run strCommand
 
+    Set WB = Workbooks.Open(strBook)
+    WB.Windows(1).visible = False
+
+    Application.DisplayAlerts = True
+    Application.ScreenUpdating = True
+
+    WB.Windows(1).visible = True
     Exit Sub
 e:
     MsgBox "TortoiseSVNの起動に失敗しました。インストールされていないか、PATHの設定を確認してください。", vbOKOnly + vbCritical, C_TITLE

Source/src/Form/frmStaticCheck.frm

@@ -915,7 +915,7 @@ Private Sub checkSheetCol(ByVal strCheckNm As String, ByVal strCheck As String)
 
     For Each WS In WB.Sheets
 
-        Dim i As Long
+'        Dim i As Long
         StartBar strCheckNm, WS.UsedRange.count
         For i = WS.UsedRange(1).Column To WS.UsedRange(WS.UsedRange.count).Column
             If WS.Columns(i).Hidden Then
@@ -938,7 +938,7 @@ Private Sub checkSheetRow(ByVal strCheckNm As String, ByVal strCheck As String)
 
     For Each WS In WB.Sheets
 
-        Dim i As Long
+'        Dim i As Long
         StartBar strCheckNm, WS.UsedRange.count
         For i = WS.UsedRange(1).Row To WS.UsedRange(WS.UsedRange.count).Row
             If WS.Rows(i).Hidden Then

Version.txt

@@ -1,4 +1,4 @@
-2018/03/08(fri) RelaxTools-Addin Version 4.18.1(RustRemover) 
+2018/03/21(wed) RelaxTools-Addin Version 4.18.1(RustRemover) 
 ◇機能改善
 ・ショートカットにスラッシュ(/)が使えるように修正。
 ・静的チェックに「ハイパーリングのリンク切れチェック」を追加。
@@ -7,6 +7,7 @@
 　ついでに完了メッセージが表示されるように修正。
 ・強調シェイプで、ブックによっては規定のシェイプがテキストにサイズを合わせる設定になっていた場合、
 　超小さいシェイプが貼り付けられてしまう不具合を修正。
+・SVNのロックでファイルがリポジトリの内容で更新された場合に対応。開きなおすように修正。
 
 2018/02/24(sat) RelaxTools-Addin Version 4.18.0(RustRemover) 
 ◇新規機能