Activar funciones de boton de comando, con otro boton de comando

enferchats · el 10 de mayo

Buenas tardes:

Tengo un problema y es el siguiente: Tengo un formulario simple que depende de un listbox para seleccionar un libro a abrir. Mi formulario cuenta con 4 botones de comando, 1 para filtrar datos dependiendo de mi listbox, el 2do para guardar los cambios que se realizen en el formulario, el 3ero es para abrir un hipervinculo y el 4to para cerrar la hoja activa, es decir el hipervinculo abierto. Mi problema es que si por error se activa el 4to boton se cerrara mi archivo principal, cosa que no deseo, en mi logica entiendo que ese boton solo debe funcionar si se activo el 3ero, caso contrario no debe activarse.

Espero haberme echo entender, de todos modos les copio mis macros:

Private Sub CommandButton1_Click()

x = 2

Sheets("GRUPOS").Select

Do While Range("a" & x) <> listado

x = x + 1

Loop

RUC.Text = Range("B" & x)

DEPARTAMENTO.Text = Range("c" & x)

CORREO.Text = Range("d" & x)

TELEFONO.Text = Range("e" & x)

Sheets("Proveedores").Select

Range("A1").Select

Selection.AutoFilter

ActiveSheet.Range("$A$1:$D$500").AutoFilter Field:=1, Criteria1:=listado

End Sub

Private Sub CommandButton2_Click()

Sheets("GRUPOS").Select

x = 2

Do While Range("a" & x) <> listado

x = x + 1

Loop

Range("B" & x) = RUC

Range("c" & x) = DEPARTAMENTO

Range("d" & x) = CORREO

Range("e" & x) = TELEFONO

End Sub

Private Sub CommandButton3_Click()

Sheets("GRUPOS").Select

x = 2

Do While Range("a" & x) <> listado

x = x + 1

Loop

If Range("f" & x) <> "" Then

Range("F" & x).Select

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

ActiveWindow.SmallScroll Down:=39

Else

MsgBox "EL GRUPO SELECCIONADO NO CUENTA CON BOH", vbExclamation, "ERROR!!!"

End If

End Sub

Private Sub CommandButton4_Click()

ActiveWorkbook.Close (False)

End Sub

En resumen lo que necesito es alguna macro que bloquee el boton 4, y solo se active cuando es utilizado el boton 3...

Espero su pronta respuesta.

Gracias de antemano,

Fernando

Armando Montes · el 10 de mayo

Ve por favor el punto 6 de las normas del foro:

Ayuda Excel - Normas

Antoni · el 11 de mayo

Llevas 6 temas abiertos en el foro y ya deberías de saber que es necesario subir un archivo.

Me he tenido que crear el archivo para probar la solución cuando deberías ser tu el que lo hubiera hecho.

Es la última vez que te contesto si te empeñas en saltarte las normas del foro.

En ThisWorkbook:

Private Sub Workbook_Open()

[I][B]Hoja1[/B][/I].CommandButton4.Enabled = False

End Sub

[/CODE]

[i]

En la [b]Hoja1[/b]:[/i]

[CODE]
Private Sub CommandButton3_Click()
CommandButton4.Enabled = True
End Sub

Private Sub CommandButton4_Click()
CommandButton4.Enabled = False
End Sub
[/CODE]