化学製品の分析試験用のデータの傾向を示すスプレッドシートを設定しています。 データの転記がレビュー担当者によって検証されたら、データの各行をロックしたいと考えています。 VBA で次のコードを使用すると、単一行をロックできます。
プライベートサブワークシート_Change(ByValターゲットを範囲として)
Range("X3") = "いいえ" の場合
Range("B3:W3").Locked = False
ElseIf Range("X3") = "はい" then
Range("B3:W3").Locked = True
終了する場合
End Subの
列 X には、「はい」と「いいえ」の XNUMX つのオプションを含むドロップダウン リストが含まれています。 過去のデータに意図しない変更が加えられないように、レビュー担当者がこの列で [はい] を選択すると、シートに追加されるデータの各行がロックされるようにしたいと考えています。 これは、各行の about コードを無限に繰り返さなくても可能ですか?
プライベートサブワークシート_Change(ByValターゲットを範囲として)
Range("X3") = "いいえ" の場合
Range("B3:W3").Locked = False
ElseIf Range("X3") = "はい" then
Range("B3:W3").Locked = True
終了する場合
End Subの
列 X には、「はい」と「いいえ」の XNUMX つのオプションを含むドロップダウン リストが含まれています。 過去のデータに意図しない変更が加えられないように、レビュー担当者がこの列で [はい] を選択すると、シートに追加されるデータの各行がロックされるようにしたいと考えています。 これは、各行の about コードを無限に繰り返さなくても可能ですか?