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

(·PÁ¤j¤j­Ì¨ó§U§¹¦¨)¦p¦ó±Æ°£~·íµ{¦¡«Ø¥ß©ó~¶}±Ò®É¼g¤J~¨C¦¸Ãö³¬³£·|°Ý¬O§_­nÀx¦s

(·PÁ¤j¤j­Ì¨ó§U§¹¦¨)¦p¦ó±Æ°£~·íµ{¦¡«Ø¥ß©ó~¶}±Ò®É¼g¤J~¨C¦¸Ãö³¬³£·|°Ý¬O§_­nÀx¦s

¥»©«³Ì«á¥Ñ av8d ©ó 2012-6-29 16:17 ½s¿è

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    For Each Sh In Sheets
    If Sh.Name <> "Index" Then Sh.Visible = False
End Sub

Private Sub Workbook_Open()
    Sheets("Index").Select
    For i = 1 To 4
        ActiveSheet.OLEObjects("CommandButton" & i).Visible = False
    Next
   
    ActiveSheet.OLEObjects("Textbox1").Activate
End Sub

·íµ{¦¡«Ø¥ß©ó~¶}±Ò®É¼g¤J~¨C¦¸Ãö³¬³£·|°Ý¬O§_­nÀx¦s~¬O§_¥i¥HÅý¥L¦Û°Ê§PÂ_~©Î¬O¨ä¥L¤èªk?

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD