Back in Excel 4.0 I used the following to take a snapshoot of what
toolbars where visible\active then remove them

SET.NAME("toolbarStatus",GET.TOOLBAR(9))
IF(NOT(ISERROR(toolbarStatus)))
FOR("barCount",1,COLUMNS(toolbarStatus))
SHOW.TOOLBAR(INDEX(toolbarStatus,1,barCount),FALSE )
NEXT()
END.IF()

Then to put them back I used:

IF(NOT(ISERROR(toolbarStatus)))
FOR("barCount",1,COLUMNS(toolbarStatus))
SHOW.TOOLBAR(INDEX(toolbarStatus,1,barCount),TRUE)
NEXT()
END.IF()

Looking for a VBA equivalent. -Randy-