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

[µo°Ý] ¦sÀɮɡA¿ù»~°T®§1004¡A'save'¤èªk('_WorkBook'ª«¥ó)¥¢±Ñ

[µo°Ý] ¦sÀɮɡA¿ù»~°T®§1004¡A'save'¤èªk('_WorkBook'ª«¥ó)¥¢±Ñ

¹Ï¤@.png     ¹Ï¤G.png      
¦U¦ì¥ý¶i~
¥H¤UCode¬°¦bÃö³¬excelÀɮɡA¯àÅý¬¡­¶Ã¯¦sÀɪºµ{¦¡½X¡A¤@¯ëoffice2003or 2007ª©¥»³£¯à¥¿±`¹B§@
¦ý¬O²{¦b¦³­Ó©_©Ç²{¶H¡A¦b¬Yuser¹q¸£¤U°õ¦æ®É¡A§Y·|¥X²{¿ù»~°T®§¡A¦p¹Ï¤@»P¹Ï¤G¡A¤£ª¾¸Óuser¬O§_­þ¸Ì³]©wªº°ÝÃD¾É­P
ÁÙ±æ¥ý¶i­Ìµ¹¤©«üÂI~ÁÂÁ¤j®a!!
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2.   Worksheets("Login").Visible = True
  3.     k = Application.CountA(Sheet10.Range("A1:A50"))  '²Î­p¤£¬OªÅ¥ÕªºÀx¦s®æ¡A¥H¤Î¤Þ¼Æ²M³æ¤ºªº¼Æ­È¡C
  4.     For I = 1 To k
  5.         X = Sheet10.Cells(0 + I, 1)
  6.         Worksheets(X).Visible = xlSheetVeryHidden  'ÁôÂêºSheet
  7.     Next
  8.     ActiveWorkbook.Save
  9. End Sub
½Æ»s¥N½X

¦^´_ 1# chi830

§Ú¬d¨ì­ì¦]¬°¦ó¤F¡A­ì¥»¬O§âÀɮשñ¦b¦@¨É°Ï¡AÅý©Ò¦³user§Q¥ÎºôªÚ³s½uµn¤J¾Þ§@¡A
©Ò¥H¥u­n±N¸Óµn¤J±b¸¹ªº¦w¥þ©Ê¡A¤£¯à¥u³]­×§ïÅv­­¡A¦P®É¤]À³¦³¼g¤JÅv­­¤~¦æ

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD