¼ÐÃD: [¤À¨É] Excelªº¤u§@ªí¥h¤F­þùØ¡H [¥´¦L¥»­¶]

---

§@ªÌ: sunnyso    ®É¶¡: 2013-7-13 10:32     ¼ÐÃD: Excelªº¤u§@ªí¥h¤F­þùØ¡H

[attach]15412[/attach]

---

§@ªÌ: owen06    ®É¶¡: 2013-7-13 14:42

¦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

---

§@ªÌ: GBKEE    ®É¶¡: 2013-7-14 09:41

¦^´_ 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

---

§@ªÌ: sunnyso    ®É¶¡: 2013-7-14 15:04

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

---

§@ªÌ: sillykin    ®É¶¡: 2013-7-16 22:16

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

---

§@ªÌ: liao83    ®É¶¡: 2014-2-19 16:40

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

---

§@ªÌ: sunnyso    ®É¶¡: 2014-2-19 17:59

¦^´_ 6# liao83

³Qµo²{¤F

---

Åwªï¥úÁ{ ³Â»¶®a±Ú°Q½×ª©ª© (http://forum.twbts.com/)