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

[AleXei22]

Hola, necesito de vuestra ayuda, estoy intentando crear una macro en excel 2007 que me deshabilite los botones guardar y guardar como con este codigo que halle en internet:

Código:

Private Sub Workbook_Open()

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

creo que esta macro funciona pero para un excel 2003 (no tengo 2003 para comprobarlo) y quizas por eso no funciona.

tambien me he encontrado este codigo que no permite grabar:

Código:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "No debes grabar este archivo", vbCritical, ">>>>> NO GRABAR!!!"
Cancel = True
End Sub

y este definitivamente no deja grabar, pero he ahi el problema al cerrar el archivo no se queda entonces con este codigo si hace su trabajo pero no se graba al archivo entonces como puedo hacer que queden deshabilitados los botones podrian ayudarme, de antemano gracias

[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

[AleXei22]

Gracias Perr0 por tu respuesta, por lo menos se que funciona en 2003, ¿alguien podria ayudarme a encontrar las instrucciones correctas para usarlo en el excel 2007?

[AleXei22]

hola, he logrado deshabilitar los botonces guardar y guardar como de una manera como el segundo codigo que puse la vez anterior, el codigo es este:

Código:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "mensaje", vbCritical, "titulo de mi mensaje"
Cancel = True

lo que tuve que hacer para que funcionara y me lo guardara el documento fue que le di interrumpir a la depuración en el Visual Basic, luego fui a Excel y le di guardar, luego de eso en el archivo los botones no quedan en si debilitado pero aparece la ventana de mensaje y no da opción de guardar al final, practicamente dejaron de funcionar los "guardar".