Este fórum está sendo desativado

[GENECI]

Boa tarde!

Pessoal tenho um arquivo de nome atuamendad, que após o dia 10 "qualquer dia" de cada mês necessito, apenas abrir o arquivo para atualização em seguida fechar.
Para não esquecer desse compromisso, há possibilidade de estabelecer um procedimento que faça isso.
Sem que haja a necessidade da atividade do funcionário.

Grato - GENECI.

[alexandrevba]

Bom dia!!

Leia:http://www.cpearson.com/excel/OnTime.aspx
Não testado, mas ajuda na adaptação.

Código: Selecionar todos

Private Sub Workbook_Open()
Dim bError As Boolean
Dim iLastMonth As Integer
Dim datLastRun As Date

On Error Resume Next
datLastRun = ThisWorkbook.CustomDocumentProperties.Item("LastRunDate")
bError = Err.Number <> 0
On Error GoTo 0

If bError = False Then iLastMonth = Month(datLastRun)

If iLastMonth <> Month(Date) Then
    'Seu código aqui
    
    With ThisWorkbook.CustomDocumentProperties
        If bError Then
            .Add Name:="LastRunDate", _
                LinkToContent:=False, _
                Type:=msoPropertyTypeDate, _
                Value:=Date
        Else
            .Item("LastRunDate").Value = Date
        End If
    End With
End If

End Sub

Att

[GENECI]

Boa noite!
Muito obrigado pela solução apresentada.

Grato - GENECI.