excel文档怎样设置限制打开次数？

限制工作簿的使用次数，超过次数就自我删除，也不失为保护作品的一种好方法。但这种方法需要修改注册表。

代码如下：

Private Sub Workbook_Open()

Dim counter As Long, term As Long, chk

chk = GetSetting("hhh", "budget", "使用次数", "")

If chk = "" Then

term = 50 ' 限制使用50次

MsgBox "本工作簿只能使用" &term &"次" &vbCrLf &"超过次数将自动销毁!", vbExclamation

SaveSetting "hhh", "budget", "使用次数", term

Else

ounter = Val(chk) - 1

MsgBox "你还能使用" &counter &"次,请及时注册!", vbExclamation

SaveSetting "hhh", "budget", "使用次数", counter

If counter <= 0 Then

DeleteSetting "hhh", "budget", "使用次数"

killme

End If

End If

End Sub

Public Sub killme()

Application.DisplayAlerts = False

ActiveWorkbook.ChangeFileAccess xlReadOnly

Kill ActiveWorkbook.FullName

ThisWorkbook.Close False

End Sub

将上述程序复制到工作簿的ThisWorkbook对象模块中，保存文件即可。

在手机设置的“安全和隐私”选项中取消即可。

1、在手机桌面上找到“设置”，打开设置。如下图所示：

2、找到里面的“安全和隐私”并打开。如下图所示：

3、找到”隐私保护“点击进去。如下图所示：

4、看到”访问限制“选项， 关闭即可取消访问限制。如下图所示：

---