複数のワークシートを、入力もできない読み取り専用に設定したい

複数のワークシートから成るExcel2003のファイルにおいて、全部のワークシートを内容変更の入力打ち込みもできない状態の、読み取り専用に設定する、最も簡単な方法を教えてください。Excelで読み取り専用に設定するには色々な方法があるようですが、これまで試したところ、全部のワークシート上で内容変更の入力打ち込みもできないように設定するには、「ツール」→「保護」→「シートの保護」→パスワードの入力→「OK」という作業を全部のワークシートについて一々行うのが確実に思われます。もし、（例えば、全部のワークシートについて一々設定するのでなく、一括して実行可能な）もっと簡単な方法があれば教えてください。

No.2 ベストアンサー 回答者： hana-hana3 回答日時： 2008/04/24 10:21

＞VBAでどのような操作と記述をすればよいのか教えてください。

Visual Basic Editorを起動して、標準モジュールを追加して下記のコードを貼付けて「パスワード」を書き換えてください。

'---------- ここから ------------------------
Private Sub Ws_Protect()
'全シートを保護する。
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
'パスワードは任意に設定してください。
Ws.Protect Password:="パスワード", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub

Private Sub Ws_UnProtect()
'全シートの保護を解除する。
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
'パスワードは任意に設定してください。
Ws.Unprotect Password:="パスワード"
Next
End Sub
'---------- ここまで ------------------------

貼付けたら、Private Sub　～　End Sub　の間をクリックしてマウスをセットし、ツールバーの実行ボタン |> をクリックします。
ＶＢＥを開けばパスワードを見られて解除されてしまうので、ＶＢＥを開くためのパスワードを設定する事も出来ます。


VBA基礎知識
http://www.officepro.jp/excelvba/ini/index.html
プロジェクトのロック
http://www.happy2-island.com/excelsmile/smile01/ …

この回答へのお礼

ご丁寧なご回答をいただき、大変ありがとうございました。いただきました内容を早速試してみます。またVBAをもう一度勉強し直します。

お礼日時：2008/04/24 11:46

No.1 回答者： hana-hana3 回答日時： 2008/04/24 08:28

＞全部のワークシートについて一々設定するのでなく、一括して実行可能

マクロで行うしかありません。

この回答へのお礼

早速のご回答ありがとうございます。マクロとかVBAはほとんどわかりません。お手数ですが、マクロあるいはVBAでどのような操作と記述をすればよいのか教えてください。

お礼日時：2008/04/24 08:48