hiroper

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

1

タイトルのままですが、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...