ayuda con macro

3 envíos / 0 nuevos
Último envío
marcelomauricio
Imagen de marcelomauricio
Offline
última acción: Hace 3 semanas 4 días
alta: 19/10/2013 - 05:42
Puntos: 115
ayuda con macro

Buenas tardes amigos del foro, por favor solicito ayuda con una macro, la he creado en excel 2013, actualize mi office a 2016 y mi libro lo guarde como archivo binario, todas las macros me funcionan bien menos una, la describo a continuacion...

 

Const archivoInicial = "C:\windows\prueba.txt"

 

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim W As Worksheet, Sh As String

Application.ScreenUpdating = False

Sh = ActiveSheet.Name

 

For Each W In ThisWorkbook.Worksheets

If W.Name <> Sh Then

W.Visible = True

End If

Next W

Application.ScreenUpdating = True

If ThisWorkbook.ReadOnly = True Then

ThisWorkbook.Close False

End If

 

End Sub

 

como veran se trata de que no abra el libro si no encuentra el archivo prueba.txt dentro del directorio windows.... lo he probado varias veces sin ese archivo, pero lo abre igual, siendo que no deberia abrirlo, por favor, alguien sabe donde esta el error?

 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 8 horas 9 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 7340
¿Pero dónde compruebas si

¿Pero dónde compruebas si existe o no el archivo prueba.txt?

En el código sólo se define una constante con la ruta al archivo, pero no se hace nada con esa constante

El código que incluyes aquí es el del evento Before_Close, es decir, antes de cerrar

Supongo que si lo que quieres es impedir el archivo, el código debería estar en el evento "al abrir" el archivo, Open, para que lo compruebe al principio

 

 

 

Data Tools Suite
datos y tablas con Excel

marcelomauricio
Imagen de marcelomauricio
Offline
última acción: Hace 3 semanas 4 días
alta: 19/10/2013 - 05:42
Puntos: 115
Buenas tardes amigo, gracias

Buenas tardes amigo, gracias por su respuesta, la verdad es que entiendo poco de programacion, este codigo me lo pasaron en una ayuda anterior, la macro deberia buscar el archivo prueba.txt dentro del directorio de windows, en caso de encontrarlo abrir el archivo y en caso de que no lo encuentre cerrar el archivo de excel....

Si ve usted algo errado, podria ayudarme enunciando nuevamente el codigo?

una vez mas gracias, aguardo su comentario.