マクロでブック&シート保護したファイルを別マクロで開こうとするとWorkbooks.Open実行でフリーズが発生する

Question

前提・実現したいこと

前提：
①別マクロでブックとシートの保護をする
②保存先にフォルダ(フォルダ名はファイル名と同じ)を作成し、①を格納する
実現したしたいこと：
前提で作成したファイルを別マクロで開く

発生している問題・エラーメッセージ

発生している問題：別マクロのWorkbooks.Open実行でフリーズが発生
※エラーメッセージなし

初めての投稿で至らぬ点もあるかもしれませんが、困っています。
もしおかしなところがあればご教示いただけないでしょうか、
宜しくお願いいたします。

該当のソースコード

簡略していますが、一度ブック&シート保護したファイルをファイル名と同じ名前のフォルダに格納し、別マクロで保護したブックを開こうとしています。

【シート保護マクロ】
Sub test()
    'PW
    Dim book_password As String: book_password = 1
    Dim sheet_password As String: sheet_password = 2

    'ファイル保存先
    Dim save_path As String: save_path = "C:\保存先"

    '保護するファイル格納先
    Dim folder_path As String: folder_path = "C:\保護するファイル"

    'ファイル名取得
    Dim file_name As String
    file_name = Dir(folder_path & "\" & "*.xlsm")

    Do While file_name <> ""
      Workbooks.Open folder_path & "\" & file_name

      Workbooks(file_name).Sheets(1).Activate
      Range("A:AK").Locked = True
      Range("A2:AK2").Locked = Flase

      'シート保護
      ActiveSheet.Protect Password:=sheet_password, UserInterfaceOnly:=True
      ActiveSheet.EnableSelection = xlUnlockedCells

      Workbooks(file_name).Sheets(2).Activate
      Range("A:AA").Locked = True
      Range("A5:H22").Locked = Flase

      'シート保護
      ActiveSheet.Protect Password:=sheet_password, UserInterfaceOnly:=True
      ActiveSheet.EnableSelection = xlUnlockedCells

      'リンク更新確認メッセージなし
      ActiveWorkbook.UpdateLinks = xlUpdateLinksNever

      'ファイル保存先に保存
      ActiveWorkbook.SaveAs Filename:=save_path & "\" & file_name, Password:=book_password
      Workbooks(file_name).Close

      file_name = Dir()
    Loop
End Sub
【ファイルオープンマクロ】
Sub file_open()
     Dim save_path As String: save_path = "C:\保存先"
     Dim book_password As String: book_password = 1

     'ファイルシステムオブジェクト設定
     Dim fso As Object: Set fso = CreateObject("scripting.filesystemobject")

     Dim folder As Variant
     For Each folder In fso.getfolder(save_path).subfolders
       Workbooks.Open folder.Path & "\" & folder.Name & ".xlsm", Password:=book_password
     Next
End Sub

試したこと

・手動では問題なくファイルが開くことを確認
・一度手動でブックの保護&シートの保護を解除したファイルはマクロで開くことが出来ることを確認

補足情報（FW/ツールのバージョンなど）

OS：Windows7
office：Excel2013

Comments

[meg_]

質問のコードはいくつか不備があり、そのまま実行できません。実行可能なコードへ修正お願いします。
※先頭の「sun test()」など

[hoge_hoge_]

ご指摘ありがとうございます。コードを修正致しました。

Answer 1

フリーズが起きる場合というのは、ループが無限に回っていることが多いので、ループ付近のコードが合っているか確認してみると良いと思います。
一応以下のfile_open()コードでパスワードで保護したブックを正常に開くことが出来ます。

Sub makeprotect()
    'PW
    Dim book_password As String: book_password = "1"

    'ファイル保存先
    Dim save_path As String: save_path = "保存先アドレス"

    '保護するファイル格納先
    Dim folder_path As String: folder_path = "保護するファイルアドレス"

    'ファイル名取得
    Dim file_name As String
    file_name = Dir(folder_path & "*.xlsm")

    'フォルダ内をループ
    Do While file_name <> ""
      Workbooks.Open folder_path & "\" & file_name
      'ブックの保護＋ファイル保存先に保存
      ActiveWorkbook.SaveAs Filename:=save_path & "\" & file_name, Password:=book_password
      Workbooks(file_name).Close
      file_name = Dir()
    Loop
End Sub
'====================================================================
Sub file_open()
    'PW
    Dim book_password As String: book_password = "1"
    
    'ファイル保存先
    Dim save_path As String: save_path = "保存先アドレス"

    'ファイル名取得
    Dim file_name As String
    file_name = Dir(save_path & "*.xlsm")

    'フォルダ内をループ
    Do While file_name <> ""
    Workbooks.Open save_path & "\" & file_name, Password:=book_password
    file_name = Dir()
    Loop
End Sub

Comments

[hoge_hoge_]

回答ありがとうございます。一度ご教示いただいた線で調査してみます。

[hoge_hoge_]

やはりループ付近のコードが原因でした、大変助かりましたありがとうございます。