Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Anders (software)

Macro in EXCEL om sheets te protecten. Wie kan me helpen?

Frison
7 antwoorden
  • Hallo,

    Ik heb zo'n 400 excel (office 2003) documenten met elk 10 sheets.
    Deze sheets waren beveiligd via tools > protection > protect sheet.
    Nu moest ik alle sheets wijzigen en om dat te kunnen doen was het nodig om in al deze sheets de protection op te heffen. Ik heb daarvoor een macro gemaakt (unprotect sheet > wijzig sheet > protect sheet > save & close).

    Echter, daarna zijn de instellingen voor sheet protection niet meer hetzelfde.

    Ik moet hebben:Allow all users of this worksheet to:
    > Select Unlocked Cells [b:d64adae1a7](En niet Select Locked Cells!!!) [/b:d64adae1a7]
    > Format Cells
    > Insert Hyperlinks

    Het probleem is dus "Select Locked Cells". [b:d64adae1a7]Dit mag niet aangevinkt staan!!![/b:d64adae1a7]

    Het stukje code in mijn macro ziet er als volgt uit (maar werkt dus niet):

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
    , AllowFormattingCells:=True, AllowInsertingHyperlinks:=True
    ActiveSheet.EnableSelection = xlUnlockedCells

    Wie kan me helpen voorkomen dat ik ruim 4000 sheets handmatig moet beveiligen? :(

    (ps: Ik gebruik office/excel 2003)
  • ActiveSheet.EnableSelection = xlUnlockedCells

    wijzigen in


    ActiveSheet.EnableSelection = UnlockedCells


    anders begrijp ik je vraag niet ;-)
  • Hoi Frison,

    Ik heb je suggestie geprobeerd, maar het werkt niet.

    Wat is eigenlijk het verschil tussen ActiveSheet.EnableSelection = [b:843238f182]xl[/b:843238f182]UnlockedCells en ActiveSheet.EnableSelection = UnlockedCells ??

    Voor de duidelijkheid:
    Ik heb alle cellen in de sheets locked via celproperties > protection.
    Vervolgens die cellen [b:843238f182]un[/b:843238f182]locked die ik "editable" wil hebben.
    Daarna via tools > protection > protect sheet ingeschakeld en vinkjes gezet bij:

    Allow all users of this worksheet to:
    > Select Unlocked Cells (En niet Select Locked Cells!!!)
    > Format Cells
    > Insert Hyperlinks

    Om kolombreedte aan te passen heb ik de protection weer moeten opheffen (macro liep ook vast).
  • Geen idee, wat die 'xl' doet :oops: 't was meer een logische beredenering, maar waar ik mij over verbaas is, dat deze macro bij mij dus wel werkt :-?
  • Het is en blijft Microsoft. Ik ben al lang geleden gestopt met proberen het te begrijpen. Ik heb ermee leren leven. Maar ik zit dus wel nog steeds met hetzelfde probleem. De macro werkt, maar na het opnieuw openen van het document is het vinkje er weer.

    :(
  • Domme vraag, maar je slaat na het uitvoeren van de makro toch wel het werkblad op neem ik aan? Heb nog even gekeken voor de zekerheid, maar het werkt echt perfect.
  • Geen domme vraag, maar, natuurlijk sla ik het op. Anders was het niet zo raar, toch?

    Maar vraagje, waar heb jij je macro opgeslagen? Ook in personal? Of in all workbooks?

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.