Macro Condicion de Error en Contraseña

Hola muy buenas
Un placer estar en esta pagina, basicamente soy nuevo en esto de las macros y quisiera solicitar su ayuda denuevo con lo siguiente:
Tengo un archivo de Excel que lo tengo protegido con contraseña pero quiero agregarle una macro donde si la persona trata de colocar la contraseña y la coloca incorrectamente el excel se cierre.
La contraseña que tengo solo es en la hoja como tal osea no es en el documento para abrirlo el documento abre normal simplemente lo tengo bloqueado para que no me modifiquen formulas y demas ya que requiero que digiten informacion en el mismo.
Pero como sabras ya en el documento ellos pueden irse a Revisar y Desproteger Hoja.
Lo que quiero hacer es que si ellos colocan mal la contraseña por estar traveseando ahi, hacer que el documento se cierre.

Se que aunque solo yo se la contraseña no esta demas ponerle algo para que no metan las narices donde no deben, ya que me he percatado que han querido manipularlo probando con contraseñas, ademas pensaba en colocarle una linea donde antes de cerrar el documento la hoja pasara a visible.false.

Algo asi

-------------------------------------------------
ActiveSheet.Unprotect Password:<>"1234"
Hoja1.Visible = False
ActiveWorkbook.Save
ActiveWorkbook.Close

Osea que si la contraseña es diferente a 1234 que pase la hoja a visible false y que cierre el documento

--------------------------------------------------

Agradesco su ayuda
Saludos