|
>ERROR:本文に禁止語句が含まれています。
は、URLが入力禁止になってます。
でした
再掲させて頂きます
▼りん さん
こんにちは ありがとうございます
なるほどと思ったのですが
実際に試してみると、思ったのと違いました
りんさんはこちらがどんな操作してるか?だと思います
申し訳ありませんでした
アドバイスから下記のようにして希望の操作かないました
ちなみに
別Q ▼【56473】指定シート以外削除 if文ですが から
IF文はSelect Case文に置き換えています
動作
元ブックで、特定シート追加で独自メニュが出る
他シートに移ると独自メニューは消える
独自メニュ付き特定シートから新規ブックを開いても独自メニューは付かない
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case ActiveSheet.Name
Case "操作画面", "登録DT一覧"
Case Else
my_menu
End Select
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Select Case ActiveSheet.Name
Case "操作画面", "登録DT一覧"
On Error Resume Next
RemoveMenu
On Error GoTo 0
Case Else
End Select
End Sub
Private Sub Workbook_Activate()
Select Case ActiveSheet.Name
Case "操作画面", "登録DT一覧"
Case Else
my_menu
End Select
End Sub
Private Sub Workbook_Deactivate()
On Error Resume Next
RemoveMenu
On Error GoTo 0
End Sub
何かありましたらよろしくお願いいたします
|
|