如何设置Excel文件的使用期限，一年或100次、500次等等？

Question

本人新手想设置某一个Excel文件的使用期限，就像软件一样，让别人在使用自己设定的时间之内可以用，过了设定的时间后，别人就无法使用了。只能向我索要密码后，才能继续使用。具体要求如下：1、首先，当别人打开该文件后，显示该文件的使用倒计时。2、当该文件每次到期后，显示："请输入密码："，若密码正确，显示："密码正确，可以继续使用！"，若密码错误，显示："密码错误，请与管理员联系！"。3、密码一次性设置好（如：设置10年或者20年，或者1000次、10000次），在使用期限内，密码只能使用一次，到期后，需要输入下一个密码，而且也是只能使用一次，以此类推。4、该文件到期后，不需要自动删除该文件。最好每步骤后都有说明，便于下次修改。望高手给予指点，为谢！

Answer 1

1、首先打开要进行加密的Excel文件。

2、然后点击左上角的文件。

3、接着选择信息，点击保护工作簿下拉框。

4、再点击用密码进行加密。

5、最后输入密码点击确定后再次确定密码即可。

注意事项：

Office常是制作文档文件的标准，而且有一些其他产品不存在的特性，但是其他产品也有Office缺少的特性。自从Microsoft 2007 Office System开始，有一个和以前版本差异很大的用户界面，该界面被称为Ribbon界面，并沿用在Microsoft Office 201中。

Answer 2

1、首先打开电脑，然后键盘上按win +x弹出如下窗口。

2、接着鼠标单击windows powershell（管理员）选项。

3、来到命令执行窗口。

4、"C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS" /dstatus在输入查看输入命令，然后回车。

5、等待程序执行完毕，下拉列表就能看到office剩余使用时间。

Answer 3

这要用到VBA，复制这段代码到 Thisworkbook 表格另存为【启用宏的工作簿】
Private Sub Workbook_Open()
Dim counter As Long, term As Long, chk
chk = GetSetting("hhh", "budget", "使用次数", "")
If chk = "" Then
term = 100
MsgBox "本工作簿只能使用" & term & "次" & vbCrLf & "超过次数将自动销毁!", vbExclamation
SaveSetting "hhh", "budget", "使用次数", term
Else
counter = 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

Answer 4

如果我的excel禁用了宏，你能让我打开带宏的excel时自动启用宏，那我可以帮你写你要的代码，如果你做不到，那给你写好代码，下次你也不会修改，自已写代码不一定每一步都写说明，我的EXCEL是2007版本

追问

你好！麻烦你给我写一个自动启用宏的代码，好吗？ 谢谢！

追答

自动运行宏

Answer 5

EXCEL无非是用宏实现，如果人家电脑没有开启宏，那代码根本就无效。一般都不开启的。所以你的设想基本没用。