fieldset{padding:10px;}
请问如何给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第一个青春是上帝给的;第二个的青春是*自己努力的