Excel VBA質問箱 IV

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

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


25473 / 76732 ←次へ | 前へ→

【56598】特定のシートに独自メニュを組み込む方法
質問  操否  - 08/6/23(月) 17:32 -

引用なし
パスワード
   よろしくお願いいたします

特定のシートだけ、独自メニューを組み込みたいと思っています

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
0 hits

【56598】特定のシートに独自メニュを組み込む方法 操否 08/6/23(月) 17:32 質問
【56601】Re:特定のシートに独自メニュを組み込む方法 操否 08/6/23(月) 19:49 質問
【56602】Re:特定のシートに独自メニュを組み込む方法 りん 08/6/23(月) 20:26 発言
【56605】Re:特定のシートに独自メニュを組み込む方法 操否 08/6/24(火) 11:34 お礼
【56607】Re:特定のシートに独自メニュを組み込む方法 操否 08/6/24(火) 11:53 お礼
【56608】Re:特定のシートに独自メニュを組み込む方法 操否 08/6/24(火) 14:24 質問
【56616】Re:特定のシートに独自メニュを組み込む方法 neptune 08/6/24(火) 17:56 発言
【56626】Re:特定のシートに独自メニュを組み込む方法 操否 08/6/25(水) 13:20 お礼
【56627】Re:特定のシートに独自メニュを組み込む方法 neptune 08/6/25(水) 13:58 発言
【56645】Re:特定のシートに独自メニュを組み込む方法 操否 08/6/26(木) 18:24 お礼

25473 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free