title: Run macro in shared workbook and protect it
body: <p>I want to run a macro in a shared workbook. My macro as below.</p>
  
  <pre><code>Sheets("Sheet1").Unprotect
  Range("A1").Select
  ActiveCell.FormulaR1C1 = "ss"
  Sheets("Sheet1").Protect
  </code></pre>
  
  <p>When I run the macro without sharing it works fine. When share it below error prompts:</p>
  
  <blockquote>
    <p>Unprotect method of Worksheet class failed.</p>
  </blockquote>
  
  <p>Can anyone help to run my macro in shared environment and keep the sheet in protection?</p>