Añadir "¿Estás seguro?" a mi botón excel, ¿cómo puedo?

Question

Tengo un botón en mi formulario que borra todo el libro de trabajo de 8 hojas. Quiero limpiarlo ocasionalmente, pero odiaría hacerlo por accidente. He intentado buscar en Google, pero cada resultado que he encontrado supone que tengo una comprensión mucho más firme de VBA que yo. ¿Cómo puedo hacer para que cuando se hace clic en el botón aparezca un cuadro de diálogo que dice "Esto borrará todo! ¿Estás seguro? [Continuar] [Cancelar]"? Gracias.

Answer 1

En el código del botón existente, basta con insertar esta línea antes del procedimiento:

If MsgBox("This will erase everything! Are you sure?", vbYesNo) = vbNo Then Exit Sub 

Esto obligará a dejar de fumar si el usuario pulsa ninguna.

Answer 2

Simplemente haga una forma de usuario personalizada que se muestra cuando se presiona el botón "eliminar", luego enlace el botón Continuar con el código real que elimina. Haga que el botón cancelar oculte la forma de usuario.

Answer 3

Crea un nuevo submarino con el siguiente código y asígnalo a tu botón. Cambia el "DeleteProcess" al nombre de tu código para hacer la eliminación. Aparecerá un cuadro con Aceptar o Cancelar y llamará a su submenú eliminar si pulsa Aceptar y no si pulsa cancelar.

Sub AreYouSure() 

Dim Sure As Integer 

Sure = MsgBox("Are you sure?", vbOKCancel) 
If Sure = 1 Then Call DeleteProcess 

End Sub 

Jesse