当前位置: 代码迷 >> VBA >> 请教怎么给VBA编写的程序设置某种权限
  详细解决方案

请教怎么给VBA编写的程序设置某种权限

热度:10070   发布时间:2013-02-26 00:00:00.0
请问如何给VBA编写的程序设置某种权限?
我利用WORD/VBA编了一个程序。如果我想给该程序设置某种权限,比如使其在运行过10次或20次之后可以锁死,或者自动自我删除,该如何编写代码呢?
请高手不吝指教,谢谢。

------解决方案--------------------------------------------------------

lz 具体操作步骤如下:
打开word文档------按alt+F11打开编程界面------打开你的文档所对应的project
-------双击下面的Thisdocument--------将下面的代码拷入----保存----ok

如果你想更改打开的次数可以将下面代码中出现的5进行替换.....

VB code
Private Sub Document_Open()  '每当打开此文档时就执行...Dim avar As VariableDim abool As BooleanFor Each avar In ActiveDocument.Variables   If avar.Name = "限次" Then       abool = True       avar.Value = avar.Value + 1       Exit For   End IfNext avarIf abool = False Then    ActiveDocument.Variables.Add Name:="限次", Value:=1  '新建文档变量ElseIf avar.Value > 5 Then    MsgBox "你已经达到了5次,将会关闭"    ActiveDocument.Save    ActiveDocument.CloseEnd IfActiveDocument.SaveEnd Sub
  相关解决方案