お世話になります。
右クリックメニューの行の挿入と削除を無効にしたいのですが、
セルを選択して、右クリックメニューの挿入・削除は
Private Sub Workbook_Open()
Dim mymenubar1 As CommandBar
Set mymenubar1 = Application.CommandBars("Cell")
mymenubar1.Controls("挿入(&I)").Enabled = False
End Sub
で無効にできたのですが、
行を選択→右クリックメニューの挿入削除の無効化の仕方がわかりません。
※セルに対してではなく、行に対して行いたいのです。
ご教授頂ければと幸いですのでよろしくお願いします。
No.4ベストアンサー
- 回答日時:
#1 の回答者です。
読み落としましたので、書き加えました。ただ、再度書きますが、Excel 2003以上には不要です。
また、これは、クラスインスタンスに設けることも多いです。
これは、右クリックメニュー(Cell)だけでなく、メニューの中も含めます。
サブルーチンを入れ替えてください。
Private Sub InsertEnabled(flg As Boolean)
With Application
.CommandBars.FindControl(, 296).Enabled = flg
.CommandBars.FindControl(, 293).Enabled = flg
.CommandBars("Worksheet Menu Bar").FindControl(, 30003). _
Controls("削除(&D)...").Enabled = flg
.CommandBars("Row").FindControl(, 3183).Enabled = flg
.CommandBars("Cell").FindControl(, 3181).Enabled = flg
End With
End Sub
本来は、2バイト文字を使いたくはないのですが、どうしてもできない部分があります。
No.3
- 回答日時:
すみませんでした。
削除もですね。
CommandBars("Row").Controls("削除(&D)...").Enabled = False
CommandBars("Row").Controls("削除(&D)...").Enabled = True
でできるようです。
No.2
- 回答日時:
こんにちは。
必要な部分だけですが...以下のマクロで、一応できました。
これでよいのでしょうか?
Sub 行選択挿入_false()
CommandBars("Row").Controls("挿入(&I)").Enabled = False
End Sub
Sub 行選択挿入_true()
CommandBars("Row").Controls("挿入(&I)").Enabled = True
End Sub
もっとよい方法があるかもしれませんので、以後の回答をご参考にしてください。
No.1
- 回答日時:
こんばんは。
Excel 2003 以上なら、シートの保護で、行の挿入にチェックを入れればよいはずです。
マクロなら、以下のようにすればよいです。
ThisWorkbook モジュールに置けばよいです。
Private Sub Workbook_Open()
InsertEnabled False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
InsertEnabled True
End Sub
Private Sub InsertEnabled(flg As Boolean)
With Application
.CommandBars.FindControl(, 296).Enabled = flg
.CommandBars("Row").FindControl(, 3183).Enabled = flg
.CommandBars("Cell").FindControl(, 3181).Enabled = flg
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Excel(エクセル) 余計なお世話的な「入力規則」?対策は? 2 2023/01/14 12:39
- Windows 10 Windows10パソコン右クリックメニューで「切り取り」と「コピー」を選択し間違わないようにしたい 3 2022/04/16 10:35
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/07 08:37
- Excel(エクセル) LibreOffice Calcでのセルの挿入について 1 2022/11/06 11:21
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
セルの右クリックで出る項目を減らすことはできますか? Excel 2021
Excel(エクセル)
-
エクセルで特定の行だけ行削除、行挿入できないようにロックをかけるには
Excel(エクセル)
-
ExcelVBAで右クリックメニューのマクロ削除
Excel(エクセル)
-
-
4
EXCELで右クリックメニューの追加
その他(プログラミング・Web制作)
-
5
エクセルの右クリックメニューで
Excel(エクセル)
-
6
VBAで、貼り付け禁止命令を実現したい(エクセル)
Visual Basic(VBA)
-
7
エクセルVBAで選択状態を解除のしかた
Excel(エクセル)
-
8
Excelで行挿入イベントをハンドルしたい
Excel(エクセル)
-
9
すでにコピーした情報を貼り付けたらイベントを発生
PowerPoint(パワーポイント)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
太ってる女とのSEX
-
40代男性が好むSEXはどんなもの...
-
直ぐに挿入をせまる彼女
-
恋人などと挿入したまま入眠し...
-
挿入時、キツっって言いながら...
-
入れてる最中に、『めっちゃ濡...
-
女性の方 イクようになったき...
-
手コキとマンコに挿入するのと...
-
女性の方へ、イクことと女性の...
-
嫁がバイブでしか逝きません。
-
処女卒業して3ヶ月の大学生です...
-
入ってるかどうかわからない
-
挿入時 鳥肌
-
手マンと挿入どっちが気持ちい?
-
もう少しでイケそうな時、どん...
-
AVって、本当に挿入してるんで...
-
あそこが狭い女性とのHについ...
-
高齢熟女も濡れるんですか?
-
挿入しやすい体位
-
挿入のときに力を抜く方法はあ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
恋人などと挿入したまま入眠し...
-
太ってる女とのSEX
-
挿入中の潮について、ものすご...
-
直ぐに挿入をせまる彼女
-
40代男性が好むSEXはどんなもの...
-
挿入時、キツっって言いながら...
-
もう少しでイケそうな時、どん...
-
入れてる最中に、『めっちゃ濡...
-
処女卒業して3ヶ月の大学生です...
-
女性の方 イクようになったき...
-
嫁がバイブでしか逝きません。
-
女性の方へ、イクことと女性の...
-
AVって、本当に挿入してるんで...
-
手コキとマンコに挿入するのと...
-
あそこが狭い女性とのHについ...
-
入ってるかどうかわからない
-
手マンと挿入どっちが気持ちい?
-
挿入しやすい体位
-
挿入のときに力を抜く方法はあ...
-
いきそうでいけない・・・
おすすめ情報