Excel VBA質問箱 IV

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

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


65675 / 76734 ←次へ | 前へ→

【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

0 hits

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

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