No se por que no me funciona una función FOR NEXT

[MGQ]

Adjunto vba, por que ya no se que probar.
Private Sub Workbook_Open()
Application.EnableEvents = True
Call PerData
End Sub

Private Sub PerData()
Const DateEnd As Date = "14/10/2018"...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Para empezar, explica que es lo que quieres hacer y luego ya veremos el porqué no funciona.

 

[Haplox]

Deja que adivine... :roll:

Pongas o no la contraseña correcta, siempre se cierra el archivo, ¿A que sí?... Creo que es una buena pista, puedes darle una vuelta :wink:

 

[Macro Antonio]

Deja que adivine... :roll:

Pongas o no la contraseña correcta, siempre se cierra el archivo, ¿A que sí?... Creo que es una buena pista, puedes darle una vuelta...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[pontiquio]

Quizás se deba a que el primero de los End If deba ir antes del Next i

 

[Haplox]

Quizás se deba a que el primero de los End If deba ir antes del Next i

Por ahí van los tiros... :lol: , pero es que, tal cuál está, no debe dejarle ni...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[MGQ]

Para empezar, explica que es lo que quieres hacer y luego ya veremos el porqué no funciona.

Perdona, lamento no haver empezado por ahi.
De entrada un saludo a todos, no me...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[MGQ]

Para empezar, explica que es lo que quieres hacer y luego ya veremos el porqué no funciona.

Perdona, lamento no haver empezado por ahi.
De entrada un saludo a...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[MGQ]

Para empezar, explica que es lo que quieres hacer y luego ya veremos el porqué no funciona.

Perdona, lamento no haver empezado por ahi.
De entrada...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Haplox]

Usa y estudia el siguiente código :wink:

Private Sub PerData()
Const DateEnd As Date = "14/10/2018"
Dim pswd As String
Dim i As Byte, contador As Integer

If Date > DateEnd Then...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Mas de lo mismo.

Private Sub Workbook_Open()
Fecha = CDate("14/10/2018"): ContraseñaOK = "0000": Intentos = 3
If Date > Fecha Then
   Do Until Contraseña = ContraseñaOK Or Intentos = 0...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[MGQ]

Usa y estudia el siguiente código :wink:

Private Sub PerData()
Const DateEnd As Date = "14/10/2018"
Dim pswd As String
Dim i As Byte, contador As Integer

If Date > DateEnd...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[MGQ]

Mas de lo mismo.

Private Sub Workbook_Open()
Fecha = CDate("14/10/2018"): ContraseñaOK = "0000": Intentos = 3
If Date > Fecha Then
   Do Until Contraseña = ContraseñaOK Or...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

.
Como diría el Gran Antoni (de la Gente): Más de lo mismo (la única diferencia es que yo lo escribí... ¡con acento!).
:mrgreen: :wink: :lol: :P

Private Sub Workbook_Open()
Fecha =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí