[µo°Ý] ¦p¦ó¥[±K®ÉÁôÂÃ?(ÁÂÁ¨â¦ì¤j¤j©âªÅÀ°¦£~§¹¦¨)

av8d

¥Ø«e§Úªº¤u§@ªí¤W¦³
TextBox1
CommandButton1
CommandButton2
CommandButton3
CommandButton4

CommandButton1~3 ­è¶}©l¬OÁôÂêº
CommandButton4«h¬OTextBox1¿é¤J±K½X«á«ö¤Uªº«ö¶s
·íTextBox1¤ºªº±K½X¿é¤J¥¿½T®É¡AÅã¥ÜCommandButton1~3
·íTextBox1¤ºªº±K½X¿é¤J¥¿½T®É¡AÁôÂÃCommandButton1~3

GBKEE

¦^´_ 7# av8d
¦]¬°¦pªGª¬ºA¥»¨­ÁôÂÃ~¦A½Ð¥LÁôÂä@¦¸~«h·|¥X²{¿ù»~!
ÅÞ¿è¤W ¤£¤Ó¹ï®@ , ¥i½Ð2003ª©¥H¤WªÌ¸Ñ´b.

av8d

¦^´_ 6# GBKEE


§ä¨ì°ÝÃDÂI¤F~

    For i = 1 To 3
        ActiveSheet.OLEObjects("CommandButton" & i).Visible = False
    Next

¦p¦ó±N¥H¤W§PÂ_CommandButton1~3¥Ø«eªºª¬ºA
¦]¬°¦pªGª¬ºA¥»¨­ÁôÂÃ~¦A½Ð¥LÁôÂä@¦¸~«h·|¥X²{¿ù»~!

GBKEE

¦^´_ 5# av8d
2003ª©¤¤¥i¥¿±`°õ¦æ°Ú

av8d

¦^´_ 4# GBKEE


    ¦A¦¸·PÁÂG¤j¦£¸Ì©âªÅÀ°¦£~¤w¸g§¹¦¨

GBKEE

¦^´_ 3# av8d
©JÀɤ~¬Ý²M·¡°ÝÃD­þ

av8d

¦^´_ 2# Hsieh


¬O¦]¬°³o­Ó­ì¦]¶Ü?
Private Sub Workbook_Open()
    Sheets("Index").Select
    ActiveSheet.OLEObjects("Textbox1").Activate
End Sub
©Î¬O¦]¬°³o­Ó­ì¦]
  For Each Sh In Sheets
     If Sh.Name <> "Index" Then Sh.Visible = False Else Sh.Visible = True
  Next


¥Ñ©ó³£·|¥X²{¿ù»~°T®§"¦¹³B»Ý­nª«¥ó"
§R°£¥H¤W¨â­Ó­ì¦]§Y¥i~¥i¬O¥H¤W¨â­Ó­ì¦]¬O¥²¶·ªº!

Hsieh

¦^´_ 1# av8d

1. Private Sub CommandButton4_Click()
   
2. If TextBox1 <> "12345" Then
   
3. For i = 1 To 3
   
4.    OLEObjects("CommandButton" & i).Visible = False
   
5. Next
   
6. Else
   
7. Me.OLEObjects.Visible = True
   
8. End If
   
9. End Sub

½Æ»s¥N½X