Una pregunta para NOTA

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

1 respuesta

Respuesta
1
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas