• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Alles in 1x beveiligen (mini probleem)

Status
Niet open voor verdere reacties.

BattleChip

Gebruiker
Lid geworden
15 aug 2004
Berichten
43
Dit is de macro om alle bladen in één keer te beveiligen:

Sub beveiligen()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.Protect
Next ws
End Sub

en deze om de boel weer terug te draaien:

Sub beveiligingopheffen()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.UnProtect
Next ws
End Sub

Als ik wat beveilig dan doe ik dat met alléén de functie "Ontgrendelde cellen selecteren" AAN.

Dus je kunt alléén maar de cellen kiezen waar wat ingevuld kan worden.

Bladen apart beveiligen gaat prima, alles functioneert naar wens.

Echter als ik de bovenstaande macro's gebruik dan kan ik tóch de beveiligde cellen selecteren. Ik kan er niets mee doen en niets invullen, maar ik kán ze selecteren.

Reden waarom ik het niet wil is:
als je de tab functie gebruikt of de pijltoetsen om naar de volgende cel te gaan om iets in te vullen niet eerst alle andere tussenliggende cellen door moet drukken.

Wat moet er aan de beveiligingsmacro verandert worden om het goed te krijgen.

Eerst alles apart beveiligen maakt niets uit.
Zodra je een blad weer van beveiliging af haalt en weer beveiligd met de bovenstaande macro dan kun je plotseling weer alle cellen selecteren.

Wie O wie ¿?
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan