Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23639 / 76732

←次へ　｜　前へ→


	【58456】列の挿入・削除の無効化

ようたん - 08/10/27(月) 0:37 -


	引用なし

	パスワード

またお世話になります。
どなたかご指導よろしくお願いします。
質問は２件あります。

その１、

何とかユーザーからの列の挿入操作を無効にできないものかと、以下のコード
にたどりつきました。

rivate WithEvents myButton As Office.CommandBarButton

'***********************************************************************

Private Sub myButton_Click( _
　　ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
　　
　　　　CancelDefault = True
End Sub

'***********************************************************************

Private Sub Workbook_Open()

　 Set myButton = Application.CommandBars("Worksheet Menu Bar") _
　　　　　　.Controls("挿入(&I)").Controls("列(&C)")
　　　　　　
End Sub

'***********************************************************************

Private Sub Workbook_BeforeClose(Cancel As Boolean)

　　Set myButton = Nothing

End Sub

うまくいったと思ったのですが、列番号上右クリックで表示されるショートカット
メニューから挿入を実行されると、列が挿入されてしまいます。
どのようなコードを書き加えれば、右クリックからの列の挿入操作を無効にできるのでしょうか？

その２、

今度は列の削除の操作も無効にしようと考えたのですが、以下のコードではエラー表示されてしまいます。右クリックからの列の削除操作ともどもどう対処すればよいのかご指導お願いいたします。

rivate WithEvents myButtonDele As Office.CommandBarButton

'***********************************************************************

Private Sub myButtonDele_Click( _
　　ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
　　
　　　　CancelDefault = True
End Sub

'***********************************************************************

Private Sub Workbook_Open()

　 Set myButtonDele = Application.CommandBars("Worksheet Menu Bar") _
　　　　　　.Controls("編集(&E)").Controls("削除(&D)")
　　　　　　
End Sub

'***********************************************************************

Private Sub Workbook_BeforeClose(Cancel As Boolean)

　　Set myButtonDele = Nothing

End Sub

2 hits

▼

【58456】列の挿入・削除の無効化 ようたん 08/10/27(月) 0:37

≪