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

[µo°Ý] ¦p¦ó³æ¿WÁôÂåثe¶}±ÒÀɮתº¤u§@¦C¤Îª¬ºA¦C

[µo°Ý] ¦p¦ó³æ¿WÁôÂåثe¶}±ÒÀɮתº¤u§@¦C¤Îª¬ºA¦C

·Q½Ð°Ý¦U¦ì¥ý¶i¡A¤p§Ì¦³¤@²ÕÁôÂäu¨ã¦C¤Îª¬ºA¦CªºVBA»yªk(¦pªþ¥ó)¡A¥i¬O³o»yªk¦b¨Ï¥Î®É·|³y¦¨©Ò¦³EXCEL¶}±Ò®É¤u¨ã¦C¤Îª¬ºA¦C³£³QÁôÂáA¦]¦¹·Q½Ð°Ý¬O§_¦³¿ìªkÅýÁôÂ꺥\¯à¥u­­©ó¥Ø«eªº¬¡­¶Ã¯¡A¶}±Ò¨ä¥L¬¡­¶Ã¯®É¤´ºû«ù¥¿±`ª¬ºA

ÁôÂÃEXCEL¤u¨ã¦C.rar (14.81 KB)
§A²q!!

·PÁ¤j¤jªºÀ°¦£
§A²q!!

TOP

¦^´_ 1# bear0925900003

¸Õ¸Õ¬Ý
Workbook¨Æ¥ó
  1. Option Explicit
  2. Private Sub Workbook_Open()
  3.     hideAll
  4. End Sub
  5. Private Sub Workbook_Activate()
  6.      hideAll
  7. End Sub
  8. Private Sub Workbook_Deactivate()
  9.     reSet
  10.     Application.WindowState = xlNormal
  11. End Sub
  12. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  13.     If Not canClose Then
  14.         Cancel = True
  15.     Else
  16.         reSet
  17.         Application.WindowState = xlNormal
  18.     End If
  19. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD