Macro Excel Proteger hojas con modificar objetos

2 envíos / 0 nuevos
Último envío
avaro
Imagen de avaro
Offline
última acción: Hace 3 años 10 meses
alta: 03/12/2016 - 14:28
Puntos: 50
Macro Excel Proteger hojas con modificar objetos

Hola, tengo una macro para proteger todas las hojas a la vez, pero necesito incluir por defecto el Permitir modificar objetos. De una respuesta a otro usuario he pegado el comando: "UserInterFaceOnly:=True, AllowFormattingCells:=True" pero algo me falla porque no genera el efecto deseado. A lo mejor no lo hago en el lugar adecuado?

La macro es la siguiente:

Sub ProtegerHojas2()

Dim i As Integer, contr As String

contr = InputBox("Contraseña para proteger las hojas")

    For i = 1 To Sheets.Count

        Sheets(i).Protect Password:=contr

    Next i

 

End Sub


Gracias de antemano

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 3 meses 2 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12715
Prueba sustituyendo tu

Prueba sustituyendo tu expresión:

        Sheets(i).Protect Password:=contr

por esta otra:

        Sheets(i).Protect Password:=contr DrawingObjects:=False, Contents:=True, Scenarios:= True