Es posible si una celda que puede tener dos valores 1 y 0; si tiene el valor 0 que quede inutilizado en el menu Archivo o su icono, la opción de imprimir. ¿Es posible esto? Atentamente JMC
Si, si es posible, usa el evento Change de la hoja que te interese, o sea, la hoja donde pondrás el 0 o el 1, en el ejemplo que te anexo estoy suponiendo que es la celda A1, tienes que copiar este código dentro de la hoja, NO en un modulo, esto lo haces de el Editor VBA, dentro del Explorador de proyectos... Option Explicit Private Sub Deshabilitar() Dim cCtl As CommandBarControl Set cCtl = CommandBars("File").FindControl(ID:=4) If Not cCtl Is Nothing Then cCtl.Enabled = False Set cCtl = CommandBars("Standard").FindControl(ID:=2521) If Not cCtl Is Nothing Then cCtl.Enabled = False Set cCtl = Nothing End Sub Private Sub Habilitar() Dim cCtl As CommandBarControl Set cCtl = CommandBars("File").FindControl(ID:=4) If Not cCtl Is Nothing Then cCtl.Enabled = True Set cCtl = CommandBars("Standard").FindControl(ID:=2521) If Not cCtl Is Nothing Then cCtl.Enabled = True Set cCtl = Nothing End Sub If Target.Address(False, False) = "A1" Then Select Case Target.Value Case 0 Deshabilitar Case 1 Habilitar End Select End If End Sub