Excel - macro para proteger un archvio

hola, q macro le pongo a un archivo para q nadie lo pueda abrir, ni siquiera con esa macro q la insertar en el modulo y te sale una contraseña q siempre es la misma
gracias de antemano por la respuetsa

Creo que esto te servirá

En Thisworkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Protect Structure:=True, Windows:=False
ThisWorkbook.Password = "juan"
ThisWorkbook.Close SaveChages = True
End Sub

'La clave es juan
'No pregunta si salvar los cambios, los guarda directamente
'Es necesario saber la clave para abrir el archivo

No olvides proteger el módulo de visual basic.

Saludos