A dúvida de hoje é:
O Código abaixo evita que o usuário salve possíveis edições (cagadas) na planilha. Contudo, eu não consigo salvar essa edição que eu mesmo fiz, pois ele cai na mesma condição de não permitir o salvamento.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True End Sub
E agora? Como salvar somente dessa primeira vez?
Segue exemplo, dá uma olhada e vê é isso que estava procurando...!?
Att,
Francisco
Bom dia, Hélio
Uma maneira de fazer isso seria pular a instrução através do uso de um ponto de interrupção:
1) Dentro do VBE, coloque o cursor sobre a primeira linha do código (Private Sub Workbook_BeforeSave...)
2) Pressione F9, isso vai criar um ponto de interrupção (a linha fica cor de vinho e um círculo aparece à esquerda da linha) ou na barra de ferramentas clique no símbolo de uma mão laranjada
3) Salve sua pasta. Neste momento, o código é detido justamente na linha onde há a interrupção e a linha fica com sombreamento amarelo.
4) Com o mouse, arraste a seta amarela que fica à esquerda (sobre a bolinha cor de vinho) para a última linha (End Sub)
5) Pressione F5 (continuar o código) e tá feito.
Helio,
Você pode incrementar seu código com uma condição "If".
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.UserName <> "Seu usuario" Then
Cancel = Truef
End
End Sub
Ótimo pessoal!!!
Muito boas as respostas!
Muito obrigado!