シートの保護、保護解除を設定する

VBAでシートの保護を設定するにはProtectメソッド、保護の解除にはUnprotectメソッドを利用します。
また保護する際のパスワードの設定もPasswordオプションを利用することで設定することができます。
解除も同様にパスワードが掛かったシートの保護解除にはPasswordオプションを利用することで解除ができるようになります。

　●シートの保護

'******************************************************************
'　シートの保護
'******************************************************************
Sub SheetProtect()
    
    'シートの保護
    Sheets("Sheet1").Protect
  
End Sub

　●パスワードを付けてシートの保護

'******************************************************************
'　シートの保護（パスワードあり）
'******************************************************************
Sub SheetProtect_WithPW()
    
    'パスワードの設定
    Dim sPassword As String
    sPassword = "pw123"
    
    'シートの保護　パスワードあり
    Sheets("Sheet2").Protect Password:=sPassword
  
End Sub

　●シートの保護解除

'******************************************************************
'　シートの保護解除
'******************************************************************
Sub SheetUnprotect()
    
    'シートの保護解除
    Sheets("Sheet1").Unprotect
    
End Sub

　●パスワードを付けてシートの保護解除

'******************************************************************
'　シートの保護解除
'******************************************************************
Sub SheetUnprotect_WithPW()
    
    'パスワードの設定
    Dim sPassword As String
    sPassword = "pw123"
    
    'シートの保護解除　パスワードあり
    Sheets("Sheet2").Unprotect Password:=sPassword
  
End Sub