| |
VBA初心者です。
ご教授いただきたく利用させていただきました。
やりたいこと。
【ユニフォームの在庫データ入力後、更新ボタンを押すと、3行目にセルが挿入され、3行目以外には、保護がかかりデータ変更不可にするプログラムを構成したいです。】
現状。
【セルの挿入を行うプログラムまでは組めましたが、4行目以降を常にロックするプログラムを組みましてもセルを挿入すると対応するセルが動いてしまい、3行目にロックがかかってしまい、更新するごとにロックされていないセルが4行目、5行目と動いていきます。
どうすれば常に3行目のみロックを外すことができますでしょうか。】
入力した文
【Sub 更新()
Range("3:3").Insert
Range("a3:f3,h3:l3,n3:r3,t3:x3,z3:ad3,af3:aj3").Interior.ColorIndex = 0
If ActiveSheet.ProtectContents = False Then
Cells.Locked = True
ActiveSheet.Range("$a$34:$f$4").Locked = False
ThisWorkbook.Worksheets("納品ユニフォーム").Protect UserInterfaceOnly:=True
End If
End Sub】
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
