|
タッちゃん さん、こんばんわ。
>Auto_Openで、下記の設定をしました。
> With ActiveSheet
> .ScrollArea = "A1:I59" 'スクロール可能領域
> .Protect UserInterfaceOnly:=True 'プロテクト
> .EnableSelection = xlUnlockedCells 'ロックセルは非選択
> End With
>この設定の下では、Tabキーを押せば、保護の指定が無いセルを右から左に
>移動し、I列の次は1行下の(保護指定がなければ)A列に移動します。
>所が、なぜか数箇所のみI列から次に移動しない行があります。
>→キーでも同じ現象になります。
範囲内で保護がかかっているセルが残っているとかはないでしょうかね。
このマクロを実行したあとで、
Sub Auto_Open()
With ActiveSheet
.ScrollArea = "A1:I59" 'スクロール可能領域
.EnableSelection = xlUnlockedCells 'ロックセルは非選択
.Protect UserInterfaceOnly:=True 'プロテクト
End With
End Sub
チェック用に着色(途中にいくつか保護セルをいれてあるので着色確認)
Sub test()
Dim r1 As Range, s1 As String
For Each r1 In ActiveSheet.Range("A1:I59")
If r1.Locked = True Then
r1.Interior.ColorIndex = 38 'ピンク色
End If
Next
End Sub
何か関連がありそうですか?
あとは、SelectionChangeイベントで何か設定していたりしませんか。
こちらでは上記マクロで、特に問題なく動きました(WinXP & XL2003)。
念のため、後ほど(Win7 & XL2007)でも試してみますね。
|
|