Custom Tool Bar

[Sandy Radjenovic]

I have a MS Office Excel 2007 worksheet running in a MS Windows XP Pro (version 5.1 SP3) environment.
There is a custom toolbar which was created and always appeared.
It has suddenly stopped appearing.
However, when pulled up on another pc, it continues to appear.
Any ideas?

Please see code below for custom toolbar...

Sub CreatePressToolBar()

Application.CommandBars.DisableCustomize = True

Dim TBar As CommandBar
Set TBar = Application.CommandBars.Add
With TBar
.Name = "Press Schedule"
.Visible = True
.Position = msoBarTop
.Left = 0
.Top = 0
.Protection = msoBarNoCustomize + msoBarNoResize + msoBarNoChangeVisible

End With

' the custom buttons for the toolbar are defined below

'IMPORT -------------------------------------------------------

Dim ImpBtn As CommandBarButton
Set ImpBtn = CommandBars("Press Schedule").Controls.Add _
(Type:=msoControlButton)
With ImpBtn
.Caption = "Import Jobs"
.OnAction = "ImportPress"
.BeginGroup = False
.Enabled = True
.Style = msoButtonWrapCaption
.TooltipText = "Import Jobs From PSI Job File into Current Schedule"

End With

' MOVE --------------------------------------------------------

Dim MovBtn As CommandBarButton
Set MovBtn = CommandBars("Press Schedule").Controls.Add _
(Type:=msoControlButton)
With MovBtn
.Caption = "Move Jobs"
.OnAction = "XferJob"
.BeginGroup = True
.Enabled = True
.Style = msoButtonWrapCaption
.TooltipText = "Move Re-Assigned Jobs in Current Schedule " & _
"(HEIDI1 and HEIDI3 only) To Bottom of Appropriate Schedule"
End With

' SPLIT --------------------------------------------------------

Dim NewBtn As CommandBarButton
Set NewBtn = CommandBars("Press Schedule").Controls.Add _
(Type:=msoControlButton)
With NewBtn
.Caption = "Split Job"
.OnAction = "SplitJobApart"
.BeginGroup = True
.Enabled = True
.Style = msoButtonWrapCaption
.TooltipText = "Split Selectecd Job in Current Schedule into Multiple Parts"
End With

' DOWNTIME -----------------------------------------------------

Dim DwnBtn As CommandBarButton
Set DwnBtn = CommandBars("Press Schedule").Controls.Add _
(Type:=msoControlButton)
With DwnBtn
.Caption = "Insert DownTime"
.OnAction = "InsertShutInfo"
.BeginGroup = True
.Enabled = True
.Style = msoButtonWrapCaption
.TooltipText = "Insert Machine Downtime at Selected Position in Current Schedule"
End With

' UPDATE ---------------------------------------------------------

Dim Upd8Btn As CommandBarButton
Set Upd8Btn = CommandBars("Press Schedule").Controls.Add _
(Type:=msoControlButton)
With Upd8Btn
.Caption = "Update"
.OnAction = "Upd8Press"
.BeginGroup = True
.Enabled = True
.Style = msoButtonCaption
.TooltipText = "Update Values and Formatting in Current Schedule"
End With

' DELETE ---------------------------------------------------------

Dim DelBtn As CommandBarButton
Set DelBtn = CommandBars("Press Schedule").Controls.Add _
(Type:=msoControlButton)
With DelBtn
.Caption = "Delete Job"
.OnAction = "DeleteAllJob"
.BeginGroup = True
.Enabled = True
.Style = msoButtonWrapCaption
.TooltipText = "Delete Entire Job from All Schedules"
End With

' PUBLISH ---------------------------------------------------------

Dim PubBtn As CommandBarButton
Set PubBtn = CommandBars("Press Schedule").Controls.Add _
(Type:=msoControlButton)
With PubBtn
.Caption = "Publish Schedule"
.OnAction = "PublishPress"
.BeginGroup = True
.Enabled = True
.Style = msoButtonWrapCaption
.TooltipText = "Print, Alert and Save Schedule(s)"
End With

' VIEWDATA ---------------------------------------------------------

Dim AddlBtn As CommandBarButton
Set AddlBtn = CommandBars("Press Schedule").Controls.Add _
(Type:=msoControlButton)
With AddlBtn
.Caption = "View Info"
.OnAction = "ViewAddlData"
.BeginGroup = True
.Enabled = True
.Style = msoButtonWrapCaption
.TooltipText = "View Additional Job Info"
End With

' ARCHIVE ---------------------------------------------------------

Dim ArcBtn As CommandBarButton
Set ArcBtn = CommandBars("Press Schedule").Controls.Add _
(Type:=msoControlButton)
With ArcBtn
.Caption = "Archive DONE"
.OnAction = "ArchiveDone"
.BeginGroup = True
.Enabled = True
.Style = msoButtonWrapCaption
.TooltipText = "Move Jobs from DONE to History"
End With

' PSI REGEN ----------------------------------------------------------

Dim PSIBtn As CommandBarButton
Set PSIBtn = CommandBars("Press Schedule").Controls.Add _
(Type:=msoControlButton)
With PSIBtn
.Caption = "PSI ReGen"
.OnAction = "RunPSIExport"
.BeginGroup = True
.Enabled = True
.Style = msoButtonWrapCaption
.TooltipText = "Create New PSI Job File For Import"
End With


' EXPORT ALL ----------------------------------------------------------

Dim ExpAllBtn As CommandBarButton
Set ExpAllBtn = CommandBars("Press Schedule").Controls.Add _
(Type:=msoControlButton)
With ExpAllBtn
.Caption = "Export ALL"
.OnAction = "ExportAll"
.BeginGroup = True
.Enabled = True
.Style = msoButtonWrapCaption
.TooltipText = "Create New CSV File For Reporting"
End With

' STATUS REPORT ---------------------------------------------------

Dim StatBtn As CommandBarButton
Set StatBtn = CommandBars("Press Schedule").Controls.Add _
(Type:=msoControlButton)
With StatBtn
.Caption = "Status Report"
.OnAction = "RunStatus"
.BeginGroup = True
.Enabled = True
.Style = msoButtonWrapCaption
.TooltipText = "Print Status Report"
End With

' VARIANCE REPORT --------------------------------------------------

Dim VarBtn As CommandBarButton
Set VarBtn = CommandBars("Press Schedule").Controls.Add _
(Type:=msoControlButton)
With VarBtn
.Caption = "Variance Report"
.OnAction = "RunVariance"
.BeginGroup = True
.Enabled = True
.Style = msoButtonWrapCaption
.TooltipText = "Print Variance Report"
End With

' EQUIP STAT REPORT----------------------------------------------------

Dim EqStRptBtn As CommandBarButton
Set EqStRptBtn = CommandBars("Press Schedule").Controls.Add _
(Type:=msoControlButton)
With EqStRptBtn
.Caption = "Equipment Status Report"
.OnAction = "RunEquipStat"
.BeginGroup = True
.Enabled = True
.Style = msoButtonWrapCaption
.TooltipText = "Print Equipment Status Report"
End With

' PRESS SCHED EPORT----------------------------------------------------

Dim PrSchdRptBtn As CommandBarButton
Set PrSchdRptBtn = CommandBars("Press Schedule").Controls.Add _
(Type:=msoControlButton)
With PrSchdRptBtn
.Caption = "Press Schedule Report"
.OnAction = "RunPressSched"
.BeginGroup = True
.Enabled = True
.Style = msoButtonWrapCaption
.TooltipText = "Print Press Schedule Report"
End With

' FindAll ---------------------------------------------------------

Dim FindBtn As CommandBarButton
Set FindBtn = CommandBars("Press Schedule").Controls.Add _
(Type:=msoControlButton)
With FindBtn
.Caption = "Find"
.OnAction = "FindNext"
.BeginGroup = True
.Enabled = True
.Style = msoButtonWrapCaption
.TooltipText = "Search Schedule"
End With

' FindAll ---------------------------------------------------------

Dim SkipUpd8Btn As CommandBarButton
Set SkipUpd8Btn = CommandBars("Press Schedule").Controls.Add _
(Type:=msoControlButton)
With SkipUpd8Btn
.Caption = "Skip UPD8"
.OnAction = "SkipUpd8"
.BeginGroup = True
.Enabled = True
.Style = msoButtonWrapCaption
.TooltipText = "Totally Skip Updates on this Job"
End With

' Export2Xml ---------------------------------------------------------
' new 8-30-2009 QB

Dim Export2XmlBtn As CommandBarButton
Set Export2XmlBtn = CommandBars("Press Schedule").Controls.Add _
(Type:=msoControlButton)
With Export2XmlBtn
.Caption = "Export2Xml"
.OnAction = "Export2XML"
.BeginGroup = True
.Enabled = True
.Style = msoButtonWrapCaption
.TooltipText = "Export Press Schedule to XML for Mac Todo system"
End With


End Sub