SetFileReadWrite

Summary

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

Function SetFileReadWrite()
'ファイルを読取り専用を解除する

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

説明

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

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

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

引数

• なし

戻り値

• なし

Examples

この関数を実行することで、実行中のワークブックの読み取り専用状態が解除されます。

Call SetFileReadWrite()