Mantener protegidos los encabezados

[Felipe Hernández Huerta]

Buenas tardes:

Tengo una hoja protegida en donde voy agregando datos nuevos a partir de la fila 10 pero a la hora que ingreso un nuevo dato por lógica la tengo que desproteger y quedan vulnerables los rangos donde tengo los encabezados por lo que pueden ser borrados o editados. Lo que se pretende es que este rango de celdas esté siempre protegido aunque sea desprotegida la hoja.

Estoy pensando en mantener siempre protegido el rango de la A1:G9, pero dentro de este rango cada vez que se desprotega la hoja deberán quedar libres las celdas de la B4 a la F4, para poder ingresar nuevos datos.

Espero los valiosos comentarios y aportes.

Gracias de antemano por su interés y apoyo.

Saludos

Proteger encabezados.xls

[bigpetroman]

amigo no entiendo tu duda, así como lo tienes creo que está bien, tienes todo protegido menos las celdas en amarillo (que es donde se ingresa los datos), entonces?, cual es la duda?, si los datos se actualizan con una macro, la macro debería desbloquear la hoja, actualizar y luego bloquear nuevamente la hoja, mientras se hace eso no se puede modificar mas nada, osea sigo sin entender la duda????

[viejo]

hola perdon la intromision te sugiero utilices la grabadora de macros, graba una macro cuando "protejes" y otra cuando "desprotejes" y cuando llenes los datos obviamente mandas llamar la desprotejes y cuando terminen de insertar datos pues la protejes, creo que eso fue lo que entendi que quieres

[Felipe Hernández Huerta]

Hola gracias por su interés, pero no se trata solo de proteger y desproteger rangos de celdas, eso lo tengo mas que dominado.

Les envío otro archivo y para que me entiendan necesito que a hagan lo siguiente, paso por paso

1° En la Celda B4 tecleo A y doy clip en buscar va a empezar a parpadear el rango B10:F10

2° En el rango C4 a F4 edito cualquier dato

3° Doy clip en modificar y se edita el dato corregido en en la fila 10 y automáticamente se bloquea la hoja

Hasta ese momento todo esta bien no paso nada, pero ahora vamos a empezar de nuevo

1° Tecleamos A en la celda B4, doy clip en buscar y emplieza a parpadear el rang0 B10:F10

2° Ahora edityo el dato que tengo que editar y antes de dar clip en modificar

3° Accidentalmente (que en este caso no tiene nada de accidental, si no que es a propósito) Borro la celda B3 y desaparece mi encabezado de "Proveedores"

4° Doy clip en modificar y se protege mi hoja pero sin encabezado.

Esto es lo que no quiero que suceda, quiero que todo el tiempo permanezcan mis encabezados protegidos para que nadie los borre o edite tanto los de la fila 3 como de la 10

Les mando un nuevo archivo para que procedan como les indico espero que con esto sea suficiente para darme a entender.

Saludos

Proteger encabezados.xls

[bigpetroman]

entonces tu problema es que estas desprotegiendo la hoja antes de lo debido, la hoja debería desprotegerse solamente cuando vayas a actualizar la información, para eso estan las celdas en amarillo desprotegidas (con la hoja protegida), modificas la información y cuando vayas a actualizar desproteges y luegos proteges. revisa el codigo y asegurate de desproteger la hoja solo cuando sea necesario.

[Felipe Hernández Huerta]

Ok bigpetroman, voy a revisar el código y espero corregir esto.

Gracias, saludos

[bigpetroman]

Mira los comentarios que deje en tu codigo de busqueda

Sub BuscarProveedores()

'

' Buscar Macro

'

' Acceso directo: CTRL+f

'

    Application.ScreenUpdating = False

    Sheets("Proveedores").Select

    If Range("B4").Value = "" Then End

    cod = Range("B4").Value

    Sheets("Proveedores").Visible = xlSheetVisible

    Sheets("Proveedores").Select

    'AQUI ESTÁS DESPROTEGIENDO LA HOJA

    ActiveSheet.Unprotect ""

    Range("B10").Select


    While ActiveCell.Value <> ""

        If ActiveCell.Value = cod Then

            Range(Selection, Selection.End(xlToRight)).Select

            Selection.Copy

            Sheets("Proveedores").Select

            Range("B4").Select

            Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _

                :=False, Transpose:=False

            Range("J1").Value = Range("B4").Value

        End If

        'AQUI SI SE CUMPLE LA CONDICION SALES DEL PROCEDIMIENTO, PERO LA HOJA SIGUE DESBLOQUEADA

        'AQUI PUEDE ESTAR EL PROBLEMA, PUDIERAS CAMBIAR ESO POR

        'If ActiveCell.Value = cod Then

        '    ActiveSheet.Protect ""

        '    End

        'End If

        'Y ASI BLOQUEAS LA HOJA ANTES DE SALIR, CREO QUE CON ESO SERIA SUFICIENTE

        If ActiveCell.Value = cod Then End

        ActiveCell.Offset(1, 0).Select

    Wend


    Sheets("Proveedores").Select

    MsgBox prompt:="EL CODIGO NO EXISTE", Buttons:=vbOKOnly, Title:="ERROR"

    Application.ScreenUpdating = True

    ActiveSheet.Protect ""

End Sub[/CODE]

suerte