............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Ajustar Macro

Ver el tema anterior Ver el tema siguiente Ir abajo

Ajustar Macro

Mensaje por Azu el Lun Ago 31, 2009 6:13 pm

Hola Compañeros, tengo una macro que me bloquea la columna A y a su vez cuando introducimos datos en una celda de la columna 22 bloquea toda esa fila para que no pueda ser modificada, evidentemente esta macro funciona con la hoja protegida, mi problema es que cuando introduzco datos en una celda de la columna 22 se abre un mensaje que dice DESPROTEGER HOJA solicitandome el password, se lo pongo y entonces bloquea la fila y a partir de ese momento ya no me lo vuelve a solicitar funcionando correctamente la macro solo ocurre la primera vez que pongo datos despues de proteger la hoja

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 22 Then Exit Sub
If Target.Row < 5 Then Exit Sub
If Target = "" Then
Rows(Target.Row & ":" & Target.Row).Locked = False
Range("A" & Target.Row).Locked = True
GoTo Salto
End If
ActiveSheet.Unprotect
Rows(Target.Row & ":" & Target.Row).Locked = True
Salto:
ActiveSheet.Protect
End Sub

necesito vuestra sabiduria ya que esta no la monte yo y no se bien como funciona, todavia mis conocimientos son bajos

Un saludo de la nueva

Azu

Femenino Cantidad de envíos : 38
Edad : 41
Ciudad - Pais : Valencia
Version de Excel : 2007
Fecha de inscripción : 14/07/2009

Volver arriba Ir abajo

Re: Ajustar Macro

Mensaje por GalileoGali el Lun Ago 31, 2009 8:13 pm

Envia la hoja del archivo para la que esta definida esta macro, hace falta ver algo mas....

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ajustar Macro

Mensaje por Azu el Mar Sep 01, 2009 11:09 am

Ok gali, te envio el vinculo

[Tienes que estar registrado y conectado para ver este vínculo]

Azu

Femenino Cantidad de envíos : 38
Edad : 41
Ciudad - Pais : Valencia
Version de Excel : 2007
Fecha de inscripción : 14/07/2009

Volver arriba Ir abajo

Re: Ajustar Macro

Mensaje por GalileoGali el Mar Sep 01, 2009 9:19 pm

Prueba esto

Código:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim strPASSW As String
    If Target.Column <> 22 Then Exit Sub
    If Target.Row < 5 Then Exit Sub
    If Target = "" Then
        Rows(Target.Row & ":" & Target.Row).Locked = False
        Range("A" & Target.Row).Locked = True
        GoTo Salto
    End If
    strPASSW = InputBox("Escriba la contraseña", "Desproteger")
    If Len(strPASSW) = 0 Or strPASSW <> "1" Then
        MsgBox "La contraseña es incorrecta"
        Application.EnableEvents = False
        Target.ClearContents
        Application.EnableEvents = True
        Target.Offset(-1, 0).Activate
    Else
        ActiveSheet.Unprotect strPASSW
        Rows(Target.Row & ":" & Target.Row).Locked = True
    End If
Salto:
    ActiveSheet.Protect "1" 'aca iria la contraseña REAL
End Sub

Para simplificar utilizo un InputBox, pero mejor seria un Userform

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ajustar Macro

Mensaje por Azu el Miér Sep 02, 2009 1:25 pm

Hola Gali, tu solucion es genial, pero justamente lo contrario de lo que deseo, siento las molestias posiblemente no me explique bien, lo que necesito es que se bloquee la fila al introducir un dato en la celda sin que salga ningun MsgBox pidiendo la contraseña o sea que se bloquee automaticamente, te ruego me perdones por mis explicaciones aunque tu solución la guadaré para otro proyecto que tengo que realizar y que me va al dedillo.

Azu

Femenino Cantidad de envíos : 38
Edad : 41
Ciudad - Pais : Valencia
Version de Excel : 2007
Fecha de inscripción : 14/07/2009

Volver arriba Ir abajo

Re: Ajustar Macro

Mensaje por GalileoGali el Miér Sep 02, 2009 5:38 pm

Azu escribió:que cuando introduzco datos en una celda de la columna 22 se abre un mensaje que dice DESPROTEGER HOJA solicitandome el password, se lo pongo y entonces bloquea la fila y a partir de ese momento ya no me lo vuelve a solicitar funcionando correctamente la macro solo ocurre la primera vez que pongo datos despues de proteger la hoja

Creo que estaba claro que tu paso 1 ocurria solcitando la PASSWORD y te aquejaba el que esto no volviera a ocurrir en las selecciones sucesivas......

CLARIDAD, POR FAVOR CLARIDAD..... que no causa gracia rehacer y desandar lo hecho, porque no se saben dar a entender

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ajustar Macro

Mensaje por Azu el Miér Sep 02, 2009 8:28 pm

Acepto la reprimenda, lo siento, intentare ser mas clara, porfavor me arreglas la macro.

gracias

Azu

Femenino Cantidad de envíos : 38
Edad : 41
Ciudad - Pais : Valencia
Version de Excel : 2007
Fecha de inscripción : 14/07/2009

Volver arriba Ir abajo

Re: Ajustar Macro

Mensaje por GalileoGali el Jue Sep 03, 2009 7:49 pm

Código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 22 Then Exit Sub
If Target.Row < 5 Then Exit Sub
If Target = "" Then
    Rows(Target.Row & ":" & Target.Row).Locked = False
    Range("A" & Target.Row).Locked = True
    GoTo Salto
End If
    ActiveSheet.Unprotect "1"
    Rows(Target.Row & ":" & Target.Row).Locked = True
Salto:
    ActiveSheet.Protect "1"
End Sub
A ver ahora.......

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ajustar Macro

Mensaje por Azu el Sáb Sep 05, 2009 1:11 pm

Extraordinario, funciona a la perfección, eres un genio
muchas gracias, espero no darte mucho la tabarra, y siento de veras el mal entendido anterios

Besos

Azu

Azu

Femenino Cantidad de envíos : 38
Edad : 41
Ciudad - Pais : Valencia
Version de Excel : 2007
Fecha de inscripción : 14/07/2009

Volver arriba Ir abajo

Re: Ajustar Macro

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.