这个文件明显有vba代码，没有加密，怎么看不到代码

greenfarmer

这里有一个文件，
明显有vba代码，窗体
工程也也没有加密
可是怎么看不到代码
是怎么回事呀

thtfzhaobo

绝对高手，把宏表运用的很好，我是没学这个

lj_jzp

这个怕是微软的员工写的
哈哈
看不懂

thtfzhaobo

很早以前都是这么用的，vba之前，0之后因由他独特好处才被保留

fiera

高手，真看不懂呀！

xbzg1996

这个是另一种语言，是用 Excel 4.0 宏语言（XLM 宏）编写的宏，当然看不到了啊！

extyg

对宏表感兴趣的，自己研究，注意里面还定义了一些名称：
jVisacard.rar (85.62 KB, 下载次数: 296)

2009-8-13 18:50 上传

点击文件名下载附件

yutiger0

高手啊！什么都看不到！
要努力学习

maditate

当习惯于用电脑进行计算后，某一天发现有人用算盘计算出复杂的算术题，于是惊叹，绝对高手居然不用电脑可以算出复杂的算术题。

liucqa

Credit Card Payment Program
Version 3.3 © 1998-2006

About
=ECHO(FALSE)
=ACTIVATE("Program")
=FORMULA("#N/A",$H$9)
=DIALOG.BOX($B$4:$H$9)
=IF($A$5=3,,GOTO($A$9))
=RUN(Register)
=GOTO($A$4)
=RETURN()

Register
=ECHO(FALSE)
=FORMULA("",$H$21)
=FORMULA("",$H$22)

=DIALOG.BOX($B$14:$H$22)
=IF($A$16=4,GOTO($A$58),)
=IF($A$16=3,,GOTO($A$16))

Register
=IF(OR(ISBLANK($H$21)=TRUE,TRIM($H$21)=""),,GOTO($A$26))
=BEEP()
=ALERT("You must enter in your name !",3)
=GOTO($A$16)

=IF($H$22=$G$12,GOTO($A$44),)
=SET.VALUE($A$30:$A$32,0)
=SET.VALUE($A$34,0)
=WHILE($A$30<LEN($H$21))
=$A$30+1
=$A$31&CODE(MID($H$21,$A$30,1))
=LEFT($A$32,$H$12)+LEFT(MID($A$31,$A$30,100),$H$12)
=NEXT()
=$A$32
=IF(LEN($A$34)<$H$12,,GOTO($A$38))
=SET.VALUE($A$30,0)
=GOTO($A$29)
=MID($A$34,1,3)&"-"&MID($A$34,4,3)&"-"&MID($A$34,7,3)&"-"&MID($A$34,10,3)&"-"&MID($A$34,13,3)
=IF($H$22=$A$38,GOTO($A$44),)
=BEEP()
=ALERT("Incorrect Registration Code !",3)
=GOTO($A$16)

Registered
=FORMULA(203,$B$17)
=FORMULA(206,$B$21)
=FORMULA(223,$B$22)
=FORMULA(20,$F$22)
=FORMULA("",$H$22)
=FORMULA("",$A$13)
=FORMULA(" Registered Version   (Registered to: "&$H$21&")",$J$6)
=FORMULA(" Thank you for registering this program. For any additional questions or help, please",$J$7)
=FORMULA(" contact me by email. You can also visit my web site periodically for new and",$J$8)
=FORMULA(" updated programs. Web Site: http://sam308.com",$J$9)
=SAVE()
=BEEP()
=ALERT("Registration Complete, Thank You !",2)
=RETURN()

Auto_Open Macro
Turns off the ON.RECALC function
=ECHO(FALSE)
=ON.RECALC(,"Info")
=RETURN()

Auto_Close Macro
Turns off the ON.RECALC function
=ECHO(FALSE)
=ON.RECALC()
=RETURN()