Grep置換で「読み取り専用推奨」設定のファイルが置換できない

[hiroper]

タイトルのままですが、Grep置換で「読取専用推奨」のブックを置換することができません。 「Sheet13（Grep結果）」の「ReplaceStr()」内、「Workbooks.Open」部に「IgnoreReadOnlyRecommended:=True」を追加したところ、とりあえず置換は実施できました。 正しい対応方法かの判断含め、ご対応お願いします。

` 'バックアップする FS.CopyFile strBook, strBook & "." & Format$(Now(), "yyyymmddhhnnss")

    If strBuf = "" Then
        Set WB = Workbooks.Open(filename:=strBook, local:=True, IgnoreReadOnlyRecommended:=True)
    Else
        For Each varPass In varPassword
            Err.Clear
            Set WB = Workbooks.Open(filename:=strBook, Password:=varPass, local:=True, IgnoreReadOnlyRecommended:=True)
            If Err.Number = 0 Then
                Exit For
            End If
        Next
    End If`

[RelaxTools]

だいぶ、放置してしまいましたが、次バージョンで対応します。