If not PROTECT is initial.
        Data: Sht    type OLE2_OBJECT,
              ItmSht type OLE2_OBJECT,
              CntSht type i,
              Num type i.
        Num = 0.
        Call method of Item 'Worksheets' = Sht.
        Get property of Sht 'Count' = CntSht.
        Do CntSht times.
          Num = Num + 1.
          Call method of Sht 'Item' = ItmSht
            EXPORTING
              #1 = Num.
          Call method of ItmSht 'Protect'
            EXPORTING
              #1 = sy-timlo " Password
              #2 = 1 " DrawingObjects = True
              #3 = 1 " Contents = True
              #4 = 1." Scenarios = True
        EndDo.
        CALL FUNCTION 'FLUSH'.
      EndIf.