Excel VBAでブックを読み取り専用に

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

「excel vba 読み取り専用にする」
「エクセルマクロ読み取り専用設定」
といった検索キーワードでアクセスがありました。

Excel VBAで、ブックを読み取り専用にしたいということでしょう。

［スポンサードリンク］

Workbook.ChangeFileAccessメソッドで読み取り専用にするサンプルマクロ

以下のSubプロシージャを実行すると、アクティブなブックが読み取り専用になります。

Sub ブックを読み取り専用にする()
　ActiveWorkbook.ChangeFileAccess xlReadOnly
End Sub

WorkbookオブジェクトのChangeFileAccessメソッドの引数に、

VBAで読み取り専用に

XlFileAccess列挙に定義されている定数・xlReadOnlyを指定すれば、

VBAで読み取り専用に

読み取り専用になります。

逆に、定数・xlReadWriteを引数に指定してWorkbook.ChangeFileAccessメソッドを呼べば、読み書き可能になります。

「エクセル読み取り専用で開くマクロ」
という検索キーワードでのアクセスもあります。

開く段階で読み取り専用にするなら以下のようなSubプロシージャです。

Sub ブックを読み取り専用で開く()
　Workbooks.Open _
　　　Filename:="C:\TEMP\SAMP.xlsx", _
　　　ReadOnly:=True
End Sub

WorkbooksコレクションオブジェクトのOpenメソッドの引数・ReadOnlyに、

VBAで読み取り専用に

Trueを設定すれば、引数・Filenameで指定されたブックが、読み取り専用で開かれます。

WorkbookオブジェクトにはReadOnlyという名前のプロパティがあり、
　ActiveWorkbook.ReadOnly = True
とすることで、読み取り専用にできると考える方もおられるかもしれませんが、これはダメです。

Workbook.ReadOnlyプロパティは、

VBAで読み取り専用に

読み取り専用のプロパティであるため、読み取り専用かどうかの取得はできますが設定はできません。

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「Workbooks・Workbook」の記事一覧