Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro pra deleta có...
 
Notifications
Clear all

Macro pra deleta código de módulo

 
2024 - VBA & Macros
Post Recente por vitorhsh 7 anos atrás
4 Posts
3 Usuários
0 Reactions
1,182 Visualizações
RSS
 vitorhsh
(@vitorhsh)
Posts: 0
Trusted Member
Topic starter
 

Boa noite familia,

Estou trabalhando em uma rotina que deleta o cód de um módulo precisava que essa rotina ativa-se Aparti de uma data específica e apagasse o código de outros módulo exemplo dia 25 ao arquivo ser aberto ele iria deleta os código 

Sub RemoveEuMesmo() On Error Resume Next Set oModulo = ActiveWorkbook.VBProject.VBComponents("Módulo1") If Not oModulo Is Nothing Then oModulo.CodeModule.DeleteLines 1, oModulo.CodeModule.CountOfLines lin = "' Código removido automaticamente em " + Format(Now, "dd/mm/yyyy hh:MM:ss") oModulo.CodeModule.AddFromString lin End If End Sub

alguem pra da essa força

 
Postado : 18/12/2017 6:56 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Espero que a intensão seja de proteção, mas não vou questionar, é só colocar no evento Open do arquivo a verificação e chamada para a sua rotina, tipo :

Private Sub Workbook_Open()
    Dim sDataNatal As String
    
    sDataNatal = Date

    If sDataNatal = "25/12/2017" Then
        MsgBox "Coloque a chamada de sua rotina aqui"
    End If
    
End Sub

[]s

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

 
Postado : 19/12/2017 5:46 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Eu so mudaria essa linha

If sDataNatal = "25/12/2017" Then

Para essa

If sDataNatal >= "25/12/2017" Then

A primeira só funciona no dia 25/12/2017

A segunda a partir desta data.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 19/12/2017 5:30 pm
 vitorhsh
(@vitorhsh)
Posts: 0
Trusted Member
Topic starter
 

Obrigado Mauro sua rotina caio perfeitamente

 
Postado : 17/01/2018 5:37 am
Forum Jump:
  Tópico Anterior
Próximo Tópico