Como bloquear a função de Salvar e Salvar Como no Excel através de VBA

Este post foi originalmente publicado em http://officevbavsto.blogspot.com/2011/05/quickshot-impedindo-o-salvar-e-salvar.html.

Se você precisar impedir que o usuário consiga Salvar ou o Salvar Como uma planilha do Excel, faça o procedimento a seguir:

• Na janela de Project Explorer, localize o item EstaPasta_de_trabalho (ou ThisWorkbook);

• Dê um duplo clique nesse objeto para abrir a janela de código;
• Na janela de código, digite o seguinte código:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Cancel = True
End Sub

Agora teste e veja que você não consegue salvar (Tecle F12, por exemplo).

Como impedir somente o Salvar Como, mas deixar o Salvar habilitado?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI = True Then
        Cancel = True
    End If
End Sub

Créditos

Photo by Pixabay from Pexels