Evitar que se pueda guardar archivo excel

Prueba esta macro ponla en el modulo thisworkbook, sino se sabe la clave no podrá guardar los cambios por cierto ponle password al código vba para que sea más difícil que alguien entre al código y lo cambie.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
CLAVE = InputBox("INTRODUZCA LA CLAVE")
If CLAVE = "PASSWORD" Then
    Cancel = False
Else
    Cancel = True
    MsgBox ("NO ESTA AUTORIZADO PARA GUARDAR ESTE ARCHIVO"), vbInformation, "AVISO"
End If
End Sub

Primero que todo gracias!

Pero tu macro no permite cerrar el archivo, pero si permite guardar.

Necesito que los otros usuarios:

Puedan abirir el archivo trabajar en el, visualizar etc.

Cuando lo terminen de ocupar SI lo puedan cerrar, pero que sus modificaciones no se guarden.

Lo mismo si alguien aprieta "guardar" o "guardar como" tampoco pueda.

Pero que si lo pueda cerrar, luego de utilizarlo.

ya lo solucione, muchas gracias!!

Bien vamos por partes, la macro eventos esta corregida ahora son dos partes, la primera cuando quieran cerrar el archivo, este lo cerrara sin guardar los cambios.

La segunda en caso de que insistan en guardar los cambios la macro te pedira un password que al no tenerlos no grabara nada, la macro funciona y te anexo la imagen

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.Close Savechanges:=False
End Sub
'--------------------------------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
CLAVE = InputBox("INTRODUZCA LA CLAVE")
If CLAVE = "PASSWORD" Then
    Cancel = False
Else
    Cancel = True
    MsgBox ("NO ESTA AUTORIZADO PARA GUARDAR ESTE ARCHIVO"), vbInformation, "AVISO"
End If
End Sub

La macro funciona bien, solo que al cerrar el archivo, queda como en la imagen, no se cierra completamente "excel".