ワークシートの保護

今回はワークシートの保護についてメモしておきます。

ワークシートを保護する

実行プログラム

' ワークシートの保護
Sub Sample6_12_1()

    Worksheets("Sheet1").Protect

End Sub

' ワークシートの保護解除
Sub Sample6_12_2()

    Worksheets("Sheet1").Unprotect

End Sub

' ワークシートの保護

Sub Sample6_12_1()

Worksheets("Sheet1").Protect

End Sub

' ワークシートの保護解除

Sub Sample6_12_2()

Worksheets("Sheet1").Unprotect

End Sub

実行結果

Sample6_12_1を実行すると保護されます。編集しようとすると警告メッセージが表示されます。
Sample6_12_2を実行すると保護が解除されます。

ワークシートをパスワードで保護する

実行プログラム

' ワークシートの保護
Sub Sample6_12_3()

    Worksheets("Sheet1").Protect Password:="PassWord"

End Sub
' ワークシートの保護解除
Sub Sample6_12_4()

    Worksheets("Sheet1").Unprotect Password:="PassWord"

End Sub

' ワークシートの保護

Sub Sample6_12_3()

Worksheets("Sheet1").Protect Password:="PassWord"

End Sub

' ワークシートの保護解除

Sub Sample6_12_4()

Worksheets("Sheet1").Unprotect Password:="PassWord"

End Sub

実行結果

保護を解除するにはパスワードの入力が求められます。
Sample6_12_4を実行すると保護が解除されます。

フィルター操作を許可したシートの保護

実行プログラム

Sub Sample6_12_5()

    Worksheets("Sheet1").Protect Password:="PassWord", AllowFiltering:=True

End Sub

Sub Sample6_12_5()

Worksheets("Sheet1").Protect Password:="PassWord", AllowFiltering:=True

End Sub

フィルターの操作は可能です。

入力セル以外のシート保護

実行プログラム

Sub Sample6_12_6()

    Worksheets("Sheet1").Cells(1, 2).Locked = False
    Worksheets("Sheet1").Protect

End Sub

Sub Sample6_12_6()

Worksheets("Sheet1").Cells(1, 2).Locked = False

Worksheets("Sheet1").Protect

End Sub

実行結果

ここではB1セルのみ入力が可能です。書式設定等はできません。