макрос на выполнение условия с датой.

[Pasha_Z]

надо макрос который при открытии книги проверяет значение дата.
если книга не открывалась и дата с 10 по 30 число то выполнит тело макроса(вывести на экран сообщение "макрос выполнен и дата", если макрос уже выполнялся в данный период - то не выполнят тело макроса и прекратить выполнение макроса (вывести сообщение "Макрос не выполнен и дата").
при наступление следующего месяца - опять выполнит поставленную задачу.

вроде я понятно написал.

[alex77755]

Private Sub Workbook_Open()
Dim D, V, M, G
D = Day(Now)
If D >= 10 And D <= 30 Then
    M = Month(Now)
    G = Year(Now)
    V = GetSetting("VBA", "PR", G & ";" & M)
    If V = "" Then
        SaveSetting "VBA", "PR", G & ";" & M, Date
        ' вызов макрося
        MsgBox "Макрос выполнен", 64, Date
    Else
        MsgBox "Макрос не выполнен" & vbCrLf _
        & "выполнялся " & V, 64, Date
    End If
End If
End Sub

[Pasha_Z]

а можно не использовать запись в реестр?

[alex77755]

Ну пиши куда хочешь.
Хоть в тектовик, хоть на лист, хоть в модуль

[Pasha_Z]

спасибо. с макросом разобрался.