Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Mensagem de Alerta ...
 
Notifications
Clear all

Mensagem de Alerta em Macro

 
2024 - VBA & Macros
4 Posts
1 Usuários
0 Reactions
1,209 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Tentando encontrar uma resposta para o meu tópico anterior a este, encontrei outro código que exclui a planilha após determinada data. Gostaria de acrescentar uma mensagem neste código que me informe quantos dias ainda tenho de uso. Tipo assim, pegar a data de hoje e diminuir da data que determinei para o vencimento e mostrar uma msgbox ao abrir a planilha: "Você ainda tem 50 dias de uso da planilha". Algo assim.

If Date <= #12/31/2012# Then Exit Sub ' mm/dd/yyyy
MsgBox "Seu arquivo venceu, portanto, será excluído", vbCritical, "Desculpe"
With ThisWorkbook
    .Saved = True
    .ChangeFileAccess xlReadOnly
    Kill .FullName
    .Close False
End With

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/09/2012 11:50 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Isso te ajudaria....?

Private Sub Workbook_Open()
Dim Exp As Date: Exp = #9/24/2012#

If Date - Exp > 0 Then _
MsgBox ("Sua planilha vai expirar em " & Date - Exp & " dias.")

If Date <= #9/25/2012# Then Exit Sub
MsgBox "Seu arquivo venceu, portanto, será excluído", vbCritical, "Desculpe"
With ThisWorkbook
    .Saved = True
    .ChangeFileAccess xlReadOnly
        .Close False
End With

Kill ThisWorkbook.FullName

End Sub

:roll:

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/09/2012 6:45 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

blz, ajuda sim. Só quero entender a dinâmica do código, pois, alterei a 2ª data para dia 26 e continuou a mensagem me informando que a planilha expira em 1 dia.

A 1ª data diz respeito a que?
E a 2ª?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/09/2012 7:32 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Assim deve ficar melhor...

Private Sub Workbook_Open()
Dim dtExpire As Date
    dtExpire = #12/31/2012#
    If Date <= dtExpire Then
        MsgBox "Seu arquivo vai expirar em " & dtExpire - Date & " dias"
    Else
        MsgBox "Seu arquivo venceu, portanto, será excluído", vbCritical, "Desculpe"
        With ThisWorkbook
            .Saved = True
            .ChangeFileAccess xlReadOnly
            Kill .FullName
            .Close False
        End With
    End If
    End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/09/2012 9:33 am
Forum Jump:
  Tópico Anterior
Próximo Tópico