Excel2000 VBA 範囲指定した範囲のみに入力出来るようにする（シート保護）

Excel2000 VBA　範囲指定した範囲のみに入力出来るようにする（シート保護）

Sub 選択範囲の入力を許可しシートを保護する()
'
'選択範囲の背景色を設定、保護のロックを解除してシートを保護する
'背景色が設定されているセルのみ入力出来るようにする
'実験バージョン

ActiveSheet.Select

'シートが保護されているか調べ、保護されていれば保護を解除する
If ActiveSheet.Protect = True Then ActiveSheet.Unprotect

'選択範囲に背景色を設定する
    With Selection.Interior
        .ColorIndex = 34
        .Pattern = xlSolid
    End With
   
'選択範囲のセルの書式設定の「保護」ロックを解除する
    Selection.Locked = False
    Selection.FormulaHidden = False
   
'シートを保護する
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  
'セルA1を選択
Range("A1").Select

End Sub

 

タグ：Excel2000 VBA Excel2000 シート保護