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