工作表密码定时解除问题？

风雨相随3 · 发表于 2018-4-3 18:23

老师们：用VBA为一工作表设置密码，然后到指定日期自动解除？

朱荣兴 · 发表于 2018-4-3 21:35

提示: 作者被禁止或删除内容自动屏蔽

风雨相随3 · 发表于 2018-4-4 07:08

本帖最后由风雨相随3 于 2018-4-4 07:10 编辑

是，只保密一段时间，过时就不用保密了。谢谢老师的回复！

1249994139 · 发表于 2018-4-4 11:52

"2018-4-15 11:30:00"后，则自动解锁，详见附件。

风雨相随3 · 发表于 2018-4-4 19:54

过时之后，关闭再打开，还是提示要输密码，输密码关闭，再次打开还要求输密码。

yaozong · 发表于 2018-4-4 20:11

风雨相随3 发表于 2018-4-4 19:54
过时之后，关闭再打开，还是提示要输密码，输密码关闭，再次打开还要求输密码。

Private Sub Workbook_Open() '指定日期时间后，自动解除工作表保护
  With Sheets("Sheet1")
If Now() <= CDate("2018-4-15 11:30:00") Then
   .Protect Password:="123456"
Else
   .Protect AllowFiltering:=True
   .Unprotect
End If
  End With
End Sub

		自动登录	找回密码
密码			免费注册

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-4-3 21:35 来自手机 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] 工作表密码定时解除问题？