| |
またお世話になります。
どなたかご指導よろしくお願いします。
質問は２件あります。
その１、
何とかユーザーからの列の挿入操作を無効にできないものかと、以下のコード
にたどりつきました。
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
|
|
ようたん
- 08/10/27(月) 0:37 -
