| |
マクロの記録でここまではできますが、ここから先が
できません。
ActiveWindow.SmallScroll Down:=-3
R("B1:Y47").Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("D9:P15").Select ←「P15」を特定のセルの値に
たとえばA3に「20」と入力
したら、「P20」までを
保護となるようにしたい
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("D9").Select
ActiveWindow.SmallScroll Down:=8
End Sub
▼Mr.アダルト さん：
>一度試してみます。ありがとうございました
>
>▼かみちゃん さん：
>>こんにちは。かみちゃん です。
>>
>>>A1からH20までをシートの保護をさせて
>>
>>少し発想を変えましょう。
>>シートの保護ではなく、セルの保護をします。
>>セルの保護と解除は、手動でできますか？
>>できるならば、それを「マクロの記録」で、まずは記録しましょう。
>>
>>そのあとに、
>>> A32に「20」と入力し
>>という条件に修正します。
>>
>>その修正方法がわからない場合は、そこまでできているコードを提示しましょう。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
