パスワードが変わってしまいます

質問

エクセルマクロの質問です

１～３１までのシートのデータをクリアする処理のマクロを以下のようにしました

Sub クリア()
If vbNo = MsgBox( "クリアを実行してよろしいですか", vbYesNo) Then Exit Sub

Dim a As Worksheet
UserForm1.Show vbModeless
UserForm1.Repaint
For Each a In Worksheets
If a.Name = "1" Or a.Name = "2" Or a.Name = "3" Or a.Name = "4" Or a.Name = "5" Or a.Name = "6" Or a.Name = "7" Or a.Name = "8" Or a.Name = "9" Or a.Name = "10" Or a.Name = "11" Or a.Name = "12" Or a.Name = "13" Or a.Name = "14" Or a.Name = "15" Or a.Name = "16" Or a.Name = "17" Or a.Name = "18" Or a.Name = "19" Or a.Name = "20" Or a.Name = "21" Or a.Name = "22" Or a.Name = "23" Or a.Name = "24" Or a.Name = "25" Or a.Name = "26" Or a.Name = "27" Or a.Name = "28" Or a.Name = "29" Or a.Name = "30" Or a.Name = "31" Then
a.Select
ActiveSheet.Unprotect ([abcd])
Range("I17:J256").Select
Selection.ClearContents
Selection.Locked = False
Selection.FormulaHidden = False
Range("I17").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="abcd"
ActiveSheet.EnableSelection = xlNoSelection
End If
Next
Unload UserForm1
Sheets("sheet1").Select
MsgBox "クリアしました"
End Sub

上記のマクロを実行すると処理はできるのですが、それまで"wxyz"だったブック保護のパスワードが"abcd"に変わってしまいます

原因がわからず困っています

よろしくお願いします

回答No.1

tsubuyuki · ベストアンサー

そりゃ、あなたｗ

> ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="abcd"

変えちゃってますもんｗ

あと、余計なお世話かもですが、

> If a.Name = "1" Or a.Name = "2" Or a.Name = "3" Or a.Name = "4" Or a.Name = "5" Or a.Name = "6" Or a.Name = "7" Or a.Name = "8" Or a.Name = "9" Or a.Name = "10" Or a.Name = "11" Or a.Name = "12" Or a.Name = "13" Or a.Name = "14" Or a.Name = "15" Or a.Name = "16" Or a.Name = "17" Or a.Name = "18" Or a.Name = "19" Or a.Name = "20" Or a.Name = "21" Or a.Name = "22" Or a.Name = "23" Or a.Name = "24" Or a.Name = "25" Or a.Name = "26" Or a.Name = "27" Or a.Name = "28" Or a.Name = "29" Or a.Name = "30" Or a.Name = "31" Then

１～３１って事ですよね。
　　If a.Name >=1 And a.Name<=31 then
ですっきりしませんか。

お礼

シート保護のつもりだけがブックの保護まで影響しているということですね
ありがとうございます
方法を考えて見ます
それから
　If a.Name >=1 And a.Name<=31 then
これ、とても参考になりました
ありがとうございます