ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD