macro para deshabilitar botones "guardar" y "guardar como" en excel 2007

[Perr0]

probe

Código vb:

Sub macro()
With Application.CommandBars("Worksheet Menu Bar")
With .Controls("&Archivo")
With .Controls("&Guardar")
.Enabled = False
.Visible = True
End With
End With
 
With .Controls("&Archivo")
With .Controls("&Guardar Como...")
.Enabled = False
.Visible = True
End With
End With
End With
End Sub
 

funciona bien en 2003 para el menu desplegable
2007 no tengo en mi laptop

salu2