[已解决]如何才能输入数据当天可改，隔日不可改，除非有密码

exjyahz

老师好！
       附件是在论坛搜到的，但只能对Sheet1表有效，如何对所有工作表都有效呢？
       请老师帮忙！   
       谢谢您老师！
       附件 - 副本 (1030).rar (17.13 KB, 下载次数: 21)

2017-10-30 08:39 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

0126

2017-10-30 09:23

Public Sub Worksheet_Activate()
    Dim Rng As Range, sh As Object
    For Each sh In Sheets
    With sh
         .Unprotect Password:="123"
         .Unprotect
         .Columns("A:I").Locked = False
         For Each Rng In .Range("A1:A" & .Range("A65536").End(3).Row)
            If Rng.Value < Date Then .Cells(Rng.Row, "A").Resize(, 9).Locked = True
         Next
         .Protect Password:="123"
    End With
    Next
End Sub

跳转到最佳答案楼层

0126

Public Sub Worksheet_Activate()
    Dim Rng As Range, sh As Object
    For Each sh In Sheets
    With sh
         .Unprotect Password:="123"
         .Unprotect
         .Columns("A:I").Locked = False
         For Each Rng In .Range("A1:A" & .Range("A65536").End(3).Row)
            If Rng.Value < Date Then .Cells(Rng.Row, "A").Resize(, 9).Locked = True
         Next
         .Protect Password:="123"
    End With
    Next
End Sub

exjyahz

0126 发表于 2017-10-30 09:23
Public Sub Worksheet_Activate()
    Dim Rng As Range, sh As Object
    For Each sh In Sheets

经测试，可用！谢谢！