¿Bloquear cada objeto en toda la cubierta de keynote usando applescript?

Estoy tratando de usar un applescript para bloquear cada objeto a través de cada diapositiva de una cubierta de keynote, con sólo un éxito parcial. He proporcionado el código que estoy utilizando a continuación. Hasta ahora funciona, pero parece que se salta cualquier objeto que esté agrupado. ¿Hay alguna manera de decirle al script que incluya también los objetos agrupados?

tell application "Keynote"
    tell document 1
        tell every text item of every slide
            set locked to true
        end tell
        tell every shape of every slide
            set locked to true
        end tell
        tell every image of every slide
            set locked to true
        end tell
        tell every movie of every slide
            set locked to true
        end tell
        tell every line of every slide
            set locked to true
        end tell
        tell every item of every slide
            set locked to true
        end tell
    end tell
end tell

La intención es hacer que el contenido de cada diapositiva esté bloqueado, a excepción de las notas del presentador. Ni siquiera estoy seguro de que esto se pueda hacer, así que agradecería cualquier ayuda al respecto. Gracias de antemano.