Excelについて質問です。フォルダ内に読み取り専用に設定されたExcelファイルが複数あるのですが、全てのファイルの読み取り専用設定を解除して上書きする方法はありますか。ファイルのプロパティの属性の「読み取り専用」にはチェックは入っていないのですが、ファイルを保存する際の[その他のオプション]-[ツール]-[全般オプション]を開くと、「読み取り専用を推奨する」にチェックが入っています。フォルダの場所はローカルで、フォルダ内のExcelファイルは100個程度、環境はWindows11、Office365デスクトップ版です。現在、手動で1つ1つファイルを開き、読み取り専用を推奨するのチェックを外し、上書き保存をしています。宜しくお願いいたします。

このマクロを走らせちゃってください。

(フォルダの場所だけ書き換えて)



Sub RemoveReadOnlyRecommended()

Dim folder As String

Dim f As String

Dim wb As Workbook

Dim fullPath As String



folder = \u0026quot;C:\\path\\to\\folder\\\u0026quot; ' ← ここだけ書き換え



Application.DisplayAlerts = False



f = Dir(folder \u0026amp; \u0026quot;*.xls*\u0026quot;)

Do While f \u0026lt;\u0026gt; \u0026quot;\u0026quot;

fullPath = folder \u0026amp; f

SetAttr fullPath, vbNormal



Set wb = Workbooks.Open( _

Filename:=fullPath, _

ReadOnly:=False, _

IgnoreReadOnlyRecommended:=True)



wb.ReadOnlyRecommended = False

wb.Save

wb.Close SaveChanges:=False



f = Dir()

Loop



Application.DisplayAlerts = True

End Sub