请问各位大师EXCEL 输入信息后过了当天就不能更改

yjguanjian · 发表于 2024-8-23 21:42

如题，EXCEL 输入了资料后，除了当天可以更改，过后就不能更改要用什么方法才能实现

jaxxcyh · 发表于 2024-8-23 22:36

Private Sub Workbook_Open()
If Date > 2024 / 8 / 22 Then
Sheet1.Protect Password:="1234"
MsgBox "sheet1超过2024/8/22已被保护，无法修改，sheet2不受影响"
End If
End Sub

复制代码

jaxxcyh · 发表于 2024-8-23 22:39

Private Sub Workbook_Open()
If Date > 2024 / 8 / 22 Then
Sheet1.Protect Password:="1234"
MsgBox "sheet1超过2024/8/22已被保护，无法修改，sheet2不受影响"
End If
End Sub

周土豆 · 发表于 2024-8-23 22:51

你试一下工作表事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
选择时，当前单元有值时，就不可更改

yjguanjian · 发表于 2024-8-26 21:35

jaxxcyh 发表于 2024-8-23 22:36

谢谢好像不行，我试了一下

yjguanjian · 发表于 2024-8-26 21:51

请帮忙看看是怎么样才能实现，如题

yjguanjian · 发表于 2024-8-26 21:52

周土豆发表于 2024-8-23 22:51
你试一下工作表事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
选择时，当前单元有 ...

请帮忙，我下面发了个附件

jaxxcyh · 发表于 2024-8-26 22:40

yjguanjian 发表于 2024-8-26 21:35
谢谢好像不行，我试了一下

你是26号测试的，我代码里写的超时日期是22号，所以比较结果肯定是超时了，当然不能编辑了。
如果你想今天能编辑，过了今天就不能编辑的话，就要修改代码中的哪个时间，变成今天的时间。
如果你想9月1日以后就不能编辑了，那就把超时时间改为 2024/8/31

ynzsvt · 发表于 2024-8-27 06:43

只能当前修改，第二天后就不能修改，除非破解工作表保护。

lcs_2046 · 发表于 2024-8-27 07:52

Datediff>1

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

[求助] 请问各位大师EXCEL 输入信息后过了当天就不能更改