如何用VBA编写限制时间的使用
答案:1 悬赏:80 手机版
解决时间 2021-03-05 03:51
- 提问者网友：我是我
- 2021-03-04 16:20
如何用VBA编写限制时间的使用
最佳答案
- 五星知识达人网友：鱼芗
- 2021-03-04 17:44
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
rem 代码功能：打开工作簿40分钟后，对工作表进行加密保护：密码mPwd
rem 以下代码，放到thisworkbook代码窗格中
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If sh.ProtectContents Then sh.Unprotect "mPwd"
Next
Application.OnTime Now + TimeValue("0:40:00"), "abc"
End Sub
rem 以下代码，放到模块中
Sub abc()
Dim sh As Worksheet
application.DisplayAlerts=false
For Each sh In ThisWorkbook.Worksheets
If Not sh.ProtectContents Then sh.Protect "mPwd"
Next
thisworkbook.save
application.DisplayAlerts=true
End Sub
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
rem 代码功能：打开工作簿40分钟后，对工作表进行加密保护：密码mPwd
rem 以下代码，放到thisworkbook代码窗格中
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If sh.ProtectContents Then sh.Unprotect "mPwd"
Next
Application.OnTime Now + TimeValue("0:40:00"), "abc"
End Sub
rem 以下代码，放到模块中
Sub abc()
Dim sh As Worksheet
application.DisplayAlerts=false
For Each sh In ThisWorkbook.Worksheets
If Not sh.ProtectContents Then sh.Protect "mPwd"
Next
thisworkbook.save
application.DisplayAlerts=true
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯