Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
MsgBox à partir de ...
 
Notifications
Clear all

MsgBox à partir de data

 
2024 - VBA & Macros
3 Posts
3 Usuários
0 Reactions
641 Visualizações
RSS
 minas
(@minas)
Posts: 1
New Member
Topic starter
 

Olá!

Pessoal, preciso de uma ajuda.

Preciso criar uma macro para aparecer uma mensagem à partir de uma data fixa.

Ex.: à partir do dia XX/XX/XXXX apareceria a mensagem "Arquivo protegido. Contate o desenvolvedor"

Desde já agradeço!

Abraço!

 
Postado : 29/01/2016 10:43 am
pfarias
 pfarias
(@pfarias)
Posts: 265
Reputable Member
 

Utiliza o code abaixo.

Private Sub Workbook_Open()
    If Date > "28/01/2015" Then
        MsgBox "Arquivo protegido. Contate o desenvolvedor"
        ThisWorkbook.Close 'Se deseja que o arquivo seja fechado.
    End If
End Sub
Teste.zip

Pietro Farias

Se foi resolvido suas dúvidas, lembre se de marcar o tópico como RESOLVIDO.

ANALISTA X

 
Postado : 29/01/2016 11:09 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde minas

Seja bem-vindo ao fórum

Movi teu tópico para o local correto, pois onde você havia postado, não pode postar dúvidas, pois é exclusivo para apresentação do novos usuários do fórum.

Como você é novo no fórum, para facilitar tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:

viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Patropi Moderador

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

 
Postado : 29/01/2016 11:12 am
Forum Jump:
  Tópico Anterior
Próximo Tópico