Numeración secuencial

[rid501]

Algo rápido que se me ocurre es que si las macros sólo las usas tu, incluyas una variable que capture el nombre del usuario que usa la aplicación. Si es el tuyo que se ejecute Mymacro y en caso contrario lo salte:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Usuario=Application.UserName
If Hoja1.Name <> "Presupuesto" Then Hoja1.Name = "Presupuesto"
if Usuario="JoaoM" then
Mymacro
end if
End Sub

Alternativamente puedes usar el nombre de la máquina donde se está ejecutando la macro en lugar del nombre de usuario. En este caso, el nombre de máquina lo capturas con:
pc = Environ("computername")