数式を含むセルをロックするにはどうすればよいですか？

Question

私は従業員に記入するワークシートを持っています。ロックしたいセルを計算しましたので、変更できません。私はセルと選択されたプロパティを選択し、 "ロック"チェックボックスがオンになっていることを確認しました。ワークシート/ワークブックを保護すると、「csvへのエクスポート」マクロボタンが機能しなくなりました。私はワークブックには、このVBコードを挿入完了するマクロを有効にするには：

Private Sub Workbook_Open() 

Dim wSheet As Worksheet 
For Each wSheet In Worksheets 

    wSheet.Protect Password:="password", _ 
    UserInterFaceOnly:=True 

Next wSheet 


End Sub 

これは私のロック式は、彼らがロックされていても編集することができるようにすることを可能にする意図せぬ副作用が働いていたが、持っていました。非数式値を含むセルだけがロックされたままです。マクロを許可しても式セルをロックする正しい方法は何ですか？

Answer 1

私の解決策は、ワークブック全体とワークシートをロックしてから、VBボタンにロックを無効にしてからマクロを再度有効にすることでした。同様に：

Sub MyMacro() 

Sheet1.Unprotect Password:="password" 

    'insert code here 

    Sheet1.Protect Password:="password" 

End Sub 

私はWorkbook_Openコードを削除しました。