WPS office电子表格可以设定使用时间吗?

Question

比如使用设定一天之后自动锁定整个表格,有这个功能不?

Answer 1

没有现在的这个功能，不过用变通的办法，可以实现，不过任何手段都是可以被破解，只能说防不熟悉VBA的人可以，先需要下载安装VBA for wps，安装完毕后，按ALT+F11弹出VBA编辑器

然后双击左边的Thisworkbook，把以下代码复制进去：

Const pw = "123456"
'数字123456是默认的密码,根据个人修改

Const 使用时间 As Date = "2014-7-10 23:59:59"
'后面的日期和时间请根据需要修改
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Now > 使用时间 Then
  For Each sht In ThisWorkbook.Sheets
    If Not sht.ProtectContents Then
      sht.Protect Password:=pw, DrawingObjects:=True, Contents:=True, Scenarios:=True
      sht.EnableSelection = xlNoSelection
      
    End If
  Next
  If Not ThisWorkbook.Saved Then ThisWorkbook.Save
Else
  For Each sht In ThisWorkbook.Sheets
    If sht.ProtectContents Then sht.Unprotect Password:=pw
  Next
End If
End Sub

防止别人对这些代码进行更改或删除，在VBA编辑器菜单上点->工具->VBProject属性->"保护"选项卡里设置密码以及勾选"查看时锁定工程".

上面的代码大概功能:

每次激活任意的工作表时,判断当前日期是否超过2014-7-10 23:59:59,如果超过这个时间,把所有的工作表都设置为保护状态,不能进行编辑复制等等操作,只能看不能用

追问

VBA for wps收费不?

Answer 2

使用一天是什么意思啊？锁定又是什么意思？