Proteger y desproteger libro desde otra hoja de excel

2 envíos / 0 nuevos
Último envío
Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Proteger y desproteger libro desde otra hoja de excel

Hola:

Como puedo proteger y desproteger otro libro desde otro libro de excel?

O sea abro mi libro de excel "X" y tambien abro mi libro de excel "Y" y bueno el archivo "Y" me pide contraseña para desproteger y poder hacer cambios, y tambien como seria para que una vez realizados los cambios vuelva al libro "X" y lo vuelva a proteger?

Este es el codigo que estoy usando para pasar datos a otro libro de excel

hojita = ComboBox2.Value
Workbooks(librok).Sheets(hojita).Cells(a8).End(xlDown).Select

ActiveSheet.Range("A8").End(xlDown).Select
Dim Ultimafila As Long
Ultimafila = Range("A65536").End(xlUp).Row
Rows(ActiveCell.Row + 1).Insert

libre = Workbooks(librok).Sheets(hojita).Range("A65536").End(xlUp).Row + 1
Workbooks(librok).Sheets(hojita).Cells(libre, 1).Rows(Row + 1).Insert

Workbooks(librok).Sheets(hojita).Cells(libre, 1).Value = TextBox2.Text 'T/C
Workbooks(librok).Sheets(hojita).Cells(libre, 2).Value = ComboBox1.Text 'FP
Workbooks(librok).Sheets(hojita).Cells(libre, 3).Value = ComboBox2.Text 'CTE
Workbooks(librok).Sheets(hojita).Cells(libre, 11).Value = TextBox15.Text 'bs

Gracias

Saludos

Jesús

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 2 días 22 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Protect Unprotect

El libro y las hojas tienen unos métodos Protect y Unprotect que protegen y desprotegen el contenido.

 

Worbooks(libroX).Protect "tucontraseña"

 

ni qué decir tiene que poner las contraseñas en el código es algo, digamos, poco seguro, aunque no es más inseguro que tener la contraseña en un postit amarillo pegado en la pantalla ¿no crees?

 

------
Ya sé Excel, pero necesito más.