SetFileReadOnly

Summary

実行中のワークブックを読み取り専用にするための関数です。

Function SetFileReadOnly()
'ファイルを読取り専用にする

On Error Resume Next
    ActiveWorkbook.Saved = True
    ActiveWorkbook.ChangeFileAccess (xlReadOnly)
End Function

説明

この関数は、実行中のワークブックを読み取り専用にするための処理を行います。

具体的な動作は以下の通りです：

On Error Resume Next ステートメントにより、エラーが発生しても処理を続行します。 ActiveWorkbook.Saved = True により、ワークブックの変更を保存済みとしてマークします。 ActiveWorkbook.ChangeFileAccess (xlReadOnly) により、ワークブックのファイルアクセス権限を読み取り専用に変更します。

引数

• なし

戻り値

• なし

Examples

この関数を実行することで、実行中のワークブックが読み取り専用になります。

Call SetFileReadOnly()