エクセル・複数のシートを一度に保護できませんか？

エクセルの複数のシートを一度に保護または保護解除する方法はありませんか？
ご回答よろしくお願い致します。

No.1 ベストアンサー 回答者： TTak 回答日時： 2006/07/25 11:40

マクロで行う方法があります。

パスワードなし、あるいは、すべて同じパスワードなら比較的容易なコードで可能です。

パスワードなしの保護・保護解除マクロ例は下記です

Sub 全シート保護()
For Each mySheet In ThisWorkbook.Sheets
mySheet.Protect
Next
End Sub

Sub 全シート保護解除()
For Each mySheet In ThisWorkbook.Sheets
mySheet.Protect
Next
End Sub

この回答へのお礼

早速のご回答有難うございます。
助かりました。

お礼日時：2006/07/25 11:48

No.2 回答者： kadakun1 回答日時： 2006/07/25 11:42

マクロを使えば出来ます。

保護するには
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect
Next
End Sub

解除するには
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect
Next
End Sub

この回答へのお礼

早速のご回答有難うございます。
助かりました

お礼日時：2006/07/25 11:49