[[20100105141146]]　『シート保護状態でオートフィルタをかけたい』（らいち）　ページの最後に飛ぶ

『シート保護状態でオートフィルタをかけたい』（らいち）

 表の中のデータはオートフィルタをかけて、表の外側は編集出来ない
 ようにシート保護したいです。（excel2000、XP）

 シート保護の際に、データのチェックを外すとオートフィルタが機能
 しますが、その代わり、表の外側も編集可能となり困ってます。
 データのチェックを入れると、オートフィルタが機能しなくなり困ってます。

 どのように対処すれば良いのでしょうか。ご指導をお願いします。

 簡単なごまかしコードですが、該当シートのモジュールに

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Application.Intersect(Target, Me.Range("A1:J10")) Is Nothing Then
    Me.Range("A1").Select
  End If
  End Sub

 なんてすれば、A1:J10の範囲がオートフィルタ範囲として
 他のセルを選択したらA1を選択するようになります。
 範囲を持ったコピペなんかには対応できませんけど、とりあえず・・・程度なら？

 （ｍｏｍｏ）Intersectが逆だったので修正(14:41)

 (momo)さま、出来ました！有難う御座いました。（らいち）

コメント返信：

[ 一覧(最新更新順) ]

[[20100105141146]] 『シート保護状態でオートフィルタをかけたい』（らいち） ページの最後に飛ぶ

[[20100105141146]]　『シート保護状態でオートフィルタをかけたい』（らいち）　ページの最後に飛ぶ