EXCEL VBA シート保護のエラー

質問

こんにちは。
ここでいろいろ質問をさせていただき、なんとかマクロを完成させましたが・・・
自分のPCで動かす分には、なにも問題なくうごくのですが、他のPCで動かしたところ”1004”のエラーが出てしまい動かなくなりました（”1004”は、アプリケーション定義がなんとかいうものです）

Private Sub CommandButton1_Click()

Worksheets("A").Unprotect Password:="○○○"
Worksheets("B").Unprotect Password:="○○○"

Worksheets("B").Range("B50:L100").ClearContents
Worksheets("A").Range("B50:L100").AutoFilter field:=1, Criteria1:="="
Worksheets("A").Range("B50:L100").Copy Worksheets("B").Range("B50")
Worksheets("B").Range("B36:L100").Interior.ColorIndex = xlNone
Worksheets("A").AutoFilterMode = False

Worksheets("A").Protect Password:="○○○", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Worksheets("B").Protect Password:="○○○", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True

End Sub

黄色くなるところは、 Worksheets("A").Protect Password:="○○○", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
の部分です。そして画面には10枚あるすべてのシートのエラーが・・・。
Worksheets("A"）と指定しているのに、10枚全てのエラーがでるのも？だし、自分のPCではうまくいくのに他ではダメというところが分かりません。よろしくお願いします。

回答No.1

kybo · ベストアンサー

, AllowFormattingCells:=True

の部分だと思われます。Excel2000ではこの引数の設定はできませんので。

If Application.Version = 9 Then
Worksheets("A").Protect Password:="○○○", DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
Worksheets("A").Protect Password:="○○○", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
End If

の様に、Excel2000だけ、その引数を付けない様にすればよいかと思います。

お礼

こんにちは。
回答ありがとうございます。
教えていただいたとおり、バージョンが2000でした。
マクロって難しいな～と改めて思いました。
細かなところまで、把握できるようにがんばります。
ありがとうございました。