Desactivar cálculo automático al abrir un archivo excel

Necesito que al abrir un archivo excel específico se desactive el
cálculo automático y se active la opción "Automático excepto tablas"
¿Alguna idea para una macro que se active al abrir el archivo?

Private Sub Workbook_Open()
With Application
.Calculation = xlSemiautomatic
.MaxChange = 0.001
End With

End Sub
' en el modulo thisworkbook

"Juan Carlos" wrote:

> Necesito que al abrir un archivo excel especà­fico se desactive el
> cà¡lculo automà¡tico y se active la opción "Automà¡tico excepto tablas"
> ¿Alguna idea para una macro que se active al abrir el archivo?
>