「Application.CommandBars("Cell").Enabled = False」 で、マウスの右ボタンをクリックしても、[Shift]+[F10]キーを押しても、ショートカットメニューは表示されなくなります。 逆にショートカットメニューを表示されるようにするコードは VBAで貼り付け(ペースト)を禁止する方法をご紹介します。以前の方法では、実行している Excel 以外からコピーされた場合、右クリックやリボンで貼り付けができてしまうと説明しました。今回は、完全に貼り付けができなくなる方法のご紹介です。サンプルソースで説明しています。 It can only be removed using the Enabled property. Have questions or feedback about Office VBA or this documentation?

CommandBar object members; Support and feedback. Making statements based on opinion; back them up with references or personal experience. Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:=292) 'delete - from cell Ctrl.Enabled = False Next Ctrl For Each Ctrl In Application.CommandBars.FindControls(ID:=293) 'delete - from row Ctrl.Enabled = False Next Ctrl For Each Ctrl In Application.CommandBars.FindControls(ID:=294) 'delete - from column Ctrl.Enabled = False … Application.CommandBars.ActionControl.Parameter とします。 before ・・・ コントロールを登録する位置を 1 以上の整数値で指定します。(省略可) (例)Before:= 1 この場合、メニューの一番上に設 … Thanks for contributing an answer to Stack Overflow! お世話になります。VBA を使用してexcel起動時に 右クリックメニューの行削除や列削除を無効して、下記VBAを作成しました。しかしながら、起動時(実行時)に「実行時エラー 5 プロシージャの呼び出し、または引数が不正です。」が Please be sure to answer the question. Provide details and share your research! Set myBar = CommandBars("Custom") If user = "Level 1" Then myBar.Visible = True Else CommandBars("Visual Basic").Reset myBar.Enabled = False End If See also. Note: There are two Cell menu's in Excel, the second one you see when you are in page break preview mode.

Set ContextMenu = Application.CommandBars(Application.CommandBars("Cell").Index + 3) The same applies to the Row and Column context menus. For Each cmdBra1 In Application.CommandBars("Cell").Controls If InStr(cmdBra1.Caption, "切り取り") Then cmdBra1.Visible = False Next Application.CommandBars("Cell").ShowPopup Application.CommandBars("Cell").Reset Cancel = True End Sub Hallo Excel Forum, da hab ich was durcheinander gebracht Application.CommandBars("Cell").Reset blendet natürlich das Kontexmenue wieder ein ich möchte es aber ausblenden und vor allem auch für die Zeilen und Spaltenüberschrift. The drag and drop function is an for the application not just the one workbook. If I turn it off when opening the workbook the functionality is then turned off for all workbooks and will not be turned back on until you go into Tools > options and re-tick the relevant box. If you want to change this menu use this then in the code. But avoid … Asking for help, clarification, or responding to other answers. bonjour Jp, Application.CommandBars("Cell").Reset isabelle j-pascal a écrit : Bonsoir, Pour faire réapparaître les CommandBars suivantes, j'ai dû rajouter