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);
EstaPasta_de_trabalho
  • 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