|
revisando las respuesetas me encontre con al como esto que cree fuiste tu la que dio esta solucion:
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
If micontrol.ID = 748 Then micontrol.Enabled = False
Next
Set EnMenu = Nothing
End Sub
con....
Sub auto_Open()
quitaropcion
End Sub
fucniona perfecto pero la opcion guardar como aparece dehabilitada para todos los libros y yo solo quiero que se deshabilite para un libro determinado, prove con esto
Sub habilitaropcion()
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
If micontrol.ID = 748 Then micontrol.Enabled = True
Next
Set EnMenu = Nothing
End Sub
con...
Sub auto_Close()
habilitaropcion
End Sub
pero solo funciona una ves y cuando abro un documento de excel la opcion guardar como se encuentra dehabilitada, cual es mi error
|
