能限制EXCEL的打开次数吧？

abcttud123

试了，运行不了啊!

zyhui1961

4楼、6楼、8楼

galaxychan890

987654321 发表于 2012-5-6 16:16
可以用VB做一个调用EXCEL的文件

lxmihui提的是个好问题， 宏的安全级别高的话 就无法运行上面的代码，    这位高手说的用vb做个调用，不知道怎么解决，能写个具体的代码不？ 或者做个例子看看效果。

yuliangexcel

这段代码能否做成.dll?

小舟3588

能不能给一个不要任何提示的代码，即50次以后自动删除，不提示，谢谢!

hardafay

小舟3588 发表于 2013-2-11 14:48
能不能给一个不要任何提示的代码，即50次以后自动删除，不提示，谢谢!

取消两行MsgBox就行

hardafay

987654321 发表于 2012-5-6 16:16
可以用VB做一个调用EXCEL的文件

请问如何做？谢谢！

987654321

用这个试试看

987654321

hardafay 发表于 2013-2-25 14:33
请问如何做？谢谢！

一、启动Visual Basic6.0
    启动Visual Basic6.0就像启动任何Windows可执行程序一样，可选择某种方式来启动。
    ◆可从开始菜单运行Visual Basic6.0中文版集成开发环境。
    ◆可在桌面上为Visual Basic6.0中文版创建一个快捷方式，双击它即可运行。

二、创建应用程序启动界面
    创建Visual Basic应用程序启动界面有四个主要步骤：创建界面窗体、设置属性、编写代码、运行测试。为了说明这一实现过程，请按以下步骤进行操作。

1、创建界面窗体
建立Visual Basic应用程序界面的第一步是创建界面窗体，然后在创建的窗体上绘制构成界面的对象。
①设置窗体的背影图片Picture属性。
②用pictureBox画一个控件，设置其ScaleHeight为4575，ScaleWidth为1500。
③用Label控件在图体上添加文字。
④在工程属性窗口中，单击“工程1”，在属性中修改工程“名称”。
2、设置属性
Alignmet设定文本对象的对齐方式
Backstyle指出Label或shape的背景是否透明
Backcolor设置对象中文本和图形的背景色
Borderstyle=0-none  去掉窗体的标题栏
Icon设定窗体编辑后的图标
Startuppoinio=2将启动封面始终悬挂屏幕中部
ScaleHeigth设定对象的高度
ScaleWidth设定对象的宽度
Picture设定窗体或控件中的图片
3、添加代码
①首先添加Timer控件
②设定Timer控件的Interval的属性为1000，该属性是调用Timer控件事件间隔的时间（毫秒）。
③添加如下代码：
Private Sub Timer1_Timer()
Dim Exl As Object
Set Exl = CreateObject(“Excel.Application”)
Exl.Workbooks.Open (App.Path & “\” & “dd.xls”)
Exl.Visible = True
Unload Me
End Sub
4、运行测试
在应用程序窗体创建完成以后，就可以运行测试了，可以用如下几种方式开始程序的执行：单击运行菜单中的“启动”或按“F5”键，运行以后，将看到窗体设计器消失，并且由实际的窗体取代。
如果要退出运行，请单击运行菜单中的“结束”命令。
三、生成可执行文件
在程序开发期间，需要创建可执行程序（.EXE）,因为编译程序通常比解释程序搪行快，用户不需要安装Visual Basic就可运行程序，通常可防止其他人偷看程序源代码。Visual Basic使得编译过程非常轻松，当程序编写完成后，只需要在“文件”菜单中执行“生成工程”命令。
    四、保存工程
    从“文件”菜单中选取“保存工程”命令来结束本次创建应用程序界面的工作。Visual Basic将分别提示保存窗体和保存工程。

sunny_8848

987654321 发表于 2009-5-31 11:40
term = 50 '限制使用50次

没有运行之前,想设置使用次数的值,可以更改以上代码值

请问要查看软件是否已经注册，一般要查找注册表的哪个位置？