Excel VBA質問箱 IV

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

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


11530 / 13645 ツリー ←次へ | 前へ→

【15631】右クリックに登録 toh 04/7/1(木) 14:11 質問[未読]
【15635】すみません toh 04/7/1(木) 14:25 回答[未読]
【15640】Re:すみません Jaka 04/7/1(木) 15:02 発言[未読]

【15631】右クリックに登録
質問  toh  - 04/7/1(木) 14:11 -

引用なし
パスワード
   質問させてください。
右クリックに登録したのですが、
ファイルを立ち上げるたびに、コマンドバーボタンが
追加されるます。消すにはどうしたらいいか教えてください。

Private Sub Workbook_Open()
  Dim CB As CommandBar, cbc As CommandBarButton
  Dim xfile As String  
  xfile = Dir(Path & "\tes" & "*")
  If xfile <> "" Then
    For Each CB In Application.CommandBars
      If CB.Name = "Cell" Then
        CB.Controls(1).BeginGroup = True
        Set cbc = CB.Controls.Add(Type:=msoControlButton,before:=1)
        With cbc
          .FaceId = 303
          .Caption = "開きま〜す!"
          .Style = msoButtonIconAndCaption
          .OnAction = ThisWorkbook.Name & "!thisworkbook.CellOrange"
        End With
      End If
    Next
  Else: MsgBox "フォルダが見つかりません。"
  End If
  
  Set cbc = Nothing
End Sub

【15635】すみません
回答  toh  - 04/7/1(木) 14:25 -

引用なし
パスワード
   探してみるものですね。
見つかったので、試してみます。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  '念のため
  Dim cb As CommandBar
  For Each cb In Application.CommandBars
   'Cellというバーは2つある(V3過去ログ参照)
   If cb.Name = "Cell" Then cb.Reset
  Next
End Sub

【15640】Re:すみません
発言  Jaka  - 04/7/1(木) 15:02 -

引用なし
パスワード
   こんにちは。
こんな感じに、直接処理しても良いんじゃないかなと思います?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  On Error Resume Next
  Application.CommandBars("cell").Controls("開きま〜す!").Delete
End Sub

Private Sub Workbook_Open()
  Dim cbc As Object
  Set cbc = Application.CommandBars("cell").Controls.Add _
     (Type:=msoControlButton, before:=1) ', temporary:=True)
  With cbc
    .FaceId = 303
    .Caption = "開きま〜す!"
    .Style = msoButtonIconAndCaption
    .OnAction = ThisWorkbook.Name & "!thisworkbook.CellOrange"
    .BeginGroup = True
  End With
  Set cbc = Nothing
End Sub

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