セルの保護を解除する

私は自分のシートをパスワードで保護しており、別のセルに何かをコピーして貼り付けるコードを実行するボタンを使用しようとしていますが、シートはパスワードで保護されています。コードを実行した後、ボタンを使用してシートを再保護するにはどうすればよいですか？ここは、コマンドボタンセルの保護を解除する

Private Sub CommandButton7_Click() 

'-----Output(FR) button------ 

'French Note 
Range("P11").Select Selection.Copy 
Range("P12").Select 
Selection.PasteSpecial Paste:=xlPasteValues 
CheckSpelling 


End Sub

出典

2016-09-15 sjk1193

使用[Worksheet.Protect方法]（https://msdn.microsoft.com/en-us/library/office/ff840611.aspx）をして：私たちは、変更を行い、再度保護し、保護を解除します'UserInterfaceOnly：= True'パラメータです。 – Jeeped

クラスモジュールを使用してワークシートの保護を解除し、クラスインスタンスが閉じられるとすぐにシートを再保護する方法もあります。私は詳細を思い出さず、手続きを取った場所を見つけることができないので、答えとして提示していない。誰かがリコールしてドキュメンテーションを持っていれば、それを親切に共有することができます。 – nbayly

のコードはのは、P12がロック編とシートが保護されていると仮定しようです。

Sub CommandButton7_Click() 
    ActiveSheet.Unprotect Password = "obvious" 
    Range("P11").Select 
    Selection.Copy 
    Range("P12").Select 
    Selection.PasteSpecial Paste:=xlPasteValues 
    Selection.CheckSpelling 
    ActiveSheet.Protect Password = "obvious" 
End Sub

出典

2016-09-15 20:44:50

答えて

関連する問題