GBKEE

¦^´_ 1# yangjie

¨S¦³¥d¦í
UserForm9 ­×¥¿¤@¤U

1. Private Sub UserForm_Initialize()
   
2.     With TextBox1
   
3.         .PasswordChar = "*" '¤£Åã¥Ü ¯u¥¿¿é¤Jªº¦r¤¸
   
4.         'PasswordChar ÄÝ©Ê «ü©w¬O§_Åã¥Ü¨ä¥¦¦r¤¸ªº¹w¯d¦ì¸m¡A¦Ó«DÅã¥Ü¹ê»Ú¤W¿é¤J TextBox ¤¤ªº¦r¤¸¡C
   
5.         'ª`·N:¥u¦b­^¤å¼Ò¦¡¤U¦³®Ä(¼Æ¦r,­^¤å)
   
6.         .SetFocus
   
7.     End With
   
8. End Sub
   
9. Private Sub CommandButton1_Click()
   
10.     If TextBox1 = "520" Then
    
11.         Unload Me
    
12.         UserForm1.Show
    
13.     ElseIf Len(TextBox1) > 0 Then
    
14.         Dim n%
    
15.         Dim V&
    
16.         Application.Visible = True
    
17.         For V = 1 To ActiveWorkbook.Sheets.Count
    
18.             If Sheets(V).Name <> "­º­¶" Then
    
19.                 Sheets(V).Visible = False
    
20.             End If
    
21.         Next V
    
22.         Unload Me
    
23.         Application.DisplayAlerts = False
    
24.         ActiveWorkbook.Save
    
25.         n = 0
    
26.         For Each w In Windows
    
27.           If Right(w.Caption, 4) = ".xls" Or Right(w.Caption, 5) = ".xlsx" Then n = n + 1
    
28.         Next
    
29.         If n < 2 Then
    
30.             ActiveWindow.Close
    
31.             Application.Quit
    
32.         Else
    
33.             Call DeleteMenu
    
34.             With ActiveWorkbook
    
35.                 .Close True
    
36.             End With
    
37.         End If
    
38.     Else
    
39.        MsgBox "¨S¿é¤J±K½X"
    
40.         TextBox1.SetFocus
    
41.     End If
    
42. End Sub

½Æ»s¥N½X