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

[¤À¨É] Excelªº¤u§@ªí¥h¤F­þùØ¡H

[¤À¨É] Excelªº¤u§@ªí¥h¤F­þùØ¡H

¤u§@ªí³£¤£¨£¤F-sonny.rar (6.98 KB)
ss

¦b§Ú§É¤W¡K¶}ª±¯ºªº¡A¦]¬°§Ú¿n¤À¤£°÷¡A¨S¿ìªk¤U¸ü§Aªºªþ¥ó¡A§A¥i¥H¸Õ¸Õ¡y®æ¦¡¡z¡A¡y¤u§@ªí¡z¡A¡y¨ú®øÁôÂáz¡A¬Ý¬Ý§Aªº¤u§@ªí¬O§_³QÁôÂäF¡A¦pªG¤]¨S¦³ÁôÂ꺸ܡA¥i¯à´N¬O³Q¸j¬[¤F¡C

TOP

¦^´_ 2# owen06
  1. Option Explicit
  2. Sub Ex()
  3.     Dim W As Workbook
  4.     For Each W In Workbooks
  5.         If Application.Windows(W.Name).Visible = False Then   '¬¡­¶Ã¯ÁôÂäF
  6.             Application.Windows(W.Name).Visible = True        '¥i¤â°Ê¨ú®øÁôÂÃ
  7.             W.Sheets(2).Unprotect                             '²Ä2­Ó¤u§@ªí¦³«OÅ@
  8.         End If
  9.     Next
  10. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

Á`¦@¦³¨â­Ó¤u§@ªí®@...
ss

TOP

ÁÙ¬O¬d¬Ý³]©w¬O§_ÁôÂÃ

TOP

¦^´_ 5# sillykin
(1)À˵ø > ¨ú®øÁôÂõøµ¡   (2)®Õ¾\ > «OÅ@¬¡­¶Ã¯

sheet_hindden.gif (166.2 KB)

sheet_hindden.gif

TOP

¦^´_ 6# liao83

³Qµo²{¤F
ss

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD