[¨D±Ï]§ó§ï§¹ Thisworkbook «á, Excel ¶}¤£¤F¡I

bowwow1975

°Ñ¦Ò¹ï©¤ªººô¯¸¼g¤J¤F¤U¦Cªºµ{¦¡
Private Sub Workbook_BeforeClose(Cancel As Boolean)
showhide (bHide = True)
End Sub

Private Sub Workbook_Open()
showhide (bHide = False)
End Sub

Sub showhide(Optional bHide As Boolean)
Dim cmb As CommandBar
Static col As New Collection
If bHide Then
For Each cmb In Application.CommandBars
If cmb.Type = msoBarTypeMenuBar Or cmb.Type = msoBarTypeNormal Then
If cmb.Visible Then
cmb.Enabled = False
If cmb.Visible Then cmb.Visible = False
col.Add cmb, cmb.Name
End If
End If
Next cmb
Else
If col Is Nothing Or col.Count = 0 Then
For Each cmb In Application.CommandBars
If cmb.Type = msoBarTypeMenuBar Or cmb.Type = msoBarTypeNormal Then
If Not cmb.Visible Or Not cmb.Enabled Then
cmb.Enabled = True
If (Not cmb.Visible) And cmb.Enabled Then cmb.Visible = True
End If
End If
Next cmb
Else
For Each cmb In col
If Not cmb.Visible Or Not cmb.Enabled Then
cmb.Enabled = True
If (Not cmb.Visible) And cmb.Enabled Then cmb.Visible = True
End If
Next cmb
End If
Set col = Nothing
End If
End Sub

¼g§¹«á¡AÀx¦s¡A´N¶}¤£¤F Excel ¤F¡A´N³s«Ø·sÀɤ]¨S¿ìªk¡I¡I
¡]­«¶}¾÷¥H¤Î­×´_ office ³£¨S¿ìªk¡I¡^
Win7 + Office 2007
­þ¦ì¤j¤j¥i¥H±Ï©Rªº°Ú~~~

oobird

¬O¶}¤£¤FÁÙ¬O¥´¶}«á¨S¦³¥\¯àªí¤Î¤u¨ã¦C¡H
³o¬qµ{¦¡¥u¬O¹ï¥\¯àªí¤Î¤u¨ã¦C³]¸m¨S¦³¨ä¥L¤£¨}¥N½X§r¡C

oobird

C:\Documents and Settings\user\Application Data\Microsoft\Excel
¸Ì­±¦³­ÓEXCEL12.XLB¡A§â¥¦§R¤F¦A¶}±ÒEXCEL¬Ý¬Ý¡C

bowwow1975

²{¦b¬O§¹¥þ¥´¤£¶} Excel ÀÉ¡]·s³£¤£¦æ¡^¡A¨ä¥Lªº office ¨S¼vÅT¡I

Win7 ¨t²Î¤£µ¹¶i¤J
C:\Documents and Settings\user\Application Data
³o¸Ì­±.........................

bowwow1975

OK¤F¡A¨Ì·Ó¥H¤U¤èªk§ó§ïÅv­­´N¦n¤F¡I
http://www.ptt.cc/bbs/Windows/M.1256656038.A.10B.html

·PÁ¤j¤jÀ°¦£¡I