groeperen en beveiligen

[popipipo]

Ik heb een invulbestand wat ik beveiligd heb zodat slechts een gedeelte van het blad ingevuld kan worden.
Ik wil echter ook gebruik maken van 'groeperen'
Dit gaat echter niet samen.

Is dit, moet dit of kan dit opgelost worden via VBA?
Bijgaand een simpel vbtje waar bij dus alleen wat ingevuld mag worden in de gele cellen.
Het aantal groepen (hier 3) kan verschillen.

 

[ExcelAmateur]

popipipo,

Je kunt nu met groepen werken terwijl het blad is beveiligd.
Ik hoop dat je dit bedoeld.

 

[popipipo]

Ok dit bedoel ik en werkt dank daarvoor. :thumb:

Een vervolg vraag
Als ik meerdere sheets wil hebben moet ik dan elke sheet benoemen of kan ik het ook op een of andere manier voor alle sheets. iets in de trand van :
With Sheets("all sheets")

Onderstaand werkt niet.

Private Sub Workbook_Open()
  With Sheets("Sheet 1", "Sheet 2")
    .Protect Password:="", UserInterfaceOnly:=True
    .EnableOutlining = True
  End With
End Sub

Hoe moet dit wel.

Ik heb nl een tiental losse bestanden met 1 invulsheet die ik daarna in 1 gezamenlijk bestand zet.

 

[ExcelAmateur]

popipipo,

Kijk of het zo werkt.

Private Sub Workbook_Open()
  With Sheets(Sheets.Count)
    .Protect Password:="", UserInterfaceOnly:=True
    .EnableOutlining = True
  End With
End Sub

 

[popipipo]

Perfect!
Bedankt

 

[Warme bakkertje]

With Sheets(Sheets.Count)

Hiermee ga je mi enkel het laatste blad aanpassen.
Wil je een loop door alle werkbladen zal je meer iets in de lijn van onderstaande moeten gebruiken.

Private Sub Workbook_Open()
For i = 1 to Sheets.Count
  With Sheets(i)
    .Protect Password:="", UserInterfaceOnly:=True
    .EnableOutlining = True
  End With
Next
End Sub

 

[popipipo]

@rudi
Je hebt gelijk.

Ik had een kopieën van het tabblad gemaakt en toen werkten het bij alle tabbladen.
Het werkt inderdaad alleen bij het laatste tabblad na opslaan en weer openen van het bestand.

Bedankt voor je correctie.
Ik ben blij dat mensen ook nog na vragen kijken die als 'opgelost' markeert zijn.