GBKEE

¦^´_ 1# yangjie

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim FileName As String, E As Workbook
   
4.     FileName = "D:\BOOK2.XLS"
   
5.     With CreateObject(FileName)
   
6.         '*** Åã¥Ü¬¡­¶Ã¯¬O³o¼Ë¶Ü? *****
   
7.         .Windows(.Name).Visible = True
   
8.         '.Sheets(SHname).Cells.Copy wb.Sheets("Temp").Cells(1, 1)
   
9.         .Close True
   
10.     End With
    
11. End Sub
    
12. Sub ¥\¯à¦C()
    
13.     ¥\¯à¦C_Show True  'Åã¥Ü¥\¯à¦C
    
14.     Stop
    
15.     ¥\¯à¦C_Show False '¤£Åã¥Ü¥\¯à¦C
    
16. End Sub
    
17. Private Sub ¥\¯à¦C_Show(Msg As Boolean)
    
18.     With Application
    
19.         .DisplayFullScreen = Not Msg
    
20.         .CommandBars.ActiveMenuBar.Enabled = Msg
    
21.     End With
    
22. End Sub
    
23. Sub Sheets_ÁôÂÃ()
    
24.     Dim i As Integer
    
25.     With ActiveWorkbook
    
26.         .Protect Password:="1234", Structure:=True, Windows:=True '«OÅ@¬¡­¶Ã¯ªº µ²ºc,µøµ¡
    
27.         .Unprotect Password:="1234" '¬¡­¶Ã¯: ¸Ñ°£«OÅ@.
    
28.         For i = 2 To .Sheets.Count  '¬¡­¶Ã¯¦Ü¤Ö­n¦³¤@±i¤u§@ªí¬O¥i¨£ªº
    
29.             Sheet1.Visible = xlSheetVeryHidden  '­È= 2 :vba ªº¤u§@ªíÁôÂÃ,»Ý¥Îvba ¨ú®ø¤u§@ªíÁôÂÃ
    
30.         Next
    
31.         .Protect Password:="1234", Structure:=True, Windows:=True
    
32.     End With
    
33. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# yangjie
---------¦¹¦æ¥i§_¥[±K ???
Sheet1.Visible = False ,  §A¥i¦b¤u§@ªí¤W¨ú®øÁôÂÃ

1. '½Ð¸Ô¬ÝVBAªºKeyPress ¨Æ¥ó
   
2. Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   
3.     If KeyAscii = 10 Then   '«ö¤U²Õ¦XÁä CTRL+Enter
   
4.         CommandButton1.SetFocus
   
5.         CommandButton1_Click
   
6.     End If
   
7. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# yangjie

¨ü­­·í¬O   

Sheet1.Visible = xlSheetVeryHidden  '­È= 2 :vba ªº¤u§@ªíÁôÂÃ,»Ý¥Îvba ¨ú®ø¤u§@ªíÁôÂÃ