Para Dam - Macro que pida contraseña para permitir guardar

Estás serían las macros.

En el evento de Thisworkbook copia lo siguiente

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'por.dam
Application.EnableEvents = True
contador = 1
If MsgBox("Desas guardar los cambios", vbQuestion & vbYesNo) = vbYes Then
    Do While contador < 3
        clave = InputBox("Contraseña: ")
        If clave = "a" Then
            ActiveWorkbook.Save
            Application.EnableEvents = False
            Application.DisplayAlerts = False
            ActiveWorkbook.Close
        Else
            If contador < 2 Then
                MsgBox "Clave errónea, intenta nuevamente"
                contador = contador + 1
                Cancel = True
            Else
                MsgBox "Clave errónea, se cierra el libro"
                Application.EnableEvents = False
                Application.DisplayAlerts = False
                ActiveWorkbook.Close
            End If
        End If
    Loop
Else
    Application.EnableEvents = False
    Application.DisplayAlerts = False
    ActiveWorkbook.Close
End If
End Sub
Private Sub Workbook_Open()
Application.EnableEvents = True
End Sub

1. También necesitamos poner en un módulo la siguiente, macro

2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11

3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro

Sub auto_open()
Application.EnableEvents = True
End Sub

La macro funciona para 2 intentos , si quieres más intentos, cambia el número en esta línea

If contador < 2 Then

Prueba y me comentas

Saludos. Dam
Si es lo que necesitas.