人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセル マクロについてです。

1つのファイルの中に、A・B・Cと複数のシートがあります。

This Workbookの中に

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets()
ws.Unprotect Password:="1111"
ws.Protect Password:="1111", DrawingObjects:=True, contents:=True, UserInterfaceOnly:=True
Next
End Sub

とあり、ファイルを開く度に全部のシートが保護されます。
これをA・Bのシートのみパスワードの設定がなされ(上記の内容のように)、
Cのシートは自由に編集できるよう、コードを書くには、どのようにすれば良いでしょうか。
素人なのでコピペすればバッチリ!という回答が欲しいです。

宜しくお願い致します。


●質問者: msvista
●カテゴリ:コンピュータ
✍キーワード:AS NeXT password sub WS
○ 状態 :終了
└ 回答数 : 1/2件

▽最新の回答へ

1 ● GreenStar
●60ポイント ベストアンサー

C以外は保護をかけて、Cは保護をかけないようにしてみました。

Private Sub Workbook_Open()
 Dim ws As Worksheet
 For Each ws In Worksheets()
 ws.Unprotect Password:="1111"
 If ws.Name <> "C" Then
 ws.Protect Password:="1111", DrawingObjects:=True, contents:=True, UserInterfaceOnly:=True
 End If
 Next
End Sub

AかBなら保護をかけるというなら下のように変更

 If ws.Name = "A" OR ws.Name = "B" Then

保護をかけたいシートのほうが多いのか、保護しないシートのほうが多いのかによって、どっちか選んでね。

◎質問者からの返答

素晴らしい!

もうーバッチリです!

ありがとうございました!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ