Excel VBA質問箱 IV

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

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


34975 / 76738 ←次へ | 前へ→

【46966】Re:セルを選択せずにデータを削除し、セルの保護をオン・オフする記述
質問  fryday  - 07/2/23(金) 15:43 -

引用なし
パスワード
   りんさん またまた有り難う御座います

そして申しわけありません 結合が影響するとは思いませんでした…
確かにTargetcellとOffsetがらみのセルは全て結合セルでした。

まずはMergeAreaに修正した結果のご報告です
☆☆☆です無事に動きました〜♪

無事に動くのですがシートの保護でもう少し質問させて下さい。

まず .Parent.Unprotect Password:=""と
Sheet1.Unprotect Password:="" の違いが判りません

それと.Parent.Unprotect Password:=""を
Select Caseの前と外に設定すれば、複数あるCaseの内側に書くより
簡単と思い試しましたが、エラーの連続でパニックになりました。
またSelect Caseの内側と最後のEnd Selectの前も同じ結果で、
ますますパニック状態に…

たぶん.Parent.Unprotect Password:=""と
Sheet1.Unprotect Password:="" の違いが問題かと思い、
教えて頂いた.Parent.Unprotect Password:=""を使わず
Sheet1.Unprotect Password:=""を試すと、
Private Sub Workbook_Open()内の記述がエラーに…
ここで最悪の状態になりました。

このブックマクロでは Sheet1.Unprotect Password:=""が殆どで
各所に使用しております。
教えて頂いたコードのマクロは同じシートの
Private Sub Worksheet_Change(ByVal Target As Range)の中で動かしています。

流れをご説明しますと、ブックのPrivate Sub Workbook_Open()で
同じシートの別な単独セルに、
  Sheet1.Unprotect Password:=""
の処理後に文字を自動で入力しています。
  Sheet1.Protect Password:="" で終了しています

従って、Workbook_OpenでWorksheet_Changeイベントが発生するのですが
範囲を設定して、ターゲットセルでない場合は
教えて頂いたコードのマクロは動きません

またフォームのボタンでもtargetcellに1桁の数字を
下方向に自動で連続入力しています
この場合 Worksheet_Changeイベントのターゲットセル範囲であるため
教えて頂いたコードのマクロが動くことになります。

このようにいろいろな箇所でシートの保護と解除をしながらなので
パニック解消に苦労しました。

以上、結果のご報告です。
時間がありましたら、質問にご回答頂ければ幸いです。

PS 当方環境 WinXP EXCEL2000です。

1 hits

【46954】セルを選択せずにデータを削除し、セルの保護をオン・オフする記述 fryday 07/2/23(金) 10:01 質問
【46955】Re:セルを選択せずにデータを削除し、セル... ぱっせんじゃー 07/2/23(金) 10:15 発言
【46956】Re:セルを選択せずにデータを削除し、セル... りん 07/2/23(金) 10:19 回答
【46958】Re:セルを選択せずにデータを削除し、セル... fryday 07/2/23(金) 11:46 質問
【46959】Re:セルを選択せずにデータを削除し、セル... りん 07/2/23(金) 12:08 回答
【46966】Re:セルを選択せずにデータを削除し、セル... fryday 07/2/23(金) 15:43 質問
【46975】Re:セルを選択せずにデータを削除し、セル... りん 07/2/23(金) 19:03 発言

34975 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free