Excel VBA 添加日期小于或等于动态今天日期的数据验证

Question

As in the title Im trying to add data validation with date less or equal than todays date. By todays date I refer to dynamically check for date when sheet is edited. Below is my code:

            With Selection.Validation
                .Delete
                .Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:=xlLessEqual, Formula1:="=NOW()"
                .ErrorMessage = "Wprowadź datę w formacie dd.mm.rrrr"
            End With

I get here runtime 1004 error with this line:

.Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:=xlLessEqual, Formula1:="=NOW()"

I've been trying to use =TODAY insted of =NOW but output was the same.

Answer 1

The code works fine but some sheets in my workbook were protected. When I unprotected them code worked perfectly.