Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12968 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【7658】立ち上げ時に保存 テーブル 03/9/11(木) 15:12 質問
【7661】Re:立ち上げ時に保存 INA 03/9/11(木) 15:31 回答
【7663】Re:立ち上げ時に保存 テーブル 03/9/11(木) 15:54 質問
【7667】Re:立ち上げ時に保存 INA 03/9/11(木) 16:18 回答
【7668】Re:立ち上げ時に保存 テーブル 03/9/11(木) 16:26 お礼
【7671】Re:立ち上げ時に保存 INA 03/9/11(木) 16:41 回答
【7685】Re:立ち上げ時に保存 テーブル 03/9/11(木) 19:24 質問
【7686】Re:立ち上げ時に保存 INA 03/9/11(木) 20:04 回答
【7702】Re:立ち上げ時に保存 テーブル 03/9/12(金) 12:43 お礼
【7658】立ち上げ時に保存
質問  テーブル E-MAIL  - 03/9/11(木) 15:12 -
引用なし
パスワード
   　いつもお世話になっております。別スレ立てているのですが、仕事がいっぱいになってきたので、本当に申し訳ないですが、2個目をたたせてもらいます。
　Openのイベントを使用し、保護をする列で入力されているセルまでと指定するには、どうすればよいのでしょうか？
　また、その指定した列の保護に対して、保護を解除する際に、一回の解除で保護が全部外れるのではなく、一個一個又は、選択された範囲のセルに対してだけ、保護を解除するにはどうすればよろしいのでしょうか？　
　どうかよろしくお願いいたします。
【7661】Re:立ち上げ時に保存
回答  INA  - 03/9/11(木) 15:31 -
引用なし
パスワード
   >　いつもお世話になっております。別スレ立てているのですが、
>仕事がいっぱいになってきたので、本当に申し訳ないですが、
>2個目をたたせてもらいます。
同じ内容でなければ、マルチポストにはなりませんので、
１０個でも２０個でも質問して下さい。（笑）

>　Openのイベントを使用し、保護をする列で入力されているセルまでと指定するには、
>どうすればよいのでしょうか？
セルIV1 から Ctrl　+ ← と同じように
　Range("IV1").End(xlToLeft).Column
で１行目の最右列を求められます。

>　また、その指定した列の保護に対して、保護を解除する際に、
>一回の解除で保護が全部外れるのではなく、
>一個一個又は、選択された範囲のセルに対してだけ、
>保護を解除するにはどうすればよろしいのでしょうか？　
手作業と同じなので、
一度全て解除して、部分的に再度保護する必要があると思います。
【7663】Re:立ち上げ時に保存
質問  テーブル E-MAIL  - 03/9/11(木) 15:54 -
引用なし
パスワード
   ▼INA さん：
>１０個でも２０個でも質問して下さい。（笑）
ありがとうございます。　本当にINAさんには助けてもらってばかりですね。

>セルIV1 から Ctrl　+ ← と同じように
>　Range("IV1").End(xlToLeft).Column
>で１行目の最右列を求められます。
最後の列の求め方教えていただきありがとうございます。まだここで聞きたいことありまして＾＾；　えっとですね・・・また私の説明が下手でしたね。
　立ち上げ時に列毎にまず、保護をしたいのですが、これがうまくいかないので、どうかここを教えて頂きたく思います。　よろしくお願いします。

>手作業と同じなので、
>一度全て解除して、部分的に再度保護する必要があると思います。
　できれば、そうしたいのですが、データの規模的にも横５０縦が約5万件と量が膨大なので、解除する際に、その部分だけを解除ができるプログラムっと言うものは不可能なのでしょうか？
【7667】Re:立ち上げ時に保存
回答  INA  - 03/9/11(木) 16:18 -
引用なし
パスワード
   >　立ち上げ時に列毎にまず、保護をしたいのですが、
Ａ列だけ保護する方法です。
Private Sub Workbook_Open()
With Worksheets("sheet1")
　 .Columns("B:IV").Locked = False
　 .Protect
End With
End Sub

>データの規模的にも横５０縦が約5万件と量が膨大なので、
>解除する際に、その部分だけを解除ができるプログラムっと
>言うものは不可能なのでしょうか？
不可能ではないと思います。
上記のように　.Locked の使い方でできると思います。
保護→解除→保護のように繰り返す必要ないようですね。
【7668】Re:立ち上げ時に保存
お礼  テーブル E-MAIL  - 03/9/11(木) 16:26 -
引用なし
パスワード
   ▼INA さん：
>>　立ち上げ時に列毎にまず、保護をしたいのですが、
>Ａ列だけ保護する方法です。
>Private Sub Workbook_Open()
>With Worksheets("sheet1")
>　 .Columns("B:IV").Locked = False
>　 .Protect
>End With
>End Sub
>
>>データの規模的にも横５０縦が約5万件と量が膨大なので、
>>解除する際に、その部分だけを解除ができるプログラムっと
>>言うものは不可能なのでしょうか？
>不可能ではないと思います。
>上記のように　.Locked の使い方でできると思います。
>保護→解除→保護のように繰り返す必要ないようですね。

Lockedの使い方ですか・・・・
ちょっとわからないので、もう一回調べて、質問したいと思います。
ありがとうございました。
【7671】Re:立ち上げ時に保存
回答  INA  - 03/9/11(木) 16:41 -
引用なし
パスワード
   >Lockedの使い方ですか・・・・
>ちょっとわからないので、もう一回調べて、質問したいと思います。
ぜんぜん難しくないのですが・・・
「セルの書式設定」で「保護」のタブにある「ロック」はご存じないのでしょうか？
【7685】Re:立ち上げ時に保存
質問  テーブル E-MAIL  - 03/9/11(木) 19:24 -
引用なし
パスワード
   ▼INA さん：
>>Lockedの使い方ですか・・・・
>>ちょっとわからないので、もう一回調べて、質問したいと思います。
>ぜんぜん難しくないのですが・・・
>「セルの書式設定」で「保護」のタブにある「ロック」はご存じないのでしょうか？

回答ありがとうございます。　
　試してみましたら、確かにセルのロックはかからなかったですが、あらかじめに、ロックが外れると予測されるセルでないと「ロック」のチェックを外せないですよね。　できれば、保護してあるセルに対して、突発的にそのセルの保護を解除しなければならない場合において、保護がかかっているセルを選択してから、そこの保護の解除をするって事はできないのでしょうか？　どうかよろしくお願いいたします。
【7686】Re:立ち上げ時に保存
回答  INA  - 03/9/11(木) 20:04 -
引用なし
パスワード
   >できれば、保護してあるセルに対して、
>突発的にそのセルの保護を解除しなければならない場合において、
>保護がかかっているセルを選択してから、
>そこの保護の解除をするって事はできないのでしょうか？
出来ないと思います。
しかし、
保護解除→ロック解除→保護　
とマクロで連続して処理すれば、同じ事だと思いますが？　
　
【7702】Re:立ち上げ時に保存
お礼  テーブル E-MAIL  - 03/9/12(金) 12:43 -
引用なし
パスワード
   ▼INA さん：
>>できれば、保護してあるセルに対して、
>>突発的にそのセルの保護を解除しなければならない場合において、
>>保護がかかっているセルを選択してから、
>>そこの保護の解除をするって事はできないのでしょうか？
>出来ないと思います。
>しかし、
>保護解除→ロック解除→保護　
>とマクロで連続して処理すれば、同じ事だと思いますが？　
　
ありがとうございます。
保護解除→ロック解除→保護
っとできるようにします。
いつも回答ありがとうございます
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12968 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free