Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Função FileDialog(S...
 
Notifications
Clear all

Função FileDialog(SaveAs). Clicando no botão "cancelar"

 
2024 - VBA & Macros
Post Recente por wolneypk 12 anos atrás
5 Posts
3 Usuários
0 Reactions
788 Visualizações
RSS
wolneypk
 wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Calma!
Esse não é mais um Tópico perguntando sobre como criar um botão de "Salvar como"!

Meu caso é o seguinte: Já tenho toda função que "Salva o Arquivo Como" pronta, só que com o seguinte problema:
Se o camarada clica em "Salvar Como" e coloca o nome do arquivo bonitinho e salva... Normal!
Mais se o camarada clica em "Salvar Como" e por algum motivo clica em Cancelar... F%%$#!
O arquivo original é sobreposto pelo que está em uso...

Existe alguma maneira de eu fazer ele compreender que se a pessoa clicar em Cancelar, ele deverá cancelar a Função FileDialog(SaveAs) e fechar essa FileDiolog?

Segue aqui a função que eu estou usando:

If MsgBox"Deseja salvar um novo arquivo?"=VbYes Then
    Dim CaixaDialogo As FileDialog
    Set CaixaDialogo = Application.FileDialog(msoFileDialogSaveAs)
    With CaixaDialogo
    .Show
    .Execute
    End With

Else
Faz uma sequencia de coisas que não vêm ao caso...

"O impossível, é só uma questão de tempo"

 
Postado : 04/04/2013 12:56 pm
 Alminen
(@alminen)
Posts: 77
Trusted Member
 

Um If logo depois de End With, talvez?

If CaixaDialogo = vbNullString Then Exit Sub

Ou um GoTo, para logo depois do Else (caso queira continuar a sequência de atividades).

 
Postado : 04/04/2013 1:10 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Uma outra possibilidade pode ser

    
With CaixaDialogo
        If .Show = 0 Then Exit Sub
        CaixaDialogo.Execute
End With

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

 
Postado : 04/04/2013 1:28 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Você pode usar esta tambem, é só fazer asa adaptações necessárias :

Private Sub MsgSalvarComo()

    Dim sMsg
        
    sMsg = MsgBox("Deseja salvar um novo arquivo", vbYesNo + vbDefaultButton1 + vbQuestion, _
                      "Salvar Como")
    
    Application.EnableEvents = False
    
    Cancel = True
    
    If sMsg = vbYes Then
    
       Application.Dialogs(xlDialogSaveWorkbook).Show
       
    ElseIf sMsg = vbNo Then
    
        MsgBox " cancelou"
        
    Else
    
        Cancel = True
        
    End If
    
    Application.EnableEvents = True
   
End Sub

[]s

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

 
Postado : 04/04/2013 5:06 pm
wolneypk
 wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Perfeito amigos!
Ajudaram a resolver um problema antigo!

Muito Obrigado e Parabéns pelo conhecimento vasto.
Forte abraço!

"O impossível, é só uma questão de tempo"

 
Postado : 05/04/2013 7:49 am
Forum Jump:
  Tópico Anterior
Próximo Tópico