Como proterger hojas desde visual basic

René,

Te paso código:
ActiveWorkbook.Protect Password:="RENE54"
Sheets("Sheet1").Protect Password:="RENE54"
anotas el nombre del libro y de la hoja y el password que quieras.

Espero te sirva.
Un saludo.
Jorge

"Rene Palacios" wrote:

Como puedo en mi libro q tiene varias hojas protegerlo desde visual basic y a
la vez desprotegerlo pero con diferentes claves y si el libro tambien se
puede proteger y desproteger desde ahi cuales son los pasos espero me ayuden

Gracias

Supongamos q mi libro se llame Dany1 donde lo pongo en el libro y si este
tuviera 15 hojas q se llamaran hoja1, hoja 2 y asi donde irian en el codigo
con su respectivo password es q no soy muy experto q digamos

Gracias

"" wrote:

René,

Te paso código:
ActiveWorkbook.Protect Password:="RENE54"
Sheets("Sheet1").Protect Password:="RENE54"
anotas el nombre del libro y de la hoja y el password que quieras.

Espero te sirva.
Un saludo.
Jorge

"Rene Palacios" wrote:

> Como puedo en mi libro q tiene varias hojas protegerlo desde visual basic y a
> la vez desprotegerlo pero con diferentes claves y si el libro tambien se
> puede proteger y desproteger desde ahi cuales son los pasos espero me ayuden
>
> Gracias

Rene,

Ya te puse la respuesta a tu pregunta hace mucho tiempo mas abajo. Aqui te
la vuelvo a poner:

Rene,

Antes q nada decirte q no es mas seguro proteger atravez de VBA q
manualmente, es mas no es para nada seguro. El Internet esta lleno de
aplicaciones grtuitas y de pago q rompen cualquier proteccion de
aplicaciones de MS Office en cuestion de segundos. Aqui tienes todos lo
macros necesarios para protejer/desprotejer hojas/libro. Paso a paso:

1) vas al editor VBA e insertas un nuevo modulo. A continuacion copias la
primera parte del codigo y la pegas en el modulo recien creado:

'Inicio del codigo para Modulo1--
Global Const Pass = "rene"
'Esta es la variable de contrasena

Sub ProtejerHojasTodas()
'Este macro proteje todas las
'hojas del libro
For Each s In ThisWorkbook.Sheets
s.Protect Pass
Next s
End Sub

Sub DesprotejerHojasTodas()
'Este macro desproteje todas las
'hojas del libro
For Each s In ThisWorkbook.Sheets
s.Unprotect Pass
Next s
End Sub

Sub ProtejerHojas()
'Este macro proteje las 3 primeras
'hojas del libro
For s = 1 To 3
ThisWorkbook.Sheets(s).Protect Pass
Next s
End Sub

Sub DesprotejerHojas()
'Este macro desproteje las 3 primeras
'hojas del libro
For s = 1 To 3
ThisWorkbook.Sheets(s).Unprotect Pass
Next s
End Sub

Sub ProtejerHojasSelectas()
'Este macro proteje las 3 primeras
'hojas del libro
Dim MyArray As Variant
MyArray = Array(1, 5, 7, 12)
' tambien: MyArray = Array("Hoja1",
'"Hoja5", "Hoja7", "Hoja12")
For Each i In MyArray
ThisWorkbook.Sheets(i).Protect Pass
Next i
End Sub

Sub DesprotejerHojasSelectas()
'Este macro desproteje las hojas
'seleccionadas por numero o por nombre
Dim MyArray As Variant
MyArray = Array(1, 5, 7, 12)
' tambien: MyArray = Array("Hoja1",
'"Hoja5", "Hoja7", "Hoja12")
For Each i In MyArray
ThisWorkbook.Sheets(i).Unprotect Pass
Next i
End Sub

Sub ProtejerLibro()
'Este macro proteje el libro
ThisWorkbook.Protect Pass
End Sub

Sub DesprotejerLibro()
'Este macro desproteje el libro
ThisWorkbook.Unprotect Pass
End Sub
'Final del codigo para Modulo1--

Despues copias el codigo de abajo y lo pegas en el modulo de Workbook (este
es un ejemplo - tu puedes elegir entre los macros de arriba

'--Inicio del codigo-ejemplo para Workbook-
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ProtejerHojasTodas
End Sub

Private Sub Workbook_Open()
Call ProtejerHojasTodas
End Sub
'--Final del codigo-ejemplo para Workbook-

KL
"Rene Palacios" wrote in message
news:

Supongamos q mi libro se llame Dany1 donde lo pongo en el libro y si este
tuviera 15 hojas q se llamaran hoja1, hoja 2 y asi donde irian en el
codigo
con su respectivo password es q no soy muy experto q digamos

Gracias

"" wrote:

Rene,

Te paso codigo:
ActiveWorkbook.Protect Password:="RENE54"
Sheets("Sheet1").Protect Password:="RENE54"
anotas el nombre del libro y de la hoja y el password que quieras.

Espero te sirva.
Un saludo.
Jorge

"Rene Palacios" wrote:

> Como puedo en mi libro q tiene varias hojas protegerlo desde visual
> basic y a
> la vez desprotegerlo pero con diferentes claves y si el libro tambien
> se
> puede proteger y desproteger desde ahi cuales son los pasos espero me
> ayuden
>
> Gracias

El mismo codigo con unas pequenas correcciones en los comentarios del mismo:

'Inicio del codigo para Modulo1--
Global Const Pass = "rene"
'Esta es la constante de contrasena. Puedes cambiarla a la contrasena q te
guste

Sub ProtejerHojasTodas()
'Este macro proteje todas las
'hojas del libro
For Each s In ThisWorkbook.Sheets
s.Protect Pass
Next s
End Sub

Sub DesprotejerHojasTodas()
'Este macro desproteje todas las
'hojas del libro
For Each s In ThisWorkbook.Sheets
s.Unprotect Pass
Next s
End Sub

Sub ProtejerHojas()
'Este macro proteje las 3 primeras
'hojas del libro
For s = 1 To 3
ThisWorkbook.Sheets(s).Protect Pass
Next s
End Sub

Sub DesprotejerHojas()
'Este macro desproteje las 3 primeras
'hojas del libro
For s = 1 To 3
ThisWorkbook.Sheets(s).Unprotect Pass
Next s
End Sub

Sub ProtejerHojasSelectas()
'Este macro proteje las hojas
'seleccionadas por numero o por nombre
Dim MyArray As Variant
MyArray = Array(1, 5, 7, 12)
' tambien: MyArray = Array("Hoja1",
'"Hoja5", "Hoja7", "Hoja12")
For Each i In MyArray
ThisWorkbook.Sheets(i).Protect Pass
Next i
End Sub

Sub DesprotejerHojasSelectas()
'Este macro desproteje las hojas
'seleccionadas por numero o por nombre
Dim MyArray As Variant
MyArray = Array(1, 5, 7, 12)
' tambien: MyArray = Array("Hoja1",
'"Hoja5", "Hoja7", "Hoja12")
For Each i In MyArray
ThisWorkbook.Sheets(i).Unprotect Pass
Next i
End Sub

Sub ProtejerLibro()
'Este macro proteje el libro
ThisWorkbook.Protect Pass
End Sub

Sub DesprotejerLibro()
'Este macro desproteje el libro
ThisWorkbook.Unprotect Pass
End Sub
'Final del codigo para Modulo1--

Despues copias el codigo de abajo y lo pegas en el modulo de Workbook (este
es un ejemplo - tu puedes elegir entre los macros de arriba

'--Inicio del codigo-ejemplo para Workbook-
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ProtejerHojasTodas
End Sub

Private Sub Workbook_Open()
Call ProtejerHojasTodas
End Sub
'--Final del codigo-ejemplo para Workbook-

KL
"KL" wrote in message
news:e1KlX%

Rene,

Ya te puse la respuesta a tu pregunta hace mucho tiempo mas abajo. Aqui te
la vuelvo a poner:

Rene,

Antes q nada decirte q no es mas seguro proteger atravez de VBA q
manualmente, es mas no es para nada seguro. El Internet esta lleno de
aplicaciones grtuitas y de pago q rompen cualquier proteccion de
aplicaciones de MS Office en cuestion de segundos. Aqui tienes todos lo
macros necesarios para protejer/desprotejer hojas/libro. Paso a paso:

1) vas al editor VBA e insertas un nuevo modulo. A continuacion copias la
primera parte del codigo y la pegas en el modulo recien creado:

'Inicio del codigo para Modulo1--
Global Const Pass = "rene"
'Esta es la variable de contrasena

Sub ProtejerHojasTodas()
'Este macro proteje todas las
'hojas del libro
For Each s In ThisWorkbook.Sheets
s.Protect Pass
Next s
End Sub

Sub DesprotejerHojasTodas()
'Este macro desproteje todas las
'hojas del libro
For Each s In ThisWorkbook.Sheets
s.Unprotect Pass
Next s
End Sub

Sub ProtejerHojas()
'Este macro proteje las 3 primeras
'hojas del libro
For s = 1 To 3
ThisWorkbook.Sheets(s).Protect Pass
Next s
End Sub

Sub DesprotejerHojas()
'Este macro desproteje las 3 primeras
'hojas del libro
For s = 1 To 3
ThisWorkbook.Sheets(s).Unprotect Pass
Next s
End Sub

Sub ProtejerHojasSelectas()
'Este macro proteje las 3 primeras
'hojas del libro
Dim MyArray As Variant
MyArray = Array(1, 5, 7, 12)
' tambien: MyArray = Array("Hoja1",
'"Hoja5", "Hoja7", "Hoja12")
For Each i In MyArray
ThisWorkbook.Sheets(i).Protect Pass
Next i
End Sub

Sub DesprotejerHojasSelectas()
'Este macro desproteje las hojas
'seleccionadas por numero o por nombre
Dim MyArray As Variant
MyArray = Array(1, 5, 7, 12)
' tambien: MyArray = Array("Hoja1",
'"Hoja5", "Hoja7", "Hoja12")
For Each i In MyArray
ThisWorkbook.Sheets(i).Unprotect Pass
Next i
End Sub

Sub ProtejerLibro()
'Este macro proteje el libro
ThisWorkbook.Protect Pass
End Sub

Sub DesprotejerLibro()
'Este macro desproteje el libro
ThisWorkbook.Unprotect Pass
End Sub
'Final del codigo para Modulo1--

Despues copias el codigo de abajo y lo pegas en el modulo de Workbook
(este
es un ejemplo - tu puedes elegir entre los macros de arriba

'--Inicio del codigo-ejemplo para Workbook-
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ProtejerHojasTodas
End Sub

Private Sub Workbook_Open()
Call ProtejerHojasTodas
End Sub
'--Final del codigo-ejemplo para Workbook-

KL
"Rene Palacios" wrote in message
news:

Supongamos q mi libro se llame Dany1 donde lo pongo en el libro y si este
tuviera 15 hojas q se llamaran hoja1, hoja 2 y asi donde irian en el
codigo
con su respectivo password es q no soy muy experto q digamos

Gracias

"" wrote:

Rene,

Te paso codigo:
ActiveWorkbook.Protect Password:="RENE54"
Sheets("Sheet1").Protect Password:="RENE54"
anotas el nombre del libro y de la hoja y el password que quieras.

Espero te sirva.
Un saludo.
Jorge

"Rene Palacios" wrote:

> Como puedo en mi libro q tiene varias hojas protegerlo desde visual
> basic y a
> la vez desprotegerlo pero con diferentes claves y si el libro tambien
> se
> puede proteger y desproteger desde ahi cuales son los pasos espero me
> ayuden
>
> Gracias