title: Powerpoint Protected Mode with Disabled Ribbon - Automated in Delphi
body: <p>I am looking for a way to protect powerpoint presentations via Automation using Delphi.<br>
  In Word, I can issue this command:</p>
  
  <pre><code>  If (WordDocument.ProtectionType = wdNoProtection)
      Then WordDocument.Protect (3, VarTrue, VarProtectPass);
  </code></pre>
  
  <p>In Excel, I can issue this command:  </p>
  
  <pre><code>  { If the file was NOT protected, then protect it }
    For SheetIndex := 1 To ExcelWorkbook.Sheets.Count Do Begin
  
      VarSheet := SheetIndex;
  
      { Connect to the work sheet }
      ExcelWorksheet.ConnectTo (ExcelWorkbook.Worksheets.Item [VarSheet] As _Worksheet);
  
      ExcelWorksheet.Protect ()...
  </code></pre>
  
  <p>The problem is that I cannot find a way to do this using the OfficeXP.pas components.  We are running Office 2010 on various systems.  Any ideas?</p>
  
  <p>What I need is to open powerpoint up with the presentation, 
  1)  For MenuItem1, Disallow any editting by the user.  Also, disallow them to re-save it somewhere else.
  2)  For MenuItem2, Allow the user to edit the presentation.</p>