保護された細胞を特定する
Peldoni 解決済
最終更新日:2021-05-03 08:04
ワークシート内のどのセルをロックするかを表示するための「ショートカット」があります.ワークシートで式を表示するために使用される「Ctrl~」に似ていますか?その方法を理解することはできません.メニューを「セルのフォーマット、保護」にドリルダウンし、チェックボックスがあるかどうかを確認することはできません.
チェックしました.私はExcel 2010を使用しています.
返信リスト(回答:5)
5 #
NormanD 1
保護されたセルを表示するには、条件付き書式設定を使用できます.
- 興味のある範囲を選択してください、言うa1:E15
- home|条件付きフォーマット|新しい規則
- フォーマットするセルを決定するには、式を使用します.
- タイプ=セル( "Protect"、A1)
- 形式|埋葬
- 色を選択してくださいok||
保護されたセルはすべて選択された色で強調表示されます:
あるいは、検索ツールを使用して保護されたすべてのセルをリストすることもできます.
- 興味のある範囲を選択
- ctrl+ffindダイアログ を開く
- をクリアするdropdown
- format dropdown をクリックします.
- 保護タブ を選択
- lockedオプション を確認してください
- ok
- allを見つける
応答5# ->にスキップ4 #NormanDHI、
ロックされたセルを自動的に選択してリストするには、次のようにしてみてください.
- alt + f11VBAエディタを開く
- ALT + IM新しいコードモジュールを挿入する
- 新しいモジュールで、次のコード
を貼り付けます.'
>>
オプション
'
>>
パブリックサブSELECT_LOCKED_CELLS_IN_SELECTED_RANGE()
範囲としてのDIM RNG、LOCKEDRNG範囲
Dim Rcell and Range
薄暗いSMSG文字列として
selection.cells.count= 1
RNG= ActiveSheet.UsedRange
RNG=選択
の場合は終了 RNG.Cellsの各RCELLについて
RCell
lockedrngがそれから何もない場合は
set lockedrng= rcell
set lockedrng= UNION(RCELL、LOCKEDRNG)
の場合は終了
の場合は終了
次のrcell
ROCKEDRNGがNOTEN RONEであれば
lockedrng
smsg= "次のセルがロックされています:" _
&vbnewline&.address(0,0)
.Select
SMSG=「ロックされたセルは見つかりませんでした」
の場合は終了 msgboxを呼び出します(_
プロンプト:= SMSG、_
ボタン:= VB情報、_
タイトル:= "レポート")
'
- alt + qVBAエディタを閉じてExcel
に戻る- ファイルをxlsm拡張子
を使用してマクロ対応のブックとして保存します.- Alt + F8マクロwindows を開く
- select_locked_cells_in_selected_range| 実行
√