Guardar Como

Hola:
Esta rutina oculta opciones del menú Archivo. Tendrás que ejecutarla, ver el nro del´comando, luego inhabilita esa línea del MsgBox y habilitá la otra que ahora te aparece inhabilitada (con el guión delante)
Cualquier inconveniente me avisas.
Saludos
Elsa

Sub quitaropcion()
Dim EnMenu As CommandBar
Dim miboton As CommandBarButton
Dim micontrol As CommandBarControl

Set EnMenu = Application.CommandBars("File")
For Each micontrol In EnMenu.Controls
On Error Resume Next
MsgBox micontrol.Caption & " - " & micontrol.ID 'esto es para saber el número de control
'If micontrol.ID = 4 Then micontrol.Enabled = False 'aqui coloca el nro correspondiente para inhabilitarlo
'volverla a True al finalizar con la tarea
Next
Set EnMenu = Nothing
End Sub