（宏表）禁用宏（包括ctrl+shift）则自杀

excel333

ppl123 发表于 2011-11-17 22:39
你好，我想要一个禁用宏（包括ctrl+shift）则自杀的附件（和1楼一样的功能的），能帮我作一个，代码不要删 ...

使用宏表的人已经不多了吧，它在2007、2010已经不用了！下面是宏表中的代码：


禁用宏  auto_open
  =ERROR(FALSE)
  =SET.VALUE($A$35,(GET.DOCUMENT(2)&"\"&GET.WORKBOOK(16)))
  =WORKBOOK.HIDE("aaa")
  =WORKBOOK.UNHIDE("sheet1")
  =WORKBOOK.UNHIDE("sheet2")
  =ACTIVATE("sheet3")
  =SET.VALUE(A37,GET.WORKBOOK(38))
  =RUN("No")
  =RETURN()
  
  AUTO_CLOSE
  =ERROR(FALSE)
  =SET.VALUE(A37,"")
  =WORKBOOK.HIDE("aaa")
  =WORKBOOK.HIDE("sheet1")
  =WORKBOOK.HIDE("sheet2")
=ERROR(FALSE) No =SAVE()
=IF(A35=A36) =ON.KEY("%{f11}","") =RETURN()
=FILE.DELETE($A$35) =ON.KEY("%{f8}","")
=QUIT() =ON.KEY("{esc}","") =ERROR(FALSE)
=RETURN() =ON.KEY("^{BREAK}","") =ALERT("抱歉，你没有权限编辑此宏表，文件将自毁。",3)
=ELSE() =ON.KEY("^{SCROLLLOCK}") =RUN(A18)
=FILE.DELETE(A35) =ON.KEY("%^{q}", "jiashu") =RETURN()
=FILE.DELETE(A36) =RETURN() =ERROR(FALSE)
=QUIT()  =IF(A37="sheet3")
=RETURN()  WORKBOOK.HIDE("aaa")
=END.IF()  =RETURN()
  =ELSE()
=ERROR(FALSE)  =SET.VALUE($A$36,(GET.DOCUMENT(2)&"\"&GET.WORKBOOK(16)))
=FILE.DELETE(A35)  =HIDE()
=QUIT()  =IF(ALERT(B36, 1),QUIT(),RUN(A18))
=RETURN()  =RETURN()
  =END.IF()
C:\Documents and Settings\888\桌面\Book1.xls  =END.IF()
"禁用宏就意味着放弃使用本文件，预继续使用請按“確定”重新运行
并启用宏，不使用請按“取消”，本文件将自毁。抱歉！祝你好运！"
Sheet3 ALERT("你用shift组合键禁用了宏，禁用宏就意味着放弃对本文件的使用，抱歉！祝你好运！",2)

ppl123

excel333 发表于 2011-11-17 23:28
使用宏表的人已经不多了吧，它在2007、2010已经不用了！下面是宏表中的代码：

这个是宏表的代码，那么在VBA中怎么用，能告诉我吗，谢谢

王永谦

抱歉！很久没来了。所有短消息这里一并作答，马上做个有注释的参考吧。

王永谦

虽然没什么大用了，但如果由于某些原因只希望自己的工作簿用于2003可以把很多东西写在宏表中（比如公式、比如某部分vba代码）以限制其他版本使用，当然也没什么大用，权当玩儿玩儿吧

liucqa

宏表不是VBA

joyark

謝謝提供學習............下載了