Anónimo
Controlar error en tiempo de ejecución Excel 2007
Buen día estoy trabajando con Excel 2007 y tengo una macro para controlar que el usuario active las macros, esta hoja (llamada NOTA) se muestra al inicio y se oculta hasta que se activan las macros, al guardar el libro, oculta las otras hojas y deja visible NOTA. Esta es la macro que uso:
---Esta la tengo en un modulo---
Sub Salida()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect "123456"
Sheets("NOTA").Visible = True
Sheets("NOTA").Select
OcultaTo
Application.DisplayAlerts = True
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
MuestraTo
ActiveWorkbook.Protect "123456"
End Sub
---Esta en el workBook y de aquí mando llamar a salida--
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'salida
Call Salida
Call guardaDatos
ActiveWorkbook.Saved = True
Cancel = True
End Sub
Mi problema surge cuando el usuario le da clic en Guardar y aparece el famoso cuadro de comprobador de compatibilidad... El cual tiene los botones "Continuar" y "cancelar", si le da clic en "Continuar" todo funciona perfecto, pero si le da clic en "Cancelar" me lanza un error en tiempo de ejecución sobre el método SABE. Quisiera saber de que manera puedo controlar este error, en esta línea salta...
ThisWorkbook. Sabe
Muchas gracias!
---Esta la tengo en un modulo---
Sub Salida()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect "123456"
Sheets("NOTA").Visible = True
Sheets("NOTA").Select
OcultaTo
Application.DisplayAlerts = True
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
MuestraTo
ActiveWorkbook.Protect "123456"
End Sub
---Esta en el workBook y de aquí mando llamar a salida--
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'salida
Call Salida
Call guardaDatos
ActiveWorkbook.Saved = True
Cancel = True
End Sub
Mi problema surge cuando el usuario le da clic en Guardar y aparece el famoso cuadro de comprobador de compatibilidad... El cual tiene los botones "Continuar" y "cancelar", si le da clic en "Continuar" todo funciona perfecto, pero si le da clic en "Cancelar" me lanza un error en tiempo de ejecución sobre el método SABE. Quisiera saber de que manera puedo controlar este error, en esta línea salta...
ThisWorkbook. Sabe
Muchas gracias!
1 Respuesta
Respuesta de calvuch
1
crea un sub para control de errores, puede ser
sub mis_errores(numero as long)
-aca tu decides que hacer con el error-
end sub
en tus macros pones como primera linea:
on local error goto errores
Al final de tu procedimiento pones la etiqueta
Errores:
mis_errores(err. Number) ' y la llamada al procedimiento de tratamiento de errores
De esa forma si dentro de tu procedimiento ocurre una excepción ( error) le sasas el numero de error al sub errores y allí haces lo que desees con el.
sub mis_errores(numero as long)
-aca tu decides que hacer con el error-
end sub
en tus macros pones como primera linea:
on local error goto errores
Al final de tu procedimiento pones la etiqueta
Errores:
mis_errores(err. Number) ' y la llamada al procedimiento de tratamiento de errores
De esa forma si dentro de tu procedimiento ocurre una excepción ( error) le sasas el numero de error al sub errores y allí haces lo que desees con el.