here is something to get you started.
To do this right, you'd probably want to specify which toolbars, etc, and probably use a Form, etc... which cant be posted here.
The following snippet will turn ALL toolbars on/off. There's no error checking, or version checking... which will especially be needed if NOT run on sw2003, because the numbers of toolbars can/will change.
Sub main()
Dim Toolbar As Long
Dim swApp As SldWorks.SldWorks
Dim Part As ModelDoc2
Dim Visibilty As Boolean: Visibility = False 'set to false to hide
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
' assuming SW2003, and 27 toolbars ...
For Toolbar = 0 To 26
Part.SetToolBarVisibility Toolbar, Visibility
Next Toolbar
End Sub