'''''''''''''''''''''''''''''''''''''''''' ' 現在のブックに読み取り専用推奨するオプションをつける '''''''''''''''''''''''''''''''''''''''''' Sub addReadOnlyOption() rc = MsgBox(ActiveWorkbook.name & "に読み取り専用を推奨するオプションをつけますか?", vbOK + vbcalcel) If rc = vbCancel Then Exit Sub End If Dim fullName As String: fullName = ActiveWorkbook.fullName '読み取り専用を推奨するオプションをつける ActiveWorkbook.ReadOnlyRecommended = True End Sub
このVBAでは保存はしていないので、保存は別途行ってください。
その後ファイルを閉じて開き直すと、読み取り専用で開くか、を聞かれます。