In 2010 need a Marco button to appear on a ribbon by VB

[JASONW10]

In excel 2003 I wrote the following VB code that allowed a button to appear on the tool bar everytime someone opened a this workbook, and then when they closed it disappeared as well. However, it does not work on 2010 and I have no clue on how to make this appear onto the ribbon any ideas?

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cb As CommandBar
For Each cb In Application.CommandBars
If cb.Name = "Menubaraa" Then
cb.Delete
End If
Next cb

End Sub

Private Sub Workbook_Open()
Dim count As Integer
Dim cb As CommandBar, f As Boolean, btn As CommandBarButton
f = False
For Each cb In Application.CommandBars
f = False Or (cb.Name = "Menubaraa")
Next cb
count = 1
If Not f Then
Set cb = Application.CommandBars.Add(Name:="Menubaraa", Position:=msoBarTop)
cb.RowIndex = msoBarRowLast
Set btn = cb.Controls.Add(Type:=msoControlButton)
With btn
.Caption = "&Enter Data"
.OnAction = "begin"
.FaceId = 151
.Style = msoButtonIconAndCaption
End With

cb.Visible = True
End If

Load UserForm1
UserForm1.Show



End Sub

 

[VoG]

Doesn't it appear on the Add-ins tab?

 

[Trevor G]

In excel 2003 I wrote the following VB code that allowed a button to appear on the tool bar everytime someone opened a this workbook, and then when they closed it disappeared as well. However, it does not work on 2010 and I have no clue on how to make this appear onto the ribbon any ideas?

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cb As CommandBar
For Each cb In Application.CommandBars
If cb.Name = "Menubaraa" Then
cb.Delete
End If
Next cb

End Sub

Private Sub Workbook_Open()
Dim count As Integer
Dim cb As CommandBar, f As Boolean, btn As CommandBarButton
f = False
For Each cb In Application.CommandBars
f = False Or (cb.Name = "Menubaraa")
Next cb
count = 1
If Not f Then
Set cb = Application.CommandBars.Add(Name:="Menubaraa", Position:=msoBarTop)
cb.RowIndex = msoBarRowLast
Set btn = cb.Controls.Add(Type:=msoControlButton)
With btn
.Caption = "&Enter Data"
.OnAction = "begin"
.FaceId = 151
.Style = msoButtonIconAndCaption
End With

cb.Visible = True
End If

Load UserForm1
UserForm1.Show



End Sub

You might also need to check out your security level for the new version of Excel as MACRO's can be disabled which would prevent you from seeing the Add Ins Tab for this sub routine.

 

[JASONW10]

yes, you are correct it does appear on the add in tab. is there away to have this tab auto show when you open a workbook?