ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] EXCEL2007 ³Ì¤p¤Æ¥\¯à°Ï

¦^´_ 1# boyao


    ¹Á¸Õ¥H¤Uµ{¦¡½X...
Sub RemoveToolbars()
On Error Resume Next
With Application
.DisplayFullScreen = true
.DisplayFormulaBar =false
.DisplayStatusBar = true
.CommandBars("Full Screen").Visible = false
.CommandBars("Standard").Visible = false
.CommandBars("Formatting").Visible = false
.CommandBars("Worksheet Menu Bar").Enabled = false
End With
On Error GoTo 0
End Sub

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD