Onblokkeren van één cel op alle sheets.

[Roeland035]

Beste forumleden,

Ik heb een foutje gemaakt in Excel waarbij de cel N14 op elke sheet beveiligd is tegen bewerking. Nu kan ik wel elke sheet onbeveiligen en in de celeigenschappen van N14 de cel onblokkeren en daarna de sheet weer beveiligen, maar we hebben meer dan 1000 sheets.

Weten jullie of hier eenvoudig een stukje VBA voor geschreven kan worden en zo ja, hoe zou dit er uit moeten zien?

Alvast bedankt voor enige input!

Groetjes!

 

[edmoor]

Zoiets:

Sub Herstel()
    For Each sht In ThisWorkbook.Sheets
        With sht
            .Unprotect "HetWachtwoord"
            .Range("N14").Locked = False
            .Range("N14").FormulaHidden = False
            .Protect "HetWachtwoord"
        End With
    Next sht
End Sub

Wel even het wachtwoord aanpassen uiteraard.

 

[Roeland035]

Zoiets:

Sub Herstel()
    For Each sht In ThisWorkbook.Sheets
        With sht
            .Unprotect "HetWachtwoord"
            .Range("N14").Locked = False
            .Range("N14").FormulaHidden = False
            .Protect "HetWachtwoord"
        End With
    Next sht
End Sub

Wel even het wachtwoord aanpassen uiteraard.

Super!! Dankjewel. Dit is precies wat ik zocht.