Macro só salvar através de uma condicional

[Gustavo Lomba]

Olá, boa noite.

 

Tenho uma planilha excel e só quero que o arquivo seja salvo se a célula Q1 seja igual a 300%, caso negativo aparecerá uma msgbox com o texto "Arquivo preenchido incorretamente, não foi possível salvar".

[Basole]

Segue exemplo:

 

	Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Tenho uma planilha excel e só quero que o arquivo seja salvo se a célula Q1 seja igual a 300%,
'caso negativo aparecerá uma msgbox com o texto "Arquivo preenchido incorretamente, não foi possível salvar".
	    If Sheets(" * AQUI O NOME DA SUA ABA").Range("Q1").Text <> "300%" Then
        MsgBox "Arquivo preenchido incorretamente, não foi possível salvar", vbCritical, "Aviso"
        Cancel = True
    End If
	End Sub
	

[Gustavo Lomba]

Olá amigo, aparece o erro "erro de compilação" era esperado End sub.

 

Segue código:

 

Sub Macro6()
'
' Macro6 Macro
'

'
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Tenho uma planilha excel e só quero que o arquivo seja salvo se a célula Q1 seja igual a 300%,
'caso negativo aparecerá uma msgbox com o texto "Arquivo preenchido incorretamente, não foi possível salvar".
        If Sheets("Ativos").Range("Q1").Text <> "300%" Then
        MsgBox "Arquivo preenchido incorretamente, não foi possível salvar", vbCritical, "Aviso"
        Cancel = True
    End If
End Sub

 

[Basole]

Siga este procedimento: 

Aperte as teclas ALT+F11, ao lado esquerdo  (vide img) click duas vezes em EstaPasta_de_trabalho e no editor a direita cole o codigo que postei anteriormente: 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Tenho uma planilha excel e só quero que o arquivo seja salvo se a célula Q1 seja igual a 300%,
'caso negativo aparecerá uma msgbox com o texto "Arquivo preenchido incorretamente, não foi possível salvar".
	    If Sheets(" * AQUI O NOME DA SUA ABA").Range("Q1").Text <> "300%" Then
        MsgBox "Arquivo preenchido incorretamente, não foi possível salvar", vbCritical, "Aviso"
        Cancel = True
    End If
	End Sub

Em seguida salve a planilha com a extensão xlsm (macros)

 

[Gustavo Lomba]

Ótimo amigo funcionou perfeitamente, uma única questão, o arquivo está deixando salvar, porém, não deixa fechar, gostaria que a msg box aparecesse ao clicar em salvar e fechar não deixando salvar.

[Basole]

Sendo assim, substitua a macro anterior... por esta: 

 

Const NomeDaSuaAba = "* ALTERE AQUI e coloque o nome da sua ABA (entre aspas)"
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
        If Sheets(NomeDaSuaAba).Range("Q1").Text <> "300%" Then
        MsgBox "Arquivo preenchido incorretamente, não foi possível salvar e será fechado!", vbCritical, "Aviso"
        Cancel = True
        ThisWorkbook.Application.DisplayAlerts = False
        ThisWorkbook.Application.Quit
    End If
    End Sub

 

[Gustavo Lomba]

Excelente, funcionou!

 

Seria possível aparecer esta msg box 'Arquivo preenchido incorretamente, salvar mesmo assim?' com as opções "Sim" e "Não"?

Se sim, Salvar e fechar a planilha. Se não, não salvar mas manter a planilha aberta.

 

Não utilizaríamos mais a msg box anterior.

 

Obrigado pela ajuda amigo!

[Basole]

Tarde, segue abaixo as alterações: 

 

Const NomeDaSuaAba = "* ALTERE AQUI e coloque o nome da sua ABA (entre aspas)"
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
        If Sheets(NomeDaSuaAba).Range("Q1").Text <> "300%" Then
      If MsgBox("Arquivo preenchido incorretamente, salvar mesmo assim? ", vbCritical + vbYesNo, "Aviso") = vbYes Then
        Cancel = False
        Exit Sub
        Else
        Cancel = True
        ThisWorkbook.Application.DisplayAlerts = False
        ThisWorkbook.Application.Quit
    End If
    End Sub
End Sub

 

[Gustavo Lomba]

Beleza amigo, funcionou!!!

 

Muito obrigado pela ajuda novamente!

[Gustavo Lomba]

Amigo, boa noite.

 

Tenho 2 abas no mesmo arquivo, como aplico o código para ambas as abas?

 

A estrutura das planilhas e o racional será o mesmo.

 

Obrigado.

[Basole]

Bom seria a mesma condiçao? 

Se sim, segua as alterações: 

Const NomeDaSuaAba = "* ALTERE AQUI e coloque o nome da sua ABA (entre aspas)"
Const NomeDaSuaOutraAba = "* ALTERE AQUI e coloque o nome da sua OUTRA ABA (entre aspas)"
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
        If Sheets(NomeDaSuaAba).Range("Q1").Text <> "300%" Or _
         Sheets(NomeDaSuaOutraAba).Range("Q1").Text <> "300%" Then
      If MsgBox("Arquivo preenchido incorretamente, salvar mesmo assim? ", vbCritical + vbYesNo, "Aviso") = vbYes Then
        Cancel = False
        Exit Sub
        Else
        Cancel = True
        ThisWorkbook.Application.DisplayAlerts = False
        ThisWorkbook.Application.Quit
    End If
    End If
End Sub