Macro Excel Proteger Hojas con modificar opciones

1 post / 0 nuevos
avaro
Imagen de avaro
Offline
última acción: Hace 11 meses 2 semanas
alta: 03/12/2016 - 14:28
Puntos: 50
Macro Excel Proteger Hojas con modificar opciones

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