• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

kolomen groeperen bij een beveiligdblad (excel 2003)

Status
Niet open voor verdere reacties.
Beveiliging

Wim,

Ik ga je nieuwe code even gebruiken.

Code: 
Option Explicit

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

End Sub

Ik had het nu zo gedaan.

Ik vraag me ook nog af waarom ik de beveiligde cellen niet kan aanraken en CTRL+Home werkt ook niet wel Home.
 
Groeperen ondanks beveiliging

Wim,

Bij
Code: 
Private Sub Workbook_Open()
     With ActiveWorkbook.Sheets(x)
    .Protect Password:="Secret", UserInterfaceOnly:=True
    .EnableOutlining = True
  End With
End Sub

Krijg ik de melding variabel niet gedefinieerd. Moet ik voor de x mijn werkblad namen ingeven?

Wat een vervolg verhaal is het geworden zeg.

Wim
 
Ik heb mijn code aangepast, zat een foutje in.
Hopelijk werkt het nu wel goed.
Kijk dus even bij mijn vorige sugestie.

Code: 
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
 
Laatst bewerkt:
Groeperen ondanks beveiliging

Wim,

Spijkenisse daar kom ik iedere dag langs. Grappig


Code: 
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
Private Sub Workbook_Open()

Wim,

Ik krijg nu eerst een melding over private sub workbook_Open() . Als ik deze zin weghaal krijg ik de melding for zonder next.

M.vr.gr.
Wim
 
Groeperen ondenks beveiligen

De next regel werkt ook.

Maar heb je nog een verklaring voor de CTRL+Home Ctrl+PageDown?
 
WIMLIN,

De next regel werkt ook.
Maar heb je nog een verklaring voor de CTRL+Home Ctrl+PageDown?
Klik om te vergroten...
Doet de code het nu goed?
Voor je andere vraag heb ik geen verklaring.
 
Groeperen ondanks beveiliging

Wim,

Het werkt perfect.

Ik hoop nog op een reactie voor het selecteren en CTRL+Home anders zet ik hem aan het eind van de dag op opgelost
 
WIMLIN,
Wim,
Het werkt perfect.
Ik hoop nog op een reactie voor het selecteren en CTRL+Home anders zet ik hem aan het eind van de dag op opgelost
Klik om te vergroten...
Ik ben blij dat het eindelijk gelukt is en hoop dat je op CTRL+Home nog antwoordt krijgt.
 
Code: 
Private Sub Workbook_Open()
  For each sh in Sheets
    With sh 
      .Protect "Secret", UserInterfaceOnly:=True
      .EnableOutlining = True
    End With
  Next
End Sub
 
WIMLIN,

Ik hoop nog op een reactie voor het selecteren en CTRL+Home anders zet ik hem aan het eind van de dag op opgelost
Klik om te vergroten...

Volgens mij ben je wat vergeten.
 
Groeperen bij een beveiligd blad

Ik heb het vandaag geprobeerd. Maar ik krijg de melding dat er geen rechten voor heb om de vraag opgelost te zetten
 
Laatst bewerkt:
WIMLIN,

Je moet wel ingelogt zijn om dit te kunnen doen.
 
WIMLIN,

Nu snap ik waarom je hem niet als opgelost kan zetten.
Je ben niet begonnen als vraagsteller maar je bet er op door gegaan.
Dus alleen de gene die de vraag begonnen is kan dit doen. (Hulpbehoevend01,)
 
Kolommen groeperen bij een beveiligd blad

Ik zie nu dat ik toch nog een probleem heb.

Als ik nu het bestand open krijg ik de melding of ik de macro's wil in- of uitschakelen. Bij de optie inschakelen werkt alles perfect. Maar als ik de macro's uitschakel kan ik vervolgens toch alles wijzigen.

Dit is de code die ik nu gebruik heb via deze tip in deze topic.

Code: 
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
Next
End Sub


Ik had nu cellen geel gemarkeerd die gewijzigd mochten worden. (Bij deze cellen had ik de blokkering via celeigenschappen verwijdert)
De cellen die wel gewijzigd mochten worden had ik de celeigenschappen op geblokkeerd gezet.
 
WIMLIN,

Als ik nu het bestand open krijg ik de melding of ik de macro's wil in- of uitschakelen. Bij de optie inschakelen werkt alles perfect. Maar als ik de macro's uitschakel kan ik vervolgens toch alles wijzigen.

Ik had nu cellen geel gemarkeerd die gewijzigd mochten worden. (Bij deze cellen had ik de blokkering via celeigenschappen verwijdert)
De cellen die wel gewijzigd mochten worden had ik de celeigenschappen op geblokkeerd gezet.
Klik om te vergroten...

Het bovenste is te begrijpen, bij ingeschakelde macro zet hij er een password op.
Bij een niet ingeschakelde macro gebeurd dat niet.
De andere zin met "die gewijzigd en wel gewijzigd" snap ik niet helemaal.
 
36 postings , die naar mijn gevoel met een voorbeeld bestandje van de situatie " de groepering , de aanduiding welke rijen nu al dan niet mogen moeten enz. had dit misschien al opgelost geweest . een rechter muisklik op de tab van het blad een kopie maken , ontdoen van de gevoelige info en posten 2 minuutjes en 100% meer efficiëntie om tot een oplossing te komen .
 
Groeperen bij een beveiligd blad

Daniël,

Vanmorgen vroeg zag ik jouw opmerking. Alsnog een voorbeeld bestand.

De gele blokken mogen door iedereen gewijzigd worden. De witte blokken mogen alleen door de personen gewijzigd worden die het wachtwoord kennen.

De macro werkt dus perfect. Alleen de macro moet altijd ingeschakeld worden. Het mooiste zou dus zijn als men het dialoogvenster niet ziet.
 

Bijlagen

Ik heb je berichtje gelezen , heb nu een koffie stop , ik zou op het eerste zicht zeggen om het via een " If Not Intersect(Colunms...........Is Nothing Then , ActiveSheet.Unprotect en dit in een Private Sub Worksheet_Change event te zetten .
Ik heb straks nog een paar 100 kilometers om na te denken
 
Groeperen

trucker10 zei:
Ik heb je berichtje gelezen , heb nu een koffie stop , ik zou op het eerste zicht zeggen om het via een " If Not Intersect(Colunms...........Is Nothing Then , ActiveSheet.Unprotect en dit in een Private Sub Worksheet_Change event te zetten .
Ik heb straks nog een paar 100 kilometers om na te denken
Klik om te vergroten...

Daniël,

Voor mij is het niet duidelijk wat jij zegt. Maar dat zal na die paar 100 kilometer wel veranderen.

Succes op de weg.

M.vr.gr.
Wim
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan