【ExcelVBA】Excelシートの保護・保護解除する方法(セルのロック制御する)
ExcelVBAでExcelシートの保護・保護解除したい人向けに書いています。
本記事の内容
・ExcelVBAでシートの保護・保護解除する方法
ExcelVBA(マクロ)で自動的にシートの保護・保護解除したいと思っていませんか?
ExcelVBAによってシートの保護・保護解除する方法を紹介します。
シートの保護・保護解除する方法
以下がシートの保護・保護解除するプログラムです。
- '*****************************************
- '* セルのロック
- '*****************************************
- Sub SELL_LOCK()
-
- Dim objSh As Worksheet ' ワークシート(Work)
-
- With ThisWorkbook
-
- 'ロックしないセル指定
- .Sheets("Sheet2").Cells(1, 1).Locked = False
- .Sheets("Sheet2").Range("2:1048576").Locked = False
-
- ' 各ワークシートを巡回
- For Each objSh In .Worksheets
-
- With objSh
-
- ' グループ操作とオートフィルタ操作を可能としてシート保護
- .EnableOutlining = True
- .EnableAutoFilter = True
- .Protect Password:="pass", UserInterfaceOnly:=True, AllowSorting:=True, AllowInsertingRows:=True, AllowDeletingRows:=True
-
- End With
-
- Next objSh
-
- End With
-
- End Sub
- '*****************************************
- '* セルのロック解除
- '*****************************************
- Sub SELL_UNLOCK()
-
- Dim objSh As Worksheet ' ワークシート(Work)
- With ThisWorkbook
-
- ' 各ワークシートを巡回
- For Each objSh In .Worksheets
- With objSh
- .Unprotect Password:="pass"
- End With
- Next objSh
-
- End With
-
- End Sub
まとめ
ExcelVBAによってシートの保護・保護解除する方法を紹介しました。
最後までご覧いただき、ありがとうございました。
「【ExcelVBA】HTTP/HTTPS通信によるWebページ情報取得の方法」も紹介していますので、もしよろしければこちらも御覧ください。

¥2,409 (2024/11/26 01:24時点 | Amazon調べ)

最近のコメント