No decorrer dos nossos códigos sempre surge a necessidade de nao salvar a planilha, ou seja não permitir que ninguém possa salvar a não ser a pessoa que saiba a senha.
Sinceramente este código é tão funcional e antigo que realmente não lembro a fonte.

Eu constantemente faço o código mais simples, mas e se um chefe especifico tem a permissão para salvar as alterações da planilha e não sabe mexer no vba? E quando isso acontecer esse codigo irá te “salvar”.

 

Lembrar de colocar o código dentro de EstaPasta_de_Trabalho

não salvar

 

Código Não Salvar

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim Senha As String
Senha = "123"

If InputBox("Digite a senha para Salvar, ou em branco apenas fecha.", "Proteção") = Senha Then
   Exit Sub
Else
   If SaveAsUI = True Then
      MsgBox "Não é permitido 'Salvar Como'"
      Cancel = True
      Exit Sub
   End If

   If SaveAsUI = False Then
      MsgBox "Não é permitido 'Salvar'"
      Cancel = True
      Exit Sub
   End If
End If

End Sub