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

Maco en beveiliging,

Status
Niet open voor verdere reacties.
A

aapje10

Gebruiker
Lid geworden
29 nov 2006
Berichten
73
Hallo,

Bijgevoegd een file waarin ik de sheets heb beveiligd met een wachtwoord.
Helaas heb ik sinds kort dat de macro een foutmelding geeft en ik denk dat dit komt doordat ik alle sheets afzonderlijk ben gaan beveiligen.
Doe ik iets verkeerd? (denk het wel)
Heb al wel van alles gevonden hierover maar kom er niet aan uit voor wat mijn file betreft.

Doe ik iets verkeerd? (denk het wel)

Alvast bedankt
 

Bijlagen

  • 8D-complaint Test HM.xlsm
    1,3 MB · Weergaven: 26
Het VBA project is ook beveiligd dus valt er weinig na te kijken.
 
Het gaat wat het wachtwoord betreft alleen om het blad Deadline.
Deze heeft een afwijkend wachtwoord van de andere sheets.
 
Wachtwoord

had ik nog niet opgemerkt maar is blijkbaar wachtwoord in capslock
 
Even aanpassen dus :)
 
aangepast

bedankt zover, is nu aangepast maar foutmelding blijft.

Opnieuw bijgevoegd
 

Bijlagen

  • 8D-complaint Test HM.xlsm
    1,3 MB · Weergaven: 24
Wachtwoord,

Klopte inderdaad, slordig en sorry daarvoor.

Nu zijn alle beveiligingen opgeheven maar zodra ik de beveiligingen er weer opzet gaat de macro dus fout.(1004)
 

Bijlagen

  • 8D-complaint Test HM.xlsm
    1,3 MB · Weergaven: 22
In het document dat ik plaatste gaat dat gewoon goed.
 
Ik zou eerst de rest van de code aanpakken en daarna over de beveiliging gaan nadenken:d

Code: 
Sheets("Main").Select
    Range("K6").Select
    Selection.Copy
    Sheets("db").Select
    Range("b5").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Kan ook zo
Code: 
Sheets("db").Range("b5") = Sheets("Main").Range("K6").Value
 
Macro fout bij beveiliging,

Klopt inderdaad, geweldig en bedankt.

Wat heb je precies aangepast?
 
macro en beveiliging,

sorry, toch nog een probleempje stel ik net vast.
De beveiliging wordt inderdaad opgeheven maar de beveiliging wordt niet teruggezet na de macro en dat ik wel graag willen.

Kan dat?
 
Ja, dat kan.
Kijk in de macro DeleteSelection() hoe ik dat gedaan heb.
 
Macro en beveiliging,

Duidelijk en bedankt. Ik had iets dergelijks maar dan met sheet voluit en jij hebt sht gebruikt, dat werkt dus.
 
Die sht is een object die wordt gemaakt in de For Each loop.
Hij is gedeclareerd als Worksheet.
 
Macro en beveiliging,

Gevonden en ga ermee aan de slag.

bedankt voor de snelle support..
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan