Macro para no poder cambiar el nombre archivo

hola, GR !

... codigo (macro) para que no se le pueda cambiar el nombre a un archivo de excel
si se lo cambian que automaticamente se destruya...

con algun codigo como el de este ejemplo, la 'siguiente' vez que se abra el archivo...
-> si no tiene EXACTAMENTE el nombre que le indiques en el codigo... se auto-eliminara
-> toma nota de que SI 'le afecta' si le indicas [may/min]usculas como parte del nombre ;)
-> siempre y cuando se abra 'con permiso' de usar sus macros [obviamente]...
Y... si NO se mantiene pulsada la tecla {mayus} mientras se abre 'con permiso'
[o si los eventos NO estan des-habilitados por algun codigo 'intermedio'... o... ???] :((

en el modulo de codigo de 'ese' libro ==Private Sub Workbook_Open()
Application.DisplayAlerts = False
With ThisWorkbook
If .Name <> "aSi quiErO qUe se LlaMe.xls" Then _
.ChangeFileAccess xlReadOnly: Kill .FullName: .Close False
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.