[OPGELOST] Blad beveiliging en macros, hoe doe ik dat?(Calc)

[Karel Danko]

Hallo allemaal, daar ben ik weer hoor.....

Hoe kan ik mijn blad beveiligen zodat de macros wel blijven werken maar de data niet meer bereikbaar is voor veranderingen.

Als ik via het blad selecteer en op een cel ga staan en via rechter muiskop de cellen bewerk en de celbeveiliging aanzet,
hierna het blad beveilig met een wacht woord dan kan voert het blad de macros dus niet meer uit omdat die op de eers volgende
lege cel worden geschreven. En die kunnen na de celbeveiliging niet meer verandert worden.

Als ik alleen lezen via Extra - Opties - veiligheid dan werkt werkt het blad ook niet meer, want ik kan dan alleen lezen.
Maar toevoegen kan dan niet meer

Voorbeeld van het bestand vind je hier http://www.datafilehost.com/download-8fb2c293.html

Het bestand welke ik heb is nog door Andrew verandert maar ik denk dat dit document hetzelfde probleem heeft.

Weet iemand een oplossing om toch Sheet2 te beveiligen maar dat het blad wel de invoer kan verwerken!!!

alvast bedankt voor de hulp

[Johan]

Macro's hebben zo ook hun nadelen?

[Karel Danko]

Andrew vertelde mij dat het met read only = alleen lezen ook gaat maar ik heb alles geprobeerd en het lukt echt niet...

Het document werkt nu met macros.
Bestaan er geen beveiligings macros om blad 2 te beveligigen dat niemand de records kan veranderen.

ER mag toch geen data uit blad 2 gehaald worden.
Wie weet of er ook een macro oplossing bestaat???

[Karel Danko]

Kan iemand mij vertellen of deze macro misschien werkt. en hoe ik deze in moet voeren

Code: Selecteer alles

Sub Main
GlobalScope.BasicLibraries.loadLibrary("XrayTool")
c=thisComponent.sheets.getByIndex(0).getCellByPosition(0,0)
xray c
REM Ah, CellProtection is an UNO struct rather than object
REM get a brand new CellProtection struct
cp = createUnoStruct("com.sun.star.util.CellProtection")
REM change it
cp.IsLocked = True
REM assign it to the cell
c.CellProtection = cp
print c.CellProtection.IsLocked
End Sub

Nogmaals ik ben niet zo goed met die macros en weet mijn god niet wat hier staat...
Ben alleen aan het zoeken om te zorgend dat het blad wel de data invoert maar dat het daarna niet meer verandert kan worden.
Dan is alles perfect werkend.

[RPG]

Hallo Karel

Karel je moet een macro opnemen
De macro moet alles doen wat je wilt en die plaats je ergens in misschien werkt dat voor jouw.
Als je de macro wilt bewerken dan kan deze lijst je misschien helpen

http://www.openoffice.org/files/documen ... rence.html

Je hebt nu voorbeelden genoeg om er zelf iets van te kunnen maken.
Het beroepen op gebrek aan kennis is geen anbeveling om je verder te helpen.

Romke

[Johan]

De enige mogelijke oplosiing die ik zie, is dat u degene aanschrijft die voor u de desbetreffende macro geschreven heeft. Vooaleer hij de data van Blad 1 naar Blad 2 kopieert, moet hij de beveiliging op blad 2 opheffen en eens de informatie er staat, moet blad 2 weer automatisch beveiligd worden. In een goed beveiligde cel kan nu eenmaal geen informatie toegevoegd of verwijdert worden. Ook niet door een macro. Tenzij de macro zelf de beveiliging gaat opheffen en terug instellen. Dat lijkt mij de logica zelve?

[Karel Danko]

Johan dit schrijft andrew in zijn mail

You can use a macro to protect and unprotect a sheet, but, you must then either ask the user for the password every time, or you must embed the password in the document.

You can write code such as:

Dim protectedTheSheet As Boolean

protectedTheSheet = False
If oSheet.isProtected() Then
oSheet.unprotect("password_that_you_used")
protectedTheSheet = True
End If

Do the work here to copy the data

If protectedTheSheet Then
oSheet.protect("password_that_you_used")
End If

After you do this, then your password will be available for anyone to see. You can also ask the user for the password, but then, you will be asked to enter the password every time you run the macro.

Weet echt niet hoe hij dit bedoelt en hoe ik dit in een code moet doen en hoe ik blad2 moet beschermen...
Denk dat ik gewoon moet gaan kl...ten met deze macro ...

[Johan]

Karel,
de dimensie wordt altijd bovenaan uw macro vermeld. Het ene stukje dient u te plaatsen voor u blad 2 aanspreekt, het andere voor ''end sub''. Andrew past zijn macro aan zoals ik het reeds had verteld. Maar hij vraagt zich ook het nut van deze beveiliging af. Hij is niet de enige ...

[Karel Danko]

Ok johan zal het je proberen uit te leggen.

Er bestaan 10 bladen.
Elk blad met zijn eigen doel en gegevens die hier samen komen.
Blad1 verzamelt alle gegevens uit de 10 bladen.
Via copy cells wordt deze data door gestuurd naar blad2 zoals je gezien hebt.
Blad1 haalt allle relevante informatie voor 1 maand naar voren via blad2.
Daar heb jij bij geholpen met de functie die je mij hebt gestuurd.

Ik blij alles werkt.
Belastingdienst niet blij.....
Die zegt wij zijn pas blij als niemand iets kan veranderen aan blad2.
Hoe dat zoek jij maar uit...

Dat is het probleem van mij...
Blad 2 mag vrij zijn alleen alle data die er in komt mag niet meer verandert worden.
Beetje flauwekul van de BD maar het is niet anders.
Ik kan gedeeltelijk meegaan met hun gedachten maar als ik
aan bruto omzet 119 heb en ik vul 100 in kunnen ze dat ook niet controleren.
Vandaar dat ik zeg waar zijn ze mee bezig maar zij willen dit en ik moet mij hierin schikken.

Het maakt niet uit hoe of wat er gebeurd.
Sheet1 noem ik INVOERDB of DBINVOER en deze vult de data in blad2=DBJAAR via de button Copy Cells.
Sheet2 moet wel de data verzamelen maar die mag hierna niet meer gewijzigd worden.

Als ik de beveiliging klaar heb gaat het hele document voor controle naar een speciale afdeling waar het word getest op fouten.
Zij zijn hier al mee begonnen. Alleen jou formule die de berekening voor de maanden maakt en de beveiliging hebben zij dus nog niet gecontroleerd.
De rest wel, maar ik mag er niet eerder mee werken dan dat het beveiligd is.
Misschien dat jij en de anderen nu snappen waarom ik dit beveiligd wil hebben.

[Karel Danko]

Johan en dan nog iets...
Waar moet ik dit dan plaatsen
jij zegt voordat je blad2 aanroept????

Waar komt dit dan te staan....
Dim protectedTheSheet As Boolean

protectedTheSheet = False
If oSheet.isProtected() Then
oSheet.unprotect("karel")
protectedTheSheet = True
End If

waar komt dit
Do the work here to copy the data

en waar komt de rest te staan???

Heb er echt geen verstand van anders vraag ik het niet
Kan het namelijk niet uitstaan als ik iets niet zelf kan.

[RPG]

Hallo Karel

Nadat een sub is aangeroepen wordt dat regel voor regel uitgevoerd.
Als er een andere sub wordt aangeroepen dan wordt die sub eerst uitgevoerd en wordt verder gegaan met de overige regels.

Wat Andrew zegt plaats alles op een goede volgorde binnen een enkel sub.
Ga uit van de sub die al werkt voor het verplaatsen van de data en voeg in het begin en eind iets toe. Wat moet je toevoegen? Die regels die Andrew jouw heeft gegeven. Je moet ze letterlijk copieren en soms namen aanpassen.

Dim statememts komen aan het begin van de sub.
Andrew geeft enkele statements en een verklaring door elkaar. Samen maakt dat de volgorde

Ik hoop dat Johan het mij niet kwalijk neemt dat ik dit invul.


Romke

[Karel Danko]

Hallo Johan en alle andere.

Andrew heeft mij een oplossing gestuurd.
Ware het niet dat dit weer een macro is.
Maar 1 die de beveiliging van de cellen opheft op het moment dat je het verstuurt.
Het is de zelfde code die ik hierop heb gezet alleen hij plaats het op een bepaalde manier
in het bestand zoals Johan dit ook al vertelde.
Ik kon dit niet.
Het is nu wel opgelost.

IK BEN KLAAR MET HET PROJECT.
BELASTINGDIENST HEEFT NET EEN KOPIE ONTVANGEN>>>>>
NU WACHTEN OP DE GOEDKEURING..

BEDANKT VOOR AL JULLIE HULP
ZONDER ANDREW PITONYAK, JOHAN EN ROMKE EN DIT FORUM WAS HET MIJ NOOIT GELUKT

Groet Karel