Evento BeforeSave, me guarda OTRO fichero!!!!

Hola otra vez, tengo un problema (para variar :-)):

Escenario: Tengo la "personal.xls" y quiero que al guardar (por si he estado
cambiando cosas y tal y tal) se oculte la ventana, para que el usuario no
vea
el libro. (Esto no es del todo correcto, puesto que en 'Ventana|Mostrar'
aparece
el libro y lo pueden mostrar, pero es como lo tengo hasta ahora.)

Para ello, hago:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
On Error Resume Next
With Windows(ThisWorkbook.Name)
.Visible = False
End With
End Sub

Pues de esta forma, cuando guardo, se oculta la ventana... y me guarda el
libro que queda activo en ese momento!!!!, y si no hay ningun libro activo,
porque era el único libro abierto, entonces peta Excel!!!


Pregunta: ¿Como evitar este problema?
ó
Pregunta: ¿Como ocultar el libro para que no accedan los usuarios?

Nota: No me interesa ThisWorbook.IsAddin = True, porque entonces
desaparecen las macros que he creado y que quiero que se utilicen.

Gracias otra vez

Saludos