So-net無料ブログ作成

Excel2000 VBA 範囲指定した範囲のみに入力出来るようにする(シート保護) [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

 

excel_protect.jpg


nice!(0)  コメント(0)  トラックバック(0) 
共通テーマ:パソコン・インターネット

nice! 0

コメント 0

コメントを書く

お名前:
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0

この広告は前回の更新から一定期間経過したブログに表示されています。更新すると自動で解除されます。

×

この広告は1年以上新しい記事の更新がないブログに表示されております。