Excel VBA質問箱 IV

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

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


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

23221 / 76738

←次へ　｜　前へ→


	【58886】Re:入力された内容を保護するには？

夜勤担当 - 08/11/16(日) 13:18 -


	引用なし

	パスワード

Jakaさん
ありがとうございます。いただいたコードへの理解はできていないので、
よろしくお願いします。

行いたいのは、
第3行セルA3:Z3に入力し、終わったら、次の行（４行目）へ、
　　　　　　　　　　　　　　　　　　　このタイミングで第1行から第3行を保護
第4行セルA4:Z4に入力し、終わったら、次の行（５行目）へ、
　　　　　　　　　　　　　　　　　　　このタイミングで第1行から第4行を保護
第5行セルA5:Z5に入力し、終わったら、次の行（６行目）へ、
　　　　　　　　　　　　　　　　　　　このタイミングで第1行から第5行を保護
・
・

Private Sub Worksheet_Change(ByVal Target As Range)
'If Not IsEmpty(Target.Value) Then　　　　　　　
　 ActiveSheet.Unprotect 　　'"111"　　　　　　　
　 Target.Locked = True　これで、セルのロック　　
　 ActiveSheet.Protect
'End If
End Sub

0 hits

▼

【58814】入力された内容を保護するには？ 夜勤担当 08/11/12(水) 8:00