Sentencia para proteger y desproteger mediante contraseña ???

Una cuestión de entrada: Para proteger/desproteger hojas/libros no son
necesarias macros.

Coge cualquiera de tus hojas, selecciónala toda, haz Menú / Formato /
Formato / Celdas, y en la pestaña 'Proteger', marca las opciones
'Bloqueada' y 'Oculta', y acepta. Después, elecciona el rango A1:A7,
por ejemplo, vuelve a hacer Menú / Formato / Celdas y desmarca las
opciones 'Bloqueada' y 'Oculta'.

A continuación, haz Menú / Herramientas / Proteger / Proteger Hoja: en
el recuadro 'Contraseña para desproteger la hoja:' introduce una que
sólo tú sepas, y acepta.

Si todo ha ido bien, los usuarios SÓLO podrán introducir datos en
A1:A7. En el resto de la hoja no sólo no podrán modificar nada de
nada, sino que ni siquiera verán qué fórmula/s hay introducida/s. Por
supuesto, tampoco podrán insertar/eliminar filas/columnas, ni borrar
datos.

:-)

Este método permite modificar celdas protegidas desde VBA, pero no "a mano" por parte del usuario.

Private Sub Workbook_Open()
Worksheets("Hoja1").Protect Password:="abracadabra", UserInterfaceOnly:=True
End Sub


Saludos desde Tenerife.
**********************************
"JC" escribió en el mensaje news:
Muchas y Sinceras Gracias Victor,

Pero si que me hace falta una sentencia para proteger con contraseña, para
poderla poner al inicio y al final de cada macro.
Como vine a comentar (no muy extensamente, perdón) fué que, se trata de un
libro, donde se va navegando, por medio de macros relacionadas a botones, por
varias hojas, las cuales hacen filtros y consulta de datos en una tabla
general. El paso por las diferentes hojas es "transparente" a los usuarios ya
que tengo desactivadas las solapas de hojas, así como el encabazamiento de
filas y columnas, el desplazamiento horiz. y vert., etc.
Lo que tan amablemente comentas, es lo que tenía hasta el momento, con los
mandatos que adjuntaba en mi primer post, que es del todo inutil, según os
decía, una vez que se han aprendido el "truco".

Disculpa si insisto en mi necesidad de encontrar algún comando que me
facilite la operación que ya he descrito.

Gracias y un fuerte abrazo Victor.

JC

"" wrote:

> Una cuestión de entrada: Para proteger/desproteger hojas/libros no son
> necesarias macros.
>
> Coge cualquiera de tus hojas, selecciónala toda, haz Menú / Formato /
> Formato / Celdas, y en la pestaña 'Proteger', marca las opciones
> 'Bloqueada' y 'Oculta', y acepta. Después, elecciona el rango A1:A7,
> por ejemplo, vuelve a hacer Menú / Formato / Celdas y desmarca las
> opciones 'Bloqueada' y 'Oculta'.
>
> A continuación, haz Menú / Herramientas / Proteger / Proteger Hoja: en
> el recuadro 'Contraseña para desproteger la hoja:' introduce una que
> sólo tú sepas, y acepta.
>
> Si todo ha ido bien, los usuarios SÓLO podrán introducir datos en
> A1:A7. En el resto de la hoja no sólo no podrán modificar nada de
> nada, sino que ni siquiera verán qué fórmula/s hay introducida/s. Por
> supuesto, tampoco podrán insertar/eliminar filas/columnas, ni borrar
> datos.
>
> :-)
>
>

Hola Canarias:

Y disculpa la demora, pero he intentado varias variantes de tu solución y
no me funciona ninguna.

Y la verdad es que pinta muy bien, pero no hace nada. Puedes modificar
cualquier celda de las "HojasProtegidas".

Gracias no obstante, por tu esfuerzo e interés AnSanVal, te estoy real y
sinceramente agradecido.

Un saludo

JC

"AnSanVal" wrote:

> Este método permite modificar celdas protegidas desde VBA, pero no "a mano" por parte del usuario.
>
> Private Sub Workbook_Open()
> Worksheets("Hoja1").Protect Password:="abracadabra", UserInterfaceOnly:=True
> End Sub
>
>
> Saludos desde Tenerife.
> **********************************
> "JC" escribió en el mensaje news:
> Muchas y Sinceras Gracias Victor,
>
> Pero si que me hace falta una sentencia para proteger con contraseña, para
> poderla poner al inicio y al final de cada macro.
> Como vine a comentar (no muy extensamente, perdón) fué que, se trata de un
> libro, donde se va navegando, por medio de macros relacionadas a botones, por
> varias hojas, las cuales hacen filtros y consulta de datos en una tabla
> general. El paso por las diferentes hojas es "transparente" a los usuarios ya
> que tengo desactivadas las solapas de hojas, así como el encabazamiento de
> filas y columnas, el desplazamiento horiz. y vert., etc.
> Lo que tan amablemente comentas, es lo que tenía hasta el momento, con los
> mandatos que adjuntaba en mi primer post, que es del todo inutil, según os
> decía, una vez que se han aprendido el "truco".
>
> Disculpa si insisto en mi necesidad de encontrar algún comando que me
> facilite la operación que ya he descrito.
>
> Gracias y un fuerte abrazo Victor.
>
> JC
>
> "" wrote:
>
> > Una cuestión de entrada: Para proteger/desproteger hojas/libros no son
> > necesarias macros.
> >
> > Coge cualquiera de tus hojas, selecciónala toda, haz Menú / Formato /
> > Formato / Celdas, y en la pestaña 'Proteger', marca las opciones
> > 'Bloqueada' y 'Oculta', y acepta. Después, elecciona el rango A1:A7,
> > por ejemplo, vuelve a hacer Menú / Formato / Celdas y desmarca las
> > opciones 'Bloqueada' y 'Oculta'.
> >
> > A continuación, haz Menú / Herramientas / Proteger / Proteger Hoja: en
> > el recuadro 'Contraseña para desproteger la hoja:' introduce una que
> > sólo tú sepas, y acepta.
> >
> > Si todo ha ido bien, los usuarios SÓLO podrán introducir datos en
> > A1:A7. En el resto de la hoja no sólo no podrán modificar nada de
> > nada, sino que ni siquiera verán qué fórmula/s hay introducida/s. Por
> > supuesto, tampoco podrán insertar/eliminar filas/columnas, ni borrar
> > datos.
> >
> > :-)
> >
> >

Algún/os paso/s te dejas en en el camino la solución está probada y funciona.

La hoja debe estar protegida y las celdas deben estar bloqueadas.
El código debe ir en el módulo ThisWorkbook (NO en menú>Insertar>Módulo).
Debes proteger la hoja, guardar los cambios, cerrar el libro y volver a
abrirlo.
Permite escribir mediante VBA en cualquier celda, pero NO "a mano"
directamente en la celda.

De momento no se me ocurren otras posibilidades, en que puedas estar fallando.

Un saludo desde Tenerife (España).


"JC" escribió:

> Hola Canarias:
>
> Y disculpa la demora, pero he intentado varias variantes de tu solución y
> no me funciona ninguna.
>
> Y la verdad es que pinta muy bien, pero no hace nada. Puedes modificar
> cualquier celda de las "HojasProtegidas".
>
> Gracias no obstante, por tu esfuerzo e interés AnSanVal, te estoy real y
> sinceramente agradecido.
>
> Un saludo
>
> JC
>
> "AnSanVal" wrote:
>
> > Este método permite modificar celdas protegidas desde VBA, pero no "a mano" por parte del usuario.
> >
> > Private Sub Workbook_Open()
> > Worksheets("Hoja1").Protect Password:="abracadabra", UserInterfaceOnly:=True
> > End Sub
> >
> >
> > Saludos desde Tenerife.
> > **********************************
> > "JC" escribió en el mensaje news:
> > Muchas y Sinceras Gracias Victor,
> >
> > Pero si que me hace falta una sentencia para proteger con contraseña, para
> > poderla poner al inicio y al final de cada macro.
> > Como vine a comentar (no muy extensamente, perdón) fué que, se trata de un
> > libro, donde se va navegando, por medio de macros relacionadas a botones, por
> > varias hojas, las cuales hacen filtros y consulta de datos en una tabla
> > general. El paso por las diferentes hojas es "transparente" a los usuarios ya
> > que tengo desactivadas las solapas de hojas, así como el encabazamiento de
> > filas y columnas, el desplazamiento horiz. y vert., etc.
> > Lo que tan amablemente comentas, es lo que tenía hasta el momento, con los
> > mandatos que adjuntaba en mi primer post, que es del todo inutil, según os
> > decía, una vez que se han aprendido el "truco".
> >
> > Disculpa si insisto en mi necesidad de encontrar algún comando que me
> > facilite la operación que ya he descrito.
> >
> > Gracias y un fuerte abrazo Victor.
> >
> > JC
> >
> > "" wrote:
> >
> > > Una cuestión de entrada: Para proteger/desproteger hojas/libros no son
> > > necesarias macros.
> > >
> > > Coge cualquiera de tus hojas, selecciónala toda, haz Menú / Formato /
> > > Formato / Celdas, y en la pestaña 'Proteger', marca las opciones
> > > 'Bloqueada' y 'Oculta', y acepta. Después, elecciona el rango A1:A7,
> > > por ejemplo, vuelve a hacer Menú / Formato / Celdas y desmarca las
> > > opciones 'Bloqueada' y 'Oculta'.
> > >
> > > A continuación, haz Menú / Herramientas / Proteger / Proteger Hoja: en
> > > el recuadro 'Contraseña para desproteger la hoja:' introduce una que
> > > sólo tú sepas, y acepta.
> > >
> > > Si todo ha ido bien, los usuarios SÓLO podrán introducir datos en
> > > A1:A7. En el resto de la hoja no sólo no podrán modificar nada de
> > > nada, sino que ni siquiera verán qué fórmula/s hay introducida/s. Por
> > > supuesto, tampoco podrán insertar/eliminar filas/columnas, ni borrar
> > > datos.
> > >
> > > :-)
> > >
> > >