Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

27696 / 76732

←次へ　｜　前へ→


	【54353】Re:セル値に対する行番号までの入力制限

Mr.アダルト - 08/3/9(日) 21:41 -


	引用なし

	パスワード

マクロの記録でここまではできますが、ここから先が

できません。

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」と入力し
>>という条件に修正します。
>>
>>その修正方法がわからない場合は、そこまでできているコードを提示しましょう。

0 hits

▼

【54350】セル値に対する行番号までの入力制限 Mr.アダルト 08/3/9(日) 21:08