EXCEL表格如何锁定当天之前的内容不被修改

mzlxyq

各位老师请帮忙，如题目，EXCEL表格如何锁定当天之前的内容不被修改，当天是可以填写内容并修改的，只是当天之前的内容不可以修改，表格需要每天填写的，简单的锁定表格不被编辑实现不了。

mzlxyq

我用的OFFICE版本是  2010版的

沈默00

vba试试，，，把日期小于今天的都保护起来，做个事件

mzlxyq

沈默00 发表于 2024-7-18 13:10
vba试试，，，把日期小于今天的都保护起来，做个事件

我不会VBA啊。。。 能帮忙做一下吗，谢谢

mzlxyq

我不会VBA啊，能帮忙做一下吗，谢谢

13570449347

Sub ProtectRowsBasedOnDate()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentDate As Date
    Dim cell As Range
    Dim protectRange As Range
    Dim editableRange As Range
    Dim editRange As AllowEditRange
    Set ws = ActiveSheet
    currentDate = Date
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    For Each cell In ws.Range("A1:A" & lastRow)
        If IsDate(cell.Value) And cell.Value <> currentDate Then
            If protectRange Is Nothing Then
                Set protectRange = cell.EntireRow
            Else
                Set protectRange = Application.Union(protectRange, cell.EntireRow)
            End If
        Else
            If editableRange Is Nothing Then
                Set editableRange = cell.EntireRow
            Else
                Set editableRange = Application.Union(editableRange, cell.EntireRow)
            End If
        End If
    Next cell

    If Not editableRange Is Nothing Then
        Set editRange = ws.Protection.AllowEditRanges.Add("EditableRange", editableRange)
    End If

    If Not protectRange Is Nothing Then
        ws.Protect Password:="yourpassword", UserInterfaceOnly:=True
    End If
End Sub

mzlxyq

13570449347 发表于 2024-7-18 17:21
Sub ProtectRowsBasedOnDate()
    Dim ws As Worksheet
    Dim lastRow As Long

谢谢老师，我研究下怎么用，我是小白。

mzlxyq

13570449347 发表于 2024-7-18 17:21
Sub ProtectRowsBasedOnDate()
    Dim ws As Worksheet
    Dim lastRow As Long

您好，鼓捣半天，出现这种情况，是哪里不对吗

mzlxyq

点击 按钮 后 出现这个提示

mzlxyq

哪位老师能给说说这东西怎么用啊。。。。