home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 December (Special) / PCWorld_2002-12_Special_cd.bin / Special_komplet / special_komplet.exe / Protbars.mak < prev    next >
Text File  |  2002-01-03  |  262b  |  8 lines
  1. Bars = Array("Menu Bar", "Standard", "Formatting")
  2. Lista = 2
  3. For i = 0 To Lista
  4. CommandBars(Bars(i)).Protection = msoBarNoChangeDock _
  5. + msoBarNoMove + msoBarNoCustomize + msoBarNoChangeVisible
  6. 'CommandBars(Bars(i)).Protection = msoBarNoProtection
  7. Next i
  8.