Notifications
Clear all

Executar códigos ao abrir a planilha

4 Posts
2 Usuários
0 Reactions
1,085 Visualizações
(@vpeglow)
Posts: 88
Trusted Member
Topic starter
 

Bom dia

como faço para quando a minha planilha ela executar três código?

eu tenho na na "Esta pasta de trabalho" o código abaixo, mas gostaria de atribuir mais dois códigos.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Senha As String
Senha = "onasus"

If InputBox("Digite a senha para Salvar", "Proteção - Contabilidade") = Senha Then
Exit Sub
Else
If SaveAsUI = True Then
MsgBox "Não é permitido Salvar Como"
Cancel = True
Exit Sub
End If
If SaveAsUI = False Then
MsgBox "Não é permitido ‘Salvar"
Cancel = True
Exit Sub
End If
End If
End Sub
 
Postado : 22/05/2015 6:57 am
(@taniaweb)
Posts: 4
New Member
 

Bom dia
Você cria as rotnas, exemplo:
sub abc01
.....
end sub

sub abc02
.....
end sub

sub abc03
.....
end sub

e na sua rotina atual vc faz a chamada :
call abc01
call abc02
call abc03

Espero ter ajudado... até mais,

 
Postado : 22/05/2015 7:32 am
(@vpeglow)
Posts: 88
Trusted Member
Topic starter
 

Oi.. não consegui executar

 
Postado : 22/05/2015 7:55 am
(@vpeglow)
Posts: 88
Trusted Member
Topic starter
 

Resolvido

Private Sub Workbook_Open()
Call excluir_duplicatas
Call GerarBancoDeDados
End Sub
 
Postado : 22/05/2015 11:36 am