ご挨拶、
複数のワークシートを保護および保護解除し、「ロックされたセルを選択」オプションを無効にして、保護されたセルが選択できないようにしたいと考えています。
複数のワークシートを一度にロックできる VBA コードと、ロックされたセル ビットのコードをいくつか見つけましたが、この XNUMX つをマージする方法がわかりません。
リボンの [配置] セクションにある [保護] タブからロックを解除したいセルがあります。
参考までに: これは、前のトピックとは異なるワークブックです。
すべてのワークシートを保護するために見つけたサンプル コード:Sub ProtectAllWorksheetsWithInputbox()
'ステップ 1: 変数を宣言する
ワークシートとして薄暗い
文字列としての Dim Pwd
' ステップ 2: すべてのワークシートを保護するためのパスワードを入力します
Pwd = InputBox("すべてのワークシートを保護するにはパスワードを入力してください", "パスワード入力")
' ステップ 3: すべてのワークシートのループを開始する
ActiveWorkbook.Worksheets の各 ws について
' ステップ 4: 保護して次のワークシートにループする
ws.Protect パスワード:=Pwd
次のws
End Subの
[ロックされたセルを選択] オプションを無効にするコードを見つけました。
おかげで、
ヴィーピル
複数のワークシートを保護および保護解除し、「ロックされたセルを選択」オプションを無効にして、保護されたセルが選択できないようにしたいと考えています。
複数のワークシートを一度にロックできる VBA コードと、ロックされたセル ビットのコードをいくつか見つけましたが、この XNUMX つをマージする方法がわかりません。
リボンの [配置] セクションにある [保護] タブからロックを解除したいセルがあります。
参考までに: これは、前のトピックとは異なるワークブックです。
すべてのワークシートを保護するために見つけたサンプル コード:Sub ProtectAllWorksheetsWithInputbox()
'ステップ 1: 変数を宣言する
ワークシートとして薄暗い
文字列としての Dim Pwd
' ステップ 2: すべてのワークシートを保護するためのパスワードを入力します
Pwd = InputBox("すべてのワークシートを保護するにはパスワードを入力してください", "パスワード入力")
' ステップ 3: すべてのワークシートのループを開始する
ActiveWorkbook.Worksheets の各 ws について
' ステップ 4: 保護して次のワークシートにループする
ws.Protect パスワード:=Pwd
次のws
End Subの
[ロックされたセルを選択] オプションを無効にするコードを見つけました。
- ActiveSheetを使用
- 。守る
- .EnableSelection = xlUnlockedCells
- 最後に
おかげで、
ヴィーピル