ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 5825|回复: 14

[求助] 这个文件明显有vba代码,没有加密,怎么看不到代码

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-8-13 09:02 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:宏表
这里有一个文件,
明显有vba代码,窗体
工程也也没有加密
可是怎么看不到代码
是怎么回事呀

creditv3.rar

89.07 KB, 下载次数: 341

点评

知识树索引内容:不错的表格,老外做的。附件在7楼  发表于 2013-9-25 21:38

TA的精华主题

TA的得分主题

发表于 2009-8-13 15:47 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
绝对高手,把宏表运用的很好,我是没学这个

TA的精华主题

TA的得分主题

发表于 2009-8-13 17:05 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
这个怕是微软的员工写的
哈哈
看不懂

TA的精华主题

TA的得分主题

发表于 2009-8-13 17:08 | 显示全部楼层
很早以前都是这么用的,vba之前,0之后因由他独特好处才被保留

TA的精华主题

TA的得分主题

发表于 2009-8-13 17:17 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-8-13 18:33 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
这个是另一种语言,是用 Excel 4.0 宏语言(XLM 宏)编写的宏,当然看不到了啊!

TA的精华主题

TA的得分主题

发表于 2009-8-13 18:50 | 显示全部楼层
对宏表感兴趣的,自己研究,注意里面还定义了一些名称:
jVisacard.rar (85.62 KB, 下载次数: 296)

TA的精华主题

TA的得分主题

发表于 2013-6-6 18:10 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-6-6 18:51 | 显示全部楼层
当习惯于用电脑进行计算后,某一天发现有人用算盘计算出复杂的算术题,于是惊叹,绝对高手居然不用电脑可以算出复杂的算术题。

TA的精华主题

TA的得分主题

发表于 2013-9-25 21:36 | 显示全部楼层
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()
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-6-12 22:30 , Processed in 0.034786 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表