A
arisco97
Version 2002 / 2003
Dim vsoCommandBars As CommandBars
Dim vsoCommandBar As CommandBar
Set vsoCommandBars = Application.CommandBars
Set vsoCommandBar = vsoCommandBars.Item("Page Tab")
'I was able to set the following to False, but now it refuses to set it back
to True
'Delete Page
vsoCommandBar.Controls.Item(2).Enabled = True //Is ignored, no error thrown
'Rename Page
vsoCommandBar.Controls.Item(3).Enabled = True
This I believe has either updated registry or some policy file, as now new
instances of Visio has Delete Page and Rename Page commands in the Page Tab
Menu as disabled. Do I have to reinstall Visio?
How do I enable them back as Global setting?
How do I disable these commands selectively for a Page:
I thought the following would work, but it applies it globally:
Set vsoCommandBars =
ActiveDocument.Pages("XXX"History").Application.CommandBars
vsoCommandBar.Controls.Item(2).Enabled = False
Dim vsoCommandBars As CommandBars
Dim vsoCommandBar As CommandBar
Set vsoCommandBars = Application.CommandBars
Set vsoCommandBar = vsoCommandBars.Item("Page Tab")
'I was able to set the following to False, but now it refuses to set it back
to True
'Delete Page
vsoCommandBar.Controls.Item(2).Enabled = True //Is ignored, no error thrown
'Rename Page
vsoCommandBar.Controls.Item(3).Enabled = True
This I believe has either updated registry or some policy file, as now new
instances of Visio has Delete Page and Rename Page commands in the Page Tab
Menu as disabled. Do I have to reinstall Visio?
How do I enable them back as Global setting?
How do I disable these commands selectively for a Page:
I thought the following would work, but it applies it globally:
Set vsoCommandBars =
ActiveDocument.Pages("XXX"History").Application.CommandBars
vsoCommandBar.Controls.Item(2).Enabled = False