他のデータの変更をさせない?

セルをロックして変更をさせない方法があるが、今回はイベントマクロを使ってselectさせない方法を。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim myrange As Range
 Set myrange = Application.Intersect(Range("C3:F7"), Selection)

   If myrange Is Nothing Then
     Range("C3").Select
   Else
     myrange.Select
   End If
End Sub
e0080122_0515425.gif

上図のように変更させたくない場所を選択した場合には、許可された範囲のみを選択しなおす。
なにかの折には役に立つかもしれないが・・・
[PR]
by slayer0210 | 2005-12-21 00:55 | マクロ


<< 目次シート作成(イベントマクロ) 表を図として貼り付ける(リンクする) >>