Proteger hoja
Hola experto, gracias por la ayuda que nos brindan.Mi pregunta es la siguiente:mediante un formulario ingreso datos a una tabla pero la hoja donde esta la tabla esta protegida y cuando deseo ingresar un nuevo campo me aparece erro, como hago para desproteger una hoja y volverla a proteger mediante el formulario sin pedir contraseña. Esta hoja esta protegida para que no modifiquen las fórmulas por que es usada por varias personas. Gracias, espero tu pronta respuesta.
1 respuesta
Respuesta de tavopz
1
Puedes usar el siguiente código al inicio y final del programa, desde luego al inicio para desprotegerlo:
=====
ActiveSheet.Unprotect Password:="xx"
=====
Y al final para protegerlo nuevamente:
=====
ActiveSheet.Protect Password:="xx"
=====
La contraseña a utilizar puedes colocarla directamente en el código y protegerlo para que nadie la descubra, incluso tomarla de un cuadro de texto para que pueda ser modificada de vez en cuando, etc.
=====
ActiveSheet.Unprotect Password:="xx"
=====
Y al final para protegerlo nuevamente:
=====
ActiveSheet.Protect Password:="xx"
=====
La contraseña a utilizar puedes colocarla directamente en el código y protegerlo para que nadie la descubra, incluso tomarla de un cuadro de texto para que pueda ser modificada de vez en cuando, etc.
Hola.. como seria lo de tomarla de un cuadro de texto, como se haría.. gracias
Simplemente tendrías un cuadro de texto en un UserForm o en una hoja oculta del archivo, donde tendrías la contraseña (es más, me parece más fácil dentro de una celda de una hoja).
Y harías algo como:
xx = range("A1").value
ó
xx = textboxX.text
Y harías algo como:
xx = range("A1").value
ó
xx = textboxX.text
