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