cellen automatisch blokkeren na het opslaan

ernofisko · 9 jul 2015

beste,

nog een vraag dus.

ik heb een werkdocument waar er veel collega's gegevens mogen ingeven.
Om te voorkomen dat nadien de andere collega's de gegevens kunnen verwijderen (moedwillig of niet) zou ik willen dat de cellen waarin er gegevens ingevult worden, bij het opslaan ook automatisch geblokkeerd worden. De niet ingevulde cellen blijven uiteraard gedeblokkeerd totdat deze ook ingevuld worden.
Gans het werkdocument, buiten de cellen waarin er kan geschreven worden, is met een wachtwoord beveiligd.

alvast bedankt voor de moeite

VenA · 9 jul 2015

nog een vraag dus.

refereert aan?

Gans het werkdocument

of een gelijkend iets is niet bijgevoegd.

Misschien met zoiets?

Code:

Sub VenA()
With Sheets(1)
    .Unprotect
    .Cells.Locked = False
    For Each cl In Sheets(1).UsedRange.SpecialCells(2)
        cl.Locked = True
    Next cl
    .Protect
End Sub

ernofisko · 15 jul 2015

Sorry,
ik was er enkele dagen tussenuit.

Vena, ik zal u code eens testen.

in bijlage ziet u het stukje van het sjabloon, omdat dit vertrouwelijk is heb ik alle tekst die erin staat verwijderd en is dit maar een oud voorbeeld van hetgeen ik gemaakt heb.

de collega's kunnen enkel iets schrijven in de groene vakken. de rest is geblokkeerd als ik de werkmap beveilig.
Als de collega het groen vak heeft ingevult en opslaat is het dus de bedoeling dat deze vakken ook geblokkeerd zijn net zoals de andere vakken, zodat men niet moedwillig of per ongeluk gegevens kan wissen van een andere collega.

zie bijlage. thx voor de reactie's

Bekijk bijlage test1.xlsx

cellen automatisch blokkeren na het opslaan

ernofisko

Gebruiker

VenA

Inventaris

ernofisko

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy