een reeds geselecteerde groep werkbladen beveiligen middels VBA

Question

Hallo allemaal,

ik wil graag een SELECTIE van werkbladen (dus een groep die ik handmatig reeds geselecteerd heb) middels een macro beveiligen. Ik weet wel hoe ik ALLE werkbladen van een werkmap moet beveiligen, maar dat is niet wat ik zoek: ik wil dat alleen de REEDS GESELECTEERDE werkbladen middels één macroknop (zonder wachtwoord) beveiligd worden.

De code om alle werkbladen te wijzigen:

Sub beveiliging_alle_bladen()

    For Each sh In Sheets

        sh.Unprotect

    Next sh

End Sub

heb ik geprobeerd aan te passen, maar dat lukt me dus niet. Ook het doorzoeken van het web heeft me nog niet geholpen, wie kan me de juiste code aanleveren?

Alvast bedankt!

Sabine

PS: deze vraag ook geplaatst op http://office.webforums.nl/viewtopic.php?p=215417#215417

Answer 1

Sorry, niet getest

Probeer dit eens, ook niet getest

Sub beveiligen_alle_bladen()

    Dim sh As Worksheet

   Dim ShArr() As String

   Dim s As Long

    For Each sh In ActiveWindow.SelectedSheets

       s = s + 1

       ReDim Preserve ShArr(1 To s)

       ShArr(s) = sh.Name

   Next sh

    Sheets(ShArr(1)).Select

    For Each sh In ThisWorkbook.Sheets(ShArr)

       sh.Protect

   Next sh

End Sub

---

Regards Ron de Bruin

http://www.rondebruin.nl/tips.htm

"SabineZP" wrote in message news:*** E-mailadres is om privacyredenen verwijderd ***...

Beste Ron,

helaas,

Sub beveiligen_alle_bladen()

    For Each sh In ActiveWindow.SelectedSheets

        sh.Protect

    Next sh

End Sub

werkt niet, code stopt bij sh.protect, omdat ik dan een groep van werkbladen geselecteerd heb en de protect opdracht alleen werkt indien ik NIET gegroepeerde werkbladen heb. Ik lijk dus iets nodig te hebben wat de geselecteerde werkbladen  identificeerd en onthoudt, zodat ze middels de macro stapsgewijs, een voor een doorlopen worden. En dat lukt me niet :-(

Sabine

Answer 2

Dat is mooi, graag gedaan

Je kan dit eventueel als laatste zin er bij zetten om de sheets weer te selecteren

Sheets(ShArr).Select

---

Regards Ron de Bruin

http://www.rondebruin.nl/tips.htm

"SabineZP" wrote in message news:*** E-mailadres is om privacyredenen verwijderd ***...

Beste Ron,

GEWELDIG, die code doet precies wat ik bedoel! Hartstikke bedankt!

Sabine

Answer 3

Beste Ron,

GEWELDIG, die code doet precies wat ik bedoel! Hartstikke bedankt!

Sabine

Answer 4

Beste Ron,

helaas,

Sub beveiligen_alle_bladen()

    For Each sh In ActiveWindow.SelectedSheets

        sh.Protect

    Next sh

End Sub

werkt niet, code stopt bij sh.protect, omdat ik dan een groep van werkbladen geselecteerd heb en de protect opdracht alleen werkt indien ik NIET gegroepeerde werkbladen heb. Ik lijk dus iets nodig te hebben wat de geselecteerde werkbladen  identificeerd en onthoudt, zodat ze middels de macro stapsgewijs, een voor een doorlopen worden. En dat lukt me niet :-(

Sabine

Answer 5

Dag SabineZP

Probeer

For each sh in ActiveWindow.SelectedSheets

---

Regards Ron de Bruin

http://www.rondebruin.nl/tips.htm

"SabineZP" wrote in message news:*** E-mailadres is om privacyredenen verwijderd ***...

Hallo allemaal,

ik wil graag een SELECTIE van werkbladen (dus een groep die ik handmatig reeds geselecteerd heb) middels een macro beveiligen. Ik weet wel hoe ik ALLE werkbladen van een werkmap moet beveiligen, maar dat is niet wat ik zoek: ik wil dat alleen de REEDS GESELECTEERDE werkbladen middels één macroknop (zonder wachtwoord) beveiligd worden.

De code om alle werkbladen te wijzigen:

Sub beveiliging_alle_bladen()

    For Each sh In Sheets

        sh.Unprotect

    Next sh

End Sub

heb ik geprobeerd aan te passen, maar dat lukt me dus niet. Ook het doorzoeken van het web heeft me nog niet geholpen, wie kan me de juiste code aanleveren?

Alvast bedankt!

Sabine

PS: deze vraag ook geplaatst op http://office.webforums.nl/viewtopic.php?p=215417#215417