GBKEE

¶}±ÒÀÉ®×«á °õ¦æ¦¹µ{§Ç ,¥i©ú¾éªü¦N¥Sªº§@ªk.

1. Sub Ex()
   
2.      Dim Sh As Worksheet, Excel4MacroSheet$
   
3.      With ActiveWorkbook
   
4.         .Unprotect "11686106"
   
5.         For Each Sh In .Sheets
   
6.             If Sh.Type = xlExcel4MacroSheet Then
   
7.                 Excel4MacroSheet = Sh.name
   
8.                 Sh.Visible = True
   
9.             End If
   
10.         Next
    
11.         With .Sheets.Add(Type:=xlExcel4MacroSheet)
    
12.             ActiveWorkbook.Sheets(Excel4MacroSheet).Cells.Copy .[a1]
    
13.             .Columns.Hidden = False
    
14.             .Rows.Hidden = False
    
15.          End With
    
16.     End With
    
17. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# lin

1. Option Explicit
   
2. Sub Ex()
   
3.     ActiveWindow.DisplayWorkbookTabs = False
   
4.     'DisplayWorkbookTabs ÄÝ©Ê ¦pªGÅã¥Ü¬¡­¶Ã¯¯Á¤Þ¼ÐÅÒ«h¬° True¡CŪ/¼g Boolean¡C
   
5. 
   
6.     '©Î¬O
   
7.    
   
8.     ActiveWindow.TabRatio = 0
   
9.    
   
10.     'TabRatio ÄÝ©Ê ¶Ç¦^©Î³]©wµøµ¡¬¡­¶Ã¯¯Á¤Þ¼ÐÅÒ¼e«×»Pµøµ¡¤ô¥­±²¶b¼e«×¤ñ¨Ò (¥i¬° 0 (¹s) ©M 1 ¤§¶¡ªº¼Æ¦r¡F¹w³]­È¬° 0.6)¡CŪ/¼g Double¡C
    
11.     '³Æµù
    
12.     '¦pªG DisplayWorkbookTabs ³]©w¬° False¡A«h¸ÓÄݩʨS¦³§@¥Î («O¯d¨ä­È¡A¦ý¸Ó­È¤£¼vÅT¿Ã¹õÅã¥Ü)¡C
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 12# HUNGCHILIN

¦^´_  lin
GBKEE µoªí©ó 2012/12/14 14:16    '©Î¬O        ActiveWindow.TabRatio = 0