kolomen groeperen bij een beveiligdblad (excel 2003)

[Hulpbehoevend01]

Situatie:
Bij een werkblad heb ik een aantal kolomen gegroepeerd.
(Data/Overzicht/goeperen)

Ik heb tevens het blad beveiligd tegen invoegen van rijen en kolomen.
(Extra/Beveiligen/blad beveiligen).

Probleem:
Dat je door de blad beveiliging niet meer de groepering functie kan gebruiken.


gewenste resultaat:
Dat ik wel gewoon de groeperingfunctie kan gebruiken, en dat mijn werkblad beveiligd is tegen invoegen van kolomen en rijen.

Wie kan mij verder helpen?

 

[Jan van Asseldonk]

Welke Excelversie?
Kijk eens naar de mogelijkheden bij het beveiligen van het werkblad.
Je kunt een aantal vinkjes aanzetten wat nog wel mag.
(Excel2007 engels = lint Review, protect sheet, vinkje bij format columns.)

 

[Hulpbehoevend01]

excel 2003,
Heb ook getest met alle vinkjes aan bij de beveiliging.

 

[Arne D]

Al resultaat? Zit met identieke probleem

 

[WIMLIN]

Kolommen groeperen excel 2003/2007 in beveiligd blad

Is er hier over dit onderwerp al meer bekend?

 

[Hoornvan]

Hulpbehoevend01,

Kijk hier eens misschiendat dit je kan helpen.

 

[WIMLIN]

Beveiligen en groeperen

Wim,

Betekent dat ik een macro moet aanmaken met die code die daar staat?

In het bestand wat ik nu gebruik staan geen macro's. Ik kan zelf alleen gebruik maken van macro's als ik ze opneem.

Wim

 

[Hoornvan]

WIMLIN,

Betekent dat ik een macro moet aanmaken met die code die daar staat?

Sory ik was even met een andere vraag bezig, vandaar een verkeerd antwoord
Ja je moet deze in this workbook zetten.

 

[WIMLIN]

Beveiligen

Wim,

Ik begrijp je uit leg niet.

Moet ik eerst mijn handelingen opnemen. Wat noem ik dan this work book.

Kan ik daar na klikken op het plus van groeperen als mijn werkblad beveiligd is?

Wim

 

[Hoornvan]

WIMLIN,

Ik begrijp je uit leg niet

Als je VBA opent, zie je daar 3 werkbladen en This workbook staan.
Klik op This workbook met rechts en kies voor Programmacode weergeven en zet daar de macro in.

Als je het nog niet snapt download dan het bestandje dat in de link staat, dan kun je zien hoe alles zit.
Suc6

 

[WIMLIN]

Beveiligen

Wim,

Ik heb het bestand hoofdgroep analyse.. gedownload.

Met ALT F11 ben ik in die macro gekomen.

Daar stond deze tekst.

Option Explicit

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

Maar ik hoe ik dan eerst die macro uitvoeren? Moet ik dan een button aanmaken en die koppelen aan de macro.

Nu krijg ik nog de mijn bekende melding: De opdracht kan niet worden uitgevoerd op beveiligd werkblad

 

[Hoornvan]

WIMLIN,

Private Sub Workbook_Open()

Dit staat boven aan de macro en als je hem in This workbook heb staat gebeurd er dit.
Zodra je hem opstart wordt de macro geactiveerd, er staat immers Workbook_Open.

 

[WIMLIN]

Beveiliging

Wim,

Wat doe ik dan verkeerd. Ik open alleen die file maar kan niet op die plus klikken zonder de melding.

Werkt het niet in 2007?

Ik heb het geopend in 2003 daar werkt het wel. Ik ga nu proberen om het te plaatsen in mijn orginele bestand.

Het woord secret vertalen in mijn wachtwoord waarschijnlijk

M.vr.gr.
Wim

 

[Hoornvan]

WIMLIN,

Wat doe ik dan verkeerd. Ik open alleen die file maar kan niet op die plus klikken zonder de melding.
Werkt het niet in 2007?
Ik heb het geopend in 2003 daar werkt het wel. Ik ga nu proberen om het te plaatsen in mijn orginele bestand.
Het woord secret vertalen in mijn wachtwoord waarschijnlijk

Wat je verkeerd doet kan ik hier van daan niet zien.
Het werkt ook in 2007, die gebruik ik namelijk ook.
Het password kun je veranderen naar je eigen idee, vergeet het niet.

 

[WIMLIN]

Beveiligen

Hoe kan ik het gelijk instellen voor de volgende tabbladen.

De name van mijn tabbladen zijn:

Urenbegroting
Headcount direct personeel
Directe kosten
Totaal
Totaal (2)

 

[Hoornvan]

With Sheets("Overzicht groepen")

Ik denk dat je deze relgel moet aanpassen.

 

[WIMLIN]

Beveiling

Wim,

Ik heb die aangepast maar hoe kan ik alle bladen in één keer doen?

Kan ik de beveiligde cellen ook niet meer selecteren. Via celeigenschappen heb ik eerst overal het vinkje weggehaald bij geblokkeerd en vervolgens neer gezet bij de cellen die ik wilde beveiligen

Sorry voor al mijn gezeur.

M.vr.gr.
Wim

 

[Hoornvan]

Ik heb die aangepast maar hoe kan ik alle bladen in één keer doen?

Ik heb nog een link voor je gezocht en die macro doet alle bladen.

 

[WIMLIN]

Beveiligen

Die werkt heel goed maar komt eerst met die box van wachtwoord opheffen.

Ik ga nog even verder want ik ben nu toch al een heel eind op de goede weg. Het is nl. vrij belangrijk dat dit goed zou gaan werken.

 

[Hoornvan]

Als je deze code gebruikt, doet hij het dan goed?

Private Sub Workbook_Open()
Dim x As Long
     For x = 1 To ActiveWorkbook.Sheets.Count
     With ActiveWorkbook.Sheets(x) 
    .Protect Password:="Secret", UserInterfaceOnly:=True
    .EnableOutlining = True
  End With
End Sub