エクセル ルーチンマクロ

質問

以前コピー・貼り付けを停止させる為に、下記マクロを参照させて頂いたのですが、
'---------------------------------------------------------------
Sub DisableCommandButtons(Cmd_bln As Boolean)
'コピー・貼り付けを停止させるサブルーチン・マクロ
　Dim cmd As Variant
　Dim Cmdb As Object
　Dim CmdNames As Variant
　CmdNames = Array("Worksheet Menu Bar", "Cell", "Column", "Row")
　'ショートカットのインスタンス
　If Cmd_bln = False Then
　　Application.OnKey "^c", ""
　　Application.OnKey "^v", ""
　　Application.OnKey "^x", ""
　Else
　　Application.OnKey "^c"
　　Application.OnKey "^v"
　　Application.OnKey "^x"
　End If
　'コマンドボタンのEnable
　For Each cmd In CmdNames
　If cmd = "Worksheet Menu Bar" Then
　　With Application.CommandBars(cmd).Controls(2)
　　 .Controls(3).Enabled = Cmd_bln
　　 .Controls(4).Enabled = Cmd_bln
　　 .Controls(5).Enabled = Cmd_bln
　　End With
　Else
　　With Application.CommandBars(cmd)
　　　.FindControl(, 19).Enabled = Cmd_bln 'Copy
　　　.FindControl(, 22).Enabled = Cmd_bln 'Paste
　　　.FindControl(, 21).Enabled = Cmd_bln 'Cut
　　End With
　End If
　Next cmd

End Sub
'---------------------------------------------------------------

このマクロを実行した所、コンテキストメニュー及びショートカットキーのコピー、貼付が無効になりました。
EnableCommandButtons　というマクロを別に作り
ショートカットのインスタンスの
　If Cmd_bln = False Then　を
　If Cmd_bln = True Then　に
書き換えて、実行した所、ショートカットキーは有効になったのですが
コンテキストメニューのコピー、貼付を有効にするやり方がわかりません。

以前、
同じ質問させていただき、ご回答頂いたのですが、別のPCでは、その方法でもダメなことが分かりました。
OSはXP Pro エクセルはは2003です

どなたか、助けていただけないでしょうか？
よろしくお願い致します。

回答No.2

m3_maki · ベストアンサー

> 「コンパイルエラー　引数の数が一致していません。または、不正なプロパティを指定しています」

Sub DisableCommandButtons(Cmd_bln As Boolean)
の引数を変更したのでしょうか？

では、やり方を変えて、

Sub EnableCommandButtons()
'コピー・貼り付けを有効にするマクロ
　'ショートカットのインスタンス
　　Application.OnKey "^c"
　　Application.OnKey "^v"
　　Application.OnKey "^x"
　'コマンドボタンのEnable
　　With Application.CommandBars("Worksheet Menu Bar").Controls(2)
　　　.Controls(3).Enabled = True
　　　.Controls(4).Enabled = True
　　　.Controls(5).Enabled = True
　　End With
　　CommandBars("Cell").Reset
　　CommandBars("Column").Reset
　　CommandBars("Row").Reset
End Sub

お礼

直りました。ありがとうございます。

コピー、貼り付けしたら直りました。内容は良くわかっていません。
勉強不足で申し訳ありません。

本当にありがとうございます。

回答No.1

m3_maki

VBE の 画面で「イミディエイトウィンドウ」を表示し、

DisableCommandButtons True
と入力し、エンターキー。

多分、これで大丈夫。

補足

ありがとうございます。早速試したのですがVBE の 画面で「イミディエイトウィンドウ」を表示させたところ、次のようになっていました。
---------------------
[auto_open] <
[SetupFunctionIDs] <
[SetupFunctionIDs] >
[PickPlatform] <
[PickPlatform] >
[VerifyOpen] <
[VerifyOpen] > 1
[RegisterFunctionIDs] <
[RegisterFunctionIDs] >
[auto_open] >
---------------------
どこに入力すれば良いのか、わからないのでとりあえず2通り試したのですが、
最後の[auto_open] >の後に、教えていただいたDisableCommandButtons Trueを入力したのですが次のようにエラーが表示されました。
「コンパイルエラー　修正候補　式」

次に、イミディエイトウィンドウ内を全て削除し、DisableCommandButtons Trueを入力したのですが次のようにエラーが表示されました。
「コンパイルエラー　引数の数が一致していません。または、不正なプロパティを指定しています」

わかり難くて申し訳ございません。これで状況、伝わりますでしょうか?