|
よろしくお願いいたします
特定のシートだけ、独自メニューを組み込みたいと思っています
SheetActivateとSheetDeactivateで行ってみましたが
独自メニューのあるシートを開いた状態で
他のブックを開くと、そのブックに独自メニューが付いてしまいました
そこで、
特定のシートに独自メニュを組み込んだブックを閉じるときに
他のブックに付いた独自メニューを削除してみましたが本末転倒みたいな気がします
ブックを開くとき、独自メニューを組み込まないようにすればいいとは思いますがわかりません
ご教授よろしくお願いします
また、考え方が根本からおかしいような気もしますがどうなんでしょう
よろしくお願いいたします
ThisWorkbookモジュール
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name <> ThisWorkbook.Name Then
On Error Resume Next
RemoveMenu
On Error GoTo 0
End If
Next
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With ActiveSheet
If .Name <> "操作画面" And .Name <> "登録DT一覧" Then
my_menu
Else
On Error Resume Next
RemoveMenu
On Error GoTo 0
End If
End With
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
With ActiveSheet
On Error Resume Next
If .Name <> "操作画面" And .Name <> "登録DT一覧" Then RemoveMenu
On Error GoTo 0
End With
End Sub
|
|