lijn vergrendelen

[lobelvin]

hallo,

ik zou het volgende willen doen:
ik vul gegevens in op een lijn vb. van A1 tot F1, als ik in de laatste in te vullen cel kom en ik druk op ENTER zouden de gegevens in deze rij moeten vergrendelen, dus niet meer wissen of veranderen en tevens zou ik automatisch naar de volgende rij moeten gaan naar A2 dus, is dit mogelijk aub?

vriendelijke groeten,
Danny

 

[jkpieterse]

Als je de cellen die ingevuld mogen worden ontgrendeld en vervolgens het werkblad beveiligd, dan heb je in ieder geval je tweede vraag geregeld. Alleen gaat het springen via de tab toets en niet via enter.

 

[MarcelBeug]

Je zou de volgende VBA-code kunnen proberen, maar mijn mening is dat je dit soort dingen niet moet doen, tenzij je zelf alle mogelijke haken en ogen kunt managen.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub
    If Target.CountLarge > 1 Then Exit Sub
    
    Sheets("Blad1").Unprotect
    
    On Error GoTo ErrorHandler
    
    Range(Target.Offset(0, -5), Target).Cells.Locked = True
    Range(Target.Offset(1, -5)).Select

ErrorHandler:
    Sheets("Blad1").Protect

End Sub