Salvar Planilha c/ Código que Impede de Salvar

2024 - VBA & Macros

Post Recente por HelioFaria 8 anos atrás

5 Posts

4 Usuários

0 Reactions

1,086 Visualizações

RSS

HelioFaria

(@heliofaria)

Posts: 50

Trusted Member

Topic starter

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?

Postado : 30/09/2016 7:27 am

fcarlosc

(@fcarlosc)

Posts: 453

Honorable Member

Segue exemplo, dá uma olhada e vê é isso que estava procurando...!?

Att,

Francisco

Postado : 30/09/2016 8:57 am

EdsonBR

(@edsonbr)

Posts: 1057

Noble Member

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.

Postado : 30/09/2016 9:03 am

JesseF

(@jessef)

Posts: 3

New Member

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

Postado : 01/10/2016 12:07 pm