ARchivo excel ha fallado buscar solución en línea y reiniciar
Dan aquí te describo el problema
Mira tengo el libro y algunas hojas
Al ejecutar la macro que me proporcionaste de sacar rango de ese libro y ponerlo en un libro aparte este si FUNCIONA pero al intentar cerrar el archivo este me sale el error que tiene el titulo de esta pregunta
Te envío mi archivo para que analices.
1 Respuesta
Respuesta de Dante Amor
1
Así quedarían tus macro completas en el evento thisworkbook
Dim salir
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Por.Dante Amor
If ActiveSheet.Name <> "Hoja1" Then
MsgBox "Este libro solo se cierra en la hoja1, posiciónate para cerrar"
Cancel = True
End If
If salir = False Then
RES = MsgBox("¿DESEAS GUARDAR?", vbQuestion + vbYesNoCancel, "EL RETORNO")
Select Case RES
Case vbYes
ThisWorkbook.Save
Case vbNo
salir = True
ThisWorkbook.Close False
Case vbCancel
Cancel = True
End Select
End If
End Sub
Private Sub Workbook_Open()
PRIMER_P
SEGUNDO_P
TERCER_P
QUITAR_F
ProhibirCXV
FORMULARIO
impresion_final
ActiveWindow.DisplayWorkbookTabs = True
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",FALSE)"
Application.DisplayAlerts = False
Application.DisplayFormulaBar = False
''''UserForm1.Show '' FORMULARIO USUARIO
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveSheet.Unprotect
Application.DisplayStatusBar = False 'QUITA BARRA DE MACROS
ActiveSheet.Unprotect ''AQUI CONTRASEÑA
Application.ScreenUpdating = False
If ThisWorkbook.Sheets("JUEMAÑ").Range("C1") = "DORADA" Then
FILTRO_COCINA
Exit Sub
End If
If ThisWorkbook.Sheets("JUEMAÑ").Range("C1") = "65" Then
FILTRO_PAN
Else
MsgBox " No has seleccionado Matriz", vbOKOnly + vbCritical, "ERROR"
End If
ActiveSheet.Protect
End Subsal u dos
Actualiza la macro beforeClose con esto:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Por.Dante Amor
If ActiveSheet.Name <> "Hoja1" Then
MsgBox "Este libro solo se cierra en la hoja1, posiciónate para cerrar"
Cancel = True
Exit Sub
End If
If salir = False Then
RES = MsgBox("¿DESEAS GUARDAR?", vbQuestion + vbYesNoCancel, "EL RETORNO")
Select Case RES
Case vbYes
ThisWorkbook.Save
Case vbNo
salir = True
ThisWorkbook.Close False
Case vbCancel
Cancel = True
End Select
End If
End Sub
