(·PÁ¤j¤j̨ó§U§¹¦¨)¦p¦ó±Æ°£~·íµ{¦¡«Ø¥ß©ó~¶}±Ò®É¼g¤J~¨C¦¸Ãö³¬³£·|°Ý¬O§_nÀx¦s
- ©«¤l
- 710
- ¥DÃD
- 280
- ºëµØ
- 0
- ¿n¤À
- 1016
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2025-1-19
|
(·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? |
|
|
|
|
|
|