Ayudemen porq sino me despiden

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-

Nota Importante: Cuando hayas copiado los macros a sus respectivos modulos,
vigila - si hay texto en rojo es q algunas lineas se han interrumpido al
copiar y hay q restablecer su continuidad. El texto q aparecera en verde
seran las explicaciones q te he puesto.

Suerte,
KL

"Rene Palacios" <Rene wrote in message
news:

hola q tal espero em puedan ayudar me dieron el dato de este foro:

Me estan pidiendo varias cosas en excel q no se como hacer he probado pero
nada
En un libro q tengo me piden q en determinadas hojas solo aparezca le
barra
de desplazamiento horizontal mas no la vertical y viceversa lo hice desde
opciones pero mi jefe dice q cualquiera lo puede modificar hay alguna otra
forma de hacerlo sin q pase esto?
Espero q me puedan ayudar, si lo pudieran hacer les agradeceria q me digan
paso a paso porq recien empiezo en excel y otra consulta me dicen q puedo
desproteger hojas y desprotegerlas pero en visual basic yo tengo varias
hojas
como se hace eso, el libro tambien se puede desproteger y desproteger
desde
ahi tambien, como se hace? es mas seguro hacerlo desde ahi? por favor no
quiero perder mi trabajo gracias de antemano