[µo°Ý] ¦h¤@­Óif ¿ï¾Ü¡A¦h¶¤@­Óuserform´N¥d¦í¤F¡A½Ð±Ð¡C

yangjie

¥X¯Ê¶Ôº[¼úÃgµn¿ý.rar (800.17 KB)

¤U¸ü¦¸¼Æ: 8

2014-6-23 10:16

½Ð±Ð½Ñ¦ì¤j¤j
Private Sub Workbook_Open()
    Dim FileName As String
    Dim str1 As String
    str1 = Sheets("°ò¥»¸ê®Æ").Cells(1, 1) & Sheets("°ò¥»¸ê®Æ").Cells(1, 2)
    FileName = ThisWorkbook.Path & "\¸ê®Æ®w\" & str1 & "¾Ç´Á¸ê®Æ®w\" & str1 & "¾Ç´Á¸ê®Æ.xls"
    str2 = ThisWorkbook.Name
    Dim fsobj As Object
    Set fsobj = CreateObject("Scripting.FileSystemObject")
    If fsobj.FileExists(FileName) Then
    Else
        MsgBox "§ä¤£µÛ" & FileName
    End If
    Call MakeMenu
    Application.Visible = False
    'If Left(str2, 8) = "¥X¯Ê¶Ôº[¼úÃgµn¿ý" Then
    '    UserForm9.Show
    'Else
        UserForm1.Show
    'End If
End Sub
¶i¤JUserForm1    ÂI  "ºÞ²zªÌ"«ö¶s   µ¹¤F¥¿½T±K½X"520"  ¥¿±`
                                ÂI  ²Ä¤G­Ó«ö¶s   µ¹¤F¥¿½T±K½X"1234"  ¥¿±`
¤@¤Á¥¿±`
­Y§ï¦¨
    If Left(str2, 8) = "¥X¯Ê¶Ôº[¼úÃgµn¿ý" Then
        UserForm9.Show
    Else
        UserForm1.Show
    End If
µM«á¶i¤JUserForm9µ¹¤F¥¿½T±K½X"520"   
¶i¤JUserForm1    ÂI  "ºÞ²zªÌ"«ö¶s   µ¹¤F¥¿½T±K½X"520"  «oµLªkRun
                                ÂI  ²Ä¤G­Ó«ö¶s   µ¹¤F¥¿½T±K½X"1234"  ¤]µLªkRun
¥d¦í¤F    ¤]¤£ª¾¹D¿ù¦b­þ¸Ì
¨D±Ï ¨D±Ï

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

yangjie

¦^´_ 2# GBKEE
¤Ó¼F®`¤F
ÁÂÁÂGBKEE   
With TextBox1
        .PasswordChar = "*"  
        .SetFocus
End With
¦h¾Ç¤@©Û