Hola me ayudas a modificar esta macro.

Private Sub Workbook_Open()

Application.Visible = False

Dim respuesta As Variant
'asignamos una variable a la función MsgBox
respuesta = MsgBox("Bienvenido... Continuamos..?", vbYesNo, "Prevención y Control")
'Evaluamos la respuesta dada sobre el cuadro diálogo
If respuesta = vbYes Then

UserForm3.Show
Else

Exit Sub

End If

End Sub

resulta es q tengo un problemita..es cuando tengo otro libro abierto..bueno ejecuto el libro CUADRO GENERAL y se abre mi formulario3 el inconveniente es q si selecciono no en la pregunta del msgbox..no sola

1 respuesta

Respuesta
1

No entendí muy bien lo último que escribiste: "si selecciono no en la pregunta del msgbox.. no sola"

Será que te falta agregar la línea:

Application.Visible = True

La macro quedaría así

Private Sub Workbook_Open()
Application.Visible = False
Dim respuesta As Variant
'asignamos una variable a la función MsgBox
respuesta = MsgBox("Bienvenido... continuamos..?", vbYesNo, "Prevención y Control")
'Evaluamos la respuesta dada sobre el cuadro diálogo
If respuesta = vbYes Then
UserForm3.Show
Else
Application.Visible = True
Exit Sub
End If
Application.Visible = True
End Sub

Si es lo que necesitas.

gracias por tu aporte

pero podrías darme una opción con mi formulario usuario y contraseña

al momento de abrir mi libro...

necesito crear una restricción total.......si el password es correcto abre el libro

porlo tanto....cierra el libro......

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas