Dell KACE
AppDeploy

 

Example Script to remove an excell button
3/8/2010 | Submitted By robesini
 
On Error Resume Next
Const cmdBarName = "wbDIS"

Dim oXL
Dim oAddin

Set oXL = CreateObject("Excel.Application")

removeMenuBar

'Sub to remove the command bar
'---------------------------------------------------
Sub removeMenuBar()
For Each bar In oXL.CommandBars
If bar.Name = cmdBarName Then
bar.Delete
End If
Next
End Sub


Set oXL = Nothing

Printer Friendly Version
  
Problem? Question? Comment? Please, let us know!
Return to AppDeploySM Tips and Tricks.