Cursor op beveiligd blad

[verluc]

Vraag me af of het mogelijk is in Excel 2003 op een beveiligd blad toch nog de cursor te laten werken.
Ik heb namelijk een colour banding die een rij kleurt na selectie, dit om het zoeken te vergemakkelijken en toch geen wijzigingen te kunnen aanbrengen.
Ben benieuwd over een mogelijkheid.

 

[Cobbe]

Je kan toch gewoon Unprotect en Protect gebruiken in je kleurcode.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static oldRange As Range
Static colorIndices(256) As Integer
Dim i As Integer
If Not oldRange Is Nothing Then
  For i = 1 To 256
   Cells(oldRange.Row, i).Interior.ColorIndex = colorIndices(i)
  Next i
End If
  For i = 1 To UBound(colorIndices)
    colorIndices(i) = Cells(ActiveCell.Row, i).Interior.ColorIndex
  Next i
  ActiveCell.EntireRow.Interior.ColorIndex = 6
  Set oldRange = ActiveCell.EntireRow
End Sub

 

[verluc]

Heb reeds volgende code voor mijn gesecteerde rij te laten kleuren:

If Intersect(Target, Range("A4:R1000")) Is Nothing Then Exit Sub
Range("A4:S1000").Interior.ColorIndex = xlNone
Range("A" & Target.Row & ":R" & Target.Row).Interior.ColorIndex = 4

Deze dus aanvullen met Uw suggestie ?

 

[Cobbe]

If Intersect(Target, Range("A4:R1000")) Is Nothing Then Exit Sub
activesheet.Unprotect
 Range("A4:S1000").Interior.ColorIndex = xlNone
  Range("A" & Target.Row & ":R" & Target.Row).Interior.ColorIndex = 4
activesheet.Protect

eventueel nog het wachtwoord bijvoegen.

 

[verluc]

Bedankt voor Uw aanvulling.
Het blijkt nu dat ik maar eenmaal een keuze kan maken en dan terug blokkeert.
Ik kan dus niet zoeken alhoewel ik niets moet wijzigen.