Waar plaats ik vba code om alle tabbladen te beveiligen?

[Friend]

Beste forummers.

Ik kan het even niet zien, maar waar plaats ik de vba code om al mijn tabbladen in één keer te beveiligen als ik het bestand open?

Hoor graag, thanks,

Friend

 

[ExcelAmateur]

Friend,

Volgens mij in Thisworkbook
Of als de code in een Module staat, in this workbook deze aanroepen.

Private Sub Workbook_Open()
  'Naam van de Macro
End Sub

 

[Friend]

EA,

Hartelijk dank voor je reactie.:thumb:

Ik kom er echter nog niet uit.

Ik gebruik deze code:

Sub ProtectAllSheets()
    For Each ws In ThisWorkbook.Worksheets
        ws.Protect Password:="123"
    Next
End Sub

die zet ik in this workbook maar dat werkt niet.

Dus iets is fout in mijn denken.

Hoe roep ik hem dan aan als ik de code in een module zet? Jouw 2e optie.

Friend

 

[ExcelAmateur]

In mijn vorige bericht staat het voorbeeld.
Op de plaats van "de naam van de macro" zet je dit - ProtectAllSheets
De code van je zelf moet in een Module staan.

 

[Friend]

EA,

Hartelijk dank, ik zie hem weer

Moest het even doorkrijgen.

Werkt prima nu.

Dank voor je hulp:thumb:

Friend