navigeren door locked cells met pijltjestoetsen

[Artemiss]

Hallo allemaal,

Ik zit met een probleem waar ik helemaal gek van word.
Ik heb een sheet met daarop twee onbeveiligde cellen en de rest van de cellen is beveiligd. Bij het beveiligen heb ik beide vinkjes aangezet, dus zowel de geblokkeerde als geblokkeerde cellen mogen geselecteerd worden. Nu lukt het selecteren met de muis ook altijd, alleen ondervind ik problemen wanneer ik met de pijltjestoetsen door de cellen probeer te bewegen.
Op dit moment heb ik mijn bestand opgeslagen in een staat waarin het wel werkt zoals ik zou willen, maar zodra de macro om de beveiliging in te stellen heeft gelopen, werkt het niet meer. Als ik daarna met de pijltjestoetsen probeer te bewegen, springt hij naar de twee onbeveiligde cellen en blijft tussen die twee cellen bewegen, welke kant ik ook op beweeg.
Blijkbaar zorgt mijn macro dus voor een ongewenste instelling en ik kan maar niet ontdekken wat...
En wat ook vreemd is, als ik naar een ander document ga en weer terug kom, werkt het wel weer gewoon...

Onderstaand de code waarmee de beveiliging wordt ingesteld, het gaat om de "Calculation sheet".

Private Sub BeveiligingInstellen()
    
Dim i As Long
    
    For i = 1 To Sheets.Count

        If Sheets(i).Name = "Calculation sheet" Then
            Sheets(i).Protect Password:="TOP", DrawingObjects:=True, Contents:=True, Scenarios:=True _
            , AllowFormattingColumns:=False, AllowFormattingRows:=False, AllowFiltering _
            :=False
            Sheets("Calculation sheet").EnableSelection = xlNoRestrictions
        Else
            Sheets(i).Protect Password:="TOP", DrawingObjects:=True, Contents:=True, Scenarios:=True _
            , AllowFormattingColumns:=False, AllowFormattingRows:=False, AllowFiltering _
            :=False
            Sheets(i).EnableSelection = xlUnlockedCells
        End If
            
    Next
    ActiveWorkbook.Protect Password:="TOP", Structure:=True, Windows:=False
    Application.ScreenUpdating = True
        
End Sub

 

[Artemiss]

Pfff, na veel gepruts mijn eigen probleem op weten te lossen. Ik heb mijn code aangepast zonder de If en het xlNorestrictions part na de Loop geplaatst en nu werkt het en blijft het gewoon werken.
Onderstaand de code die wel goed werkt...

Private Sub BeveiligingInstellen()
    
Dim i As Long
    
    For i = 1 To Sheets.Count

        
            Sheets(i).Protect Password:="TOP", DrawingObjects:=True, Contents:=True, Scenarios:=True _
            , AllowFormattingColumns:=False, AllowFormattingRows:=False, AllowFiltering _
            :=False
            Sheets(i).EnableSelection = xlUnlockedCells
              
    Next
    Sheets("Calculation sheet").EnableSelection = xlNoRestrictions
    ActiveWorkbook.Protect Password:="TOP", Structure:=True, Windows:=False
    Application.ScreenUpdating = True
        
End Sub