• 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.

werkblad met groepen beveiligen

Status
Niet open voor verdere reacties.
Beste Wim,

Bedankt voor je snelle reactie.
Als ik de formule overzet in mijn complete bestand en daarna het tablad beveilig krijg ik weer een foutmelding. Waarschijnlijk doe ik iets fout of moet de formule aangepast worden als ik bijv.: "cornelus" als beveiligingscode wil gebruiken.

Moet de formule dan zo aangepast worden:


Option Explicit

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


Bij voorbaat dank voor je reactie.

Groeten, Cornelus
 
cornelus,

Als ik de formule overzet in mijn complete bestand en daarna het tablad beveilig krijg ik weer een foutmelding
Klik om te vergroten...

Ik denk dat het is, er staat als password "Secret", als je er een ander in zet klopt het niet.
Dus zet in de code het zelfde password dat je gebruikt, probeer het en je weet het.
Sla de file op sluit het en open het opnieuw.

De volgende keer moet je als je code plaatst, het selecteren en op # klikken boven in het menu.

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

Suc6
 
Laatst bewerkt:
cornelus,

Is het al gelukt?
Zo ja zet de vraag dan als opgelost.
 
Beste Wim,

Helaas. In een afgeslankt bestand met minder macro's werkt het wel. In het ebstand waar het er toe doet werkt het nog steeds niet.

Met vriendelijke groet,
Cornelus
 
cornelus,

Helaas. In een afgeslankt bestand met minder macro's werkt het wel. In het ebstand waar het er toe doet werkt het nog steeds niet.
Klik om te vergroten...

Heb je soms op elk blad een ander password?
Misschien is dat het probleem?
 
cornelus,

Code: 
Private Sub Workbook_Open()
  With Sheets("[COLOR="Red"]Overzicht groepen[/COLOR]]")
    .Protect Password:="[COLOR="red"]cornelus[/COLOR]", UserInterfaceOnly:=True
    .EnableOutlining = True
  End With
End Sub
Ik heb het nog even getest maar de andere bladen maakt niets uit.
Het in het rood geschreven moet wel gelijk zijn.
Dus Sheets - naam = Overzicht groepen
Sheets - Password = cornelus
 
Beste Wim,

Alle opties nogmaals nagegaan en uitgeprobeerd. Het probleem krijg ik niet opgelost. Jammer voor alle inspanningen. Ik wil nog een laatste oproep doen aan alle excel experts mocht dat niets opleveren dan gooi ik de handdoek in de ring.

Groeten en hartstikke bedankt voor alle inspanningen,
Cornelus
 
Beste cornelus,

Kun je mij vertellen welke regel van de macro, geeft de fout aan.
 
Laatst bewerkt:
cornelus,

Een laatste poging om het te doen slagen.
1. Doe niets aan de Macro.
2. Haal het wachtwoord van het werkblad.
3. Sla de File op
4. Sluit de File
5. Open de File
Als het goed is, dan is het werkblad beveiligd en kun je de groepen openen en sluiten.

Dit heb ik net uit geprobeerd en werkt, dus is het de moeite waard om te doen.
Suc6 en ik hoop dat het nu ook bij je lukt.
 
Beste Wim,

Je advies heb ik uitgeprobeerd. Ik krijg dan de melding: Fout 9. Het subscript valt buiten het bereik.
Begrijp je het nog?
Helaas kan ik het totale bestand niet via deze weg aan je mailen.

Met vriendelijke groet,
Cornelus.
 
cornelus,

Je advies heb ik uitgeprobeerd. Ik krijg dan de melding: Fout 9. Het subscript valt buiten het bereik.
Klik om te vergroten...
Ik begrijp er niets van, zat al met spanning te wachten op goed bericht.

Verder zou ik het niet weten, als je de goede oplossing nog krijgt, hoor ik het graag.

Suc6,
 
Beste Wim,

Bedankt voor je inspanningen.
Mogelijk komt er nog een antwoord op mijn probleem dat me verder helpt.

Nogmaals bedankt,
Groeten, Cornelus
 
cornelus,

Ik zou zeggen, ik kom even langs maar weet niet of het ver weg is.
 
Beste Wim,

Bedankt voor je aanbod. Ik ben nu bezig om het uitgeklede bestand, waar de funktie wel op reageert, opnieuw op te bouwen. In de hoop dat alles blijft functioneren.
Nogmaals dank.



Met vriendelijke groeten,
Cornelus.
 
Cornelus, dit betekent dat ofwel je blad niet bestaat of dat de naam verkeerd gespeld is. Let ook op spaties ed. Zoals Wim al aangaf beveiliging blad opheffen >> code in thisworkbook >> opslaan >> heropenen

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

Dit moet gewoon werken

Mvg

Rudi
 
Jopie !!!!!!!!!!!!!!!!!!!!!!!!!!!!

Het is gelukt.
Volgens mij zat het probleem in het feit dat ik VBE had beveiligd met dezelfde code als de werkbladen.

Ik wil iedereen die me geholpen heeft of getracht me te helpen hartelijk danken.

Fijne feestdagen en een gezond 2009 toegewenst door,
Cornelus.
 
cornelus,

Eindelijk gelukt.
Voor jou dezelfde wensen voor 2009.
Schut de stress van je af en geniet van de feestdagen.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan