Macro para porteger todas las hojas del libro
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
3 mensajes
• Página 1 de 1
Macro para porteger todas las hojas del libro
por DanyDaniel » 08 Jun 2006 19:13
Hola todos si me puedes ayudar tengo dos libros uno tiene mas de 100 hojas lo q necesito es con una macro q protega todos las hojas usando un solo password q podria se daniel, el otro libro solo necesito proteger unas 20 hojas de las 80 q hay como podria hacer mediante una macro q protega solo 20 mediante un mismo password gracias de antemano por su ayuda
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
DanyDaniel - Miembro Frecuente
- Registrado: 26 Dic 2004 15:59
- Ubicación: Perú
Re: Macro para porteger todas las hojas del libro
por ST » 08 Jun 2006 19:36
DanyDaniel:
por si te sirve el ejemplo que puse aqui
http://www.exceluciones.com/portal/viewtopic.php?p=22282#22282
por si te sirve el ejemplo que puse aqui
http://www.exceluciones.com/portal/viewtopic.php?p=22282#22282
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
ST - Miembro Frecuente
- Registrado: 06 Jun 2005 17:56
- Ubicación: Acapulco
Re: Macro para porteger todas las hojas del libro
por KL » 09 Jun 2006 07:38
1) Proteger todas. ademas de la solucion de ST, podrias usar otro tipo de bucle:
2) Proteger algunas:
Op1.
Op2.
Op3.
- Código: Seleccionar todo
Sub Proteger()
For Each s In Sheets
s.Protect "daniel"
Next s
End Sub
2) Proteger algunas:
Op1.
- Código: Seleccionar todo
Sub proteger()
Dim i As Long
For i = 5 To 25
Sheets(i).Protect "daniel"
Next i
End Sub
Op2.
- Código: Seleccionar todo
Sub proteger()
Dim i As Long
For i = 1 To 80
Select Case i
Case 2, 6, 11, 12, 34, 41 To 54, 77
Sheets(i).Protect "daniel"
End Select
Next i
End Sub
Op3.
- Código: Seleccionar todo
Sub proteger()
For Each s In Sheets
Select Case s.Name
Case "Hoja1", "Hoja12", "Hoja25"
s.Protect "daniel"
End Select
Next s
End Sub
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
- KL
- Miembro Frecuente
- Registrado: 18 Mar 2006 13:57
- Ubicación: Madrid
Compartir en:
3 mensajes
• Página 1 de 1
-
- Anuncio
¿Quién está conectado?
Usuarios navegando por este Foro: Adrian y 6 invitados
