Excel macro voor beveiligen en niet beveiligen werkbladen

[JohnG]

Beste,

Graag wil ik een VBA script draaien om 52 werkbladen te deblokkeren en te blokkeren.

Alleen ik weet niet precies hoe dat werkt.
Ik moet nu eerst 52 werkbladen appart aanklikken en deblokkeren en daarna weer blokkeren als ik de werkbladen heb aangepast.

Kan iemand mij helpen?

Groet,

JohnG

 

[wampier]

Even uit de losse pols:

for each sh in sheets
      sh.unprotect
next sh

uitgaande van geen password en dat alle sheets in het boek aangepast moeten worden.

 

[JanDoel]

Hallo, ik heb zo iest al gebouwd voor een excel sheet kijk even of dat je hiermee verder kunt:

Sub beveiligingophefall()

    Invoer = InputBox("Vanaf Welke Poule ?", "Maak Keuze uit : Poule 1", "Maak Keuze uit : Poule 1 :Alleen Poule nummer in typen")
    teller = 0
    Sheets("Invoer").Select
    tel = Range("e1").Value
    If Invoer <> "" Then
        Do While tel > teller
            Sheets("Invoer").Select
            Range("A1").Select
            Sheetnaam = ActiveCell.Offset(Invoer, 0).Value
            Sheets(Sheetnaam).Select
            ActiveSheet.Unprotect
            Invoer = Invoer + 1
            teller = teller + 1
        Loop
    End If
    Sheets("Poule 1").Select
    ActiveWindow.Zoom = 80
    Range("c1").Select
End Sub

Sub beveiligingall()

    Invoer = InputBox("Vanaf Welke Poule ?", "Maak Keuze uit : Poule 1", "Maak Keuze uit : Poule 1 :Alleen Poule nummer in typen")
    teller = 0
    Sheets("Invoer").Select
    tel = Range("e1").Value
    If Invoer <> "" Then
        Do While tel > teller
            Sheets("Invoer").Select
            Range("A1").Select
            Sheetnaam = ActiveCell.Offset(Invoer, 0).Value
            Sheets(Sheetnaam).Select
            ActiveSheet.Protect
            Invoer = Invoer + 1
            teller = teller + 1
        Loop
    End If
    Sheets("Poule 1").Select
    ActiveWindow.Zoom = 80
    Range("c1").Select
End Sub

Groetjes JanDoel

 

[OctaFish]

@Jan: als je code plakt, kun je die dan (liefst met terugwerkende kracht ) opmaken met de knop Code (#)? Dan is hij een stuk leesbaarder...