|
▼ようたん さん:
こんにちは。
>うまくいったと思ったのですが、列番号上右クリックで表示されるショートカット
>メニューから挿入を実行されると、列が挿入されてしまいます。
>どのようなコードを書き加えれば、右クリックからの列の挿入操作を無効にできるのでしょうか?
'---------------------------------------------
Private WithEvents myButton As Office.CommandBarButton
Private WithEvents myButtonDele As Office.CommandBarButton
Private Sub Workbook_Open()
MsgBox "列の 挿入と削除を禁止します"
With Application.CommandBars
Set myButton = .FindControl(ID:=3183) '列の挿入
Set myButtonDele = .FindControl(ID:=294) '列の削除
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set myButton = Nothing
Set myButtonDele = Nothing
End Sub
Private Sub myButton_Click(ByVal Ctrl As Office. _
CommandBarButton, CancelDefault As Boolean)
CancelDefault = True
MsgBox "挿入禁止されてます"
End Sub
Private Sub myButtonDele_Click(ByVal Ctrl As Office. _
CommandBarButton, CancelDefault As Boolean)
CancelDefault = True
MsgBox "削除禁止されてます"
End Sub
|
|