[EXCEL] Het grote Excel vragen topic, #10

woensdag 25 februari 2009 @ 21:16:06 #276

Hunky_Dory

quote:
Op woensdag 25 februari 2009 20:30 schreef qu63 het volgende:

[..]

opslaan in een zip-file met wachtwoord?

de file is al beveiligd met een wachtwoord. dit is het probleem niet. Ik wil alleen dat de mensen die nu de file "mogen" openen, deze informatie in de toekomst niet kunnen gebruiken,...m.a.w. de file mag maar op 1 locatie te openen zijn.

lastig,...ik weet het,....

woensdag 25 februari 2009 @ 21:47:37 #277

ralfie

!Yvan eht nioj

quote:
Op woensdag 25 februari 2009 21:16 schreef Hunky_Dory het volgende:

[..]

de file is al beveiligd met een wachtwoord. dit is het probleem niet. Ik wil alleen dat de mensen die nu de file "mogen" openen, deze informatie in de toekomst niet kunnen gebruiken,...m.a.w. de file mag maar op 1 locatie te openen zijn.

lastig,...ik weet het,....

1) zet het bestand op een plek waar niemand het kan zien, vinden, of openen. (met wachtwoord dus, bijvoorbeeld 'jesupergeheimewachtwoord')
C:\windows\system\system64\users32.dll bijvoorbeeld. Ik stel voor hem diep, diep in een windows folder te proppen, en te vermommen. (bijvoorbeeld als dll bestand, niemand die verwacht dat dat een excel bestand is)
2)maak een nieuw excel bestand, dit is het bestand wat iedereen die de informatie mag zien kan openen (je zal er dus waarschijnlijk een wachtwoord op willen zetten).
plak de volgende code in de code editor:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    On Error GoTo dend
    Dim x As Workbook
    Set x = Workbooks.Open("C:\windows\system\system64\users32.dll", False, True, , "jesupergeheimewachtwoord", , , , , , False, , False)
    For Each s In x.Sheets
        s.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    Next s
    x.Close
    Sheets(3).Delete
    Sheets(2).Delete
    Sheets(1).Delete
dend:
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

3) ga naar extra->eigenschappen van vbaproject, tabje beveiliging. Activeer hem, zet er een supergeheim wachtwoord op.
4) opslaan (alleen-lezen).

5) er is geen 5). Zodra het werkblad met de bovenstaande code wordt geopend, zal de code op een geheime plek de data importeren. Niemand kan het pad uit de code halen, omdat daar ook een wachtwoord op zit.

helaas kun je zo moeilijk maken als je wil, je kunt never nooit niet verhinderen dat iemand met printscreen de data kopieert, of een van de wachtwoorden met een simpel tooltje kraakt. Aan de andere kant, kun je ook niemand verhinderen om met pen en papier alles over te schrijven...

woensdag 25 februari 2009 @ 21:49:54 #278

qu63

..de tijd drinkt..

quote:
Op woensdag 25 februari 2009 21:47 schreef ralfie het volgende:
5) er is geen 5).

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

woensdag 25 februari 2009 @ 22:20:26 #279

DaFan

Ralfie, mooie code. Wat heeft user32.dll met Excel files te maken?

woensdag 25 februari 2009 @ 22:37:27 #280

ralfie

!Yvan eht nioj

quote:
Op woensdag 25 februari 2009 22:20 schreef DaFan het volgende:
Ralfie, mooie code. Wat heeft user32.dll met Excel files te maken?

helemaal niks.

ik hoop trouwens dat dat pad niet bestaat in windows 64 bit :p

het is dus niet de bedoeling dat een bestaand bestand wordt overschreven...

woensdag 25 februari 2009 @ 22:52:29 #281

DaFan

quote:
Op woensdag 25 februari 2009 22:37 schreef ralfie het volgende:

[..]

helemaal niks.
ik hoop trouwens dat dat pad niet bestaat in windows 64 bit :p

het is dus niet de bedoeling dat een bestaand bestand wordt overschreven...

Oh heeh ik zie nu pas dat dat pad nog aangepast moet worden voor de gebruiker

Nvm

donderdag 26 februari 2009 @ 04:45:57 #282

static

03.09.2006 - 11:35

quote:
Op woensdag 25 februari 2009 18:43 schreef DaFan het volgende:

[..]

Ik weet niet of het al aangehaald is, maar zag je vraag gister op mn telefoon en dat typt nogal verrot.

De vraag is valide, het zou wel handig zijn als je door 5 kan delen en dan ben je er al bijna. In jouw voorbeeld moet je nu meerdere 'IF's maken.

Dus 0-5 = 5
6-14 = 10 ?
..
65-70 = ?
70- 80 = 70

Misschien leg ik het wel krom uit (zal zeer waarschijnlijk het geval zijn :+ ), maar bij mijn vorige vraag wilde ik het timeslot weten, die formule is toen gepost en heeft precies tot resultaat wat ik wil (zie 'TimeSlot' gebaseerd op de cel/kolom rechts ervan):

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

Kolom1          kolom2
TimeSlot   Happen Time
17:00 - 18:00   2009-02-25 17:07:24
14:00 - 15:00   2009-02-25 14:50:32
16:00 - 17:00   2009-02-25 16:05:01
15:00 - 16:00   2009-02-25 15:49:06
15:00 - 16:00   2009-02-25 15:15:54
17:00 - 18:00   2009-02-25 17:29:31
4:00 - 5:00   2009-02-25 04:46:11
4:00 - 5:00   2009-02-25 04:45:14
4:00 - 5:00   2009-02-25 04:45:18
4:00 - 5:00   2009-02-25 04:44:35
4:00 - 5:00   2009-02-25 04:19:10
4:00 - 5:00   2009-02-25 04:18:21
4:00 - 5:00   2009-02-25 04:18:26
4:00 - 5:00   2009-02-25 04:17:36
2:00 - 3:00   2009-02-25 02:18:19
2:00 - 3:00   2009-02-25 02:17:22
2:00 - 3:00   2009-02-25 02:17:27
2:00 - 3:00   2009-02-25 02:16:47
2:00 - 3:00   2009-02-25 02:12:28
2:00 - 3:00   2009-02-25 02:11:31
2:00 - 3:00   2009-02-25 02:11:36
2:00 - 3:00   2009-02-25 02:10:57
1:00 - 2:00   2009-02-25 01:55:58
1:00 - 2:00   2009-02-25 01:55:01
1:00 - 2:00   2009-02-25 01:55:06
1:00 - 2:00   2009-02-25 01:54:28
0:00 - 1:00   2009-02-25 00:12:23
0:00 - 1:00   2009-02-25 00:08:03
0:00 - 1:00   2009-02-25 00:05:43
0:00 - 1:00   2009-02-25 00:02:23

Nu wil ik een kolom naast deze (voorbeeldgetallen):

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

Duration(h:m:s)
0:00:01
0:00:01
0:00:01
0:00:01
0:05:22
0:05:25
0:05:25
0:05:32
0:05:42
0:05:51
0:05:51
0:12:22
0:12:29
0:12:37
0:12:42
0:12:45
0:12:45
0:12:47

Die aangeeft in welke interval een waarde valt, en het liefst dat die interval te wijzigen is, in bijvoorbeeld:
- elke 5 minuten (0:00:00-0:00:05:, 0:00:05:-0:00:10)
- elke 10 minten (0:00:00-0:00:10:, 0:00:10:-0:00:20)

Etc. Of gaat dat erg ingewikkeld worden?

Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]

donderdag 26 februari 2009 @ 07:45:01 #283

Metal_Jag

MMM van metal

quote:
Op woensdag 25 februari 2009 21:47 schreef ralfie het volgende:

[..]

1) zet het bestand op een plek waar niemand het kan zien, vinden, of openen. (met wachtwoord dus, bijvoorbeeld 'jesupergeheimewachtwoord')
C:\windows\system\system64\users32.dll bijvoorbeeld. Ik stel voor hem diep, diep in een windows folder te proppen, en te vermommen. (bijvoorbeeld als dll bestand, niemand die verwacht dat dat een excel bestand is)
2)maak een nieuw excel bestand, dit is het bestand wat iedereen die de informatie mag zien kan openen (je zal er dus waarschijnlijk een wachtwoord op willen zetten).
plak de volgende code in de code editor:
[ code verwijderd ]

3) ga naar extra->eigenschappen van vbaproject, tabje beveiliging. Activeer hem, zet er een supergeheim wachtwoord op.
4) opslaan (alleen-lezen).

5) er is geen 5). Zodra het werkblad met de bovenstaande code wordt geopend, zal de code op een geheime plek de data importeren. Niemand kan het pad uit de code halen, omdat daar ook een wachtwoord op zit.

helaas kun je zo moeilijk maken als je wil, je kunt never nooit niet verhinderen dat iemand met printscreen de data kopieert, of een van de wachtwoorden met een simpel tooltje kraakt. Aan de andere kant, kun je ook niemand verhinderen om met pen en papier alles over te schrijven...

Kun je dan nog steeds "opslaan als..." doen. Zodat je een kopie voor jezelf houdt.

Dan werkt het weer niet.

donderdag 26 februari 2009 @ 11:05:04 #284

DaFan

Static ik ben eruit.
Zie plaatje hieronder.

A2 staat de interval in.
D2:
=(ROUNDDOWN(MINUTE($C2)/$A$2,0)*$A$2) & " - " & ((ROUNDDOWN(MINUTE($C2)/$A$2,0)*$A$2)+$A$2)

Edit:
Nvm de E-kolom daar heb ik even zitten kloten voor het tweede deel van de formule

donderdag 26 februari 2009 @ 13:51:29 #285

static

03.09.2006 - 11:35

Oei, dat wordt rommelen volgens mij, hij gaat al over de zeik bij de referentie naar de interval-cel.

Will keep you posted.

Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]

donderdag 26 februari 2009 @ 15:27:44 #286

static

03.09.2006 - 11:35

Ah, hebbes; hier: $A$2,0 moet geen komma staan, maar een punt-komma - $A$2;0 dus.

Het begin is er, alleen na een uur (dus '1:03:14' bijvoorbeeld) schiet hij weer terug naar '0 - 5' i.p.v. het uur als minuten te lezen, het zou dus '60-70' moeten zijn.

Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]

donderdag 26 februari 2009 @ 15:29:16 #287

DaFan

Sorry ik heb de Engelse versie. Zal er zo nog ff naar kijken!

donderdag 26 februari 2009 @ 15:31:54 #288

Basp1

quote:
Op woensdag 25 februari 2009 22:37 schreef ralfie het volgende:

het is dus niet de bedoeling dat een bestaand bestand wordt overschreven...

En raffie wat gebeurt er als er meer dan 3 sheets aanwezig zijn, kun je dat ook niet nog beter in een loop inbouwen?

donderdag 26 februari 2009 @ 16:02:59 #289

DaFan

Zo dan; weer in het Engels dus komma's worden puntkomma's.

=(ROUNDDOWN(MINUTE($C3)/$A$2,0)*($A$2)+(HOUR($C3)*60)) & " - " & (ROUNDDOWN(MINUTE($C3)/$A$2,0)*($A$2)+(HOUR($C3)*60)+$A$2)

donderdag 26 februari 2009 @ 16:04:52 #290

static

03.09.2006 - 11:35

quote:
Op donderdag 26 februari 2009 15:29 schreef DaFan het volgende:
Sorry ik heb de Engelse versie. Zal er zo nog ff naar kijken!

Ik ook.

Zal wel aan de instellingen liggen.

Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]

donderdag 26 februari 2009 @ 16:41:54 #291

Basp1

quote:
Op donderdag 26 februari 2009 16:02 schreef DaFan het volgende:
Zo dan; weer in het Engels dus komma's worden puntkomma's.

Dat ligt dan niet aan een engels of nederlandse excel versie maar aan de landsinstellingen bij de PC.

donderdag 26 februari 2009 @ 16:52:47 #292

DaFan

quote:
Op donderdag 26 februari 2009 16:41 schreef Basp1 het volgende:

[..]

Dat ligt dan niet aan een engels of nederlandse excel versie maar aan de landsinstellingen bij de PC.

Dat mag static zelf oplossen

Ik vind komma's veel makkelijker, typt natuurlijker.

donderdag 26 februari 2009 @ 18:59:04 #293

marcb1974

Dakshin Ray

Als ik de formule verticaal zoeken gebruik krijg ik of een uitkomst of #N/B. Is er een manier om die #N/B aan te passen in een andere tekst of er niets neer te zetten?

stupidity has become as common as common sense was before

Heeft over alles een mening 2022 donderdag 26 februari 2009 @ 19:03:58 #294

Dr_Flash

CubeMeister

quote:
Op donderdag 26 februari 2009 18:59 schreef marcb1974 het volgende:
Als ik de formule verticaal zoeken gebruik krijg ik of een uitkomst of #N/B. Is er een manier om die #N/B aan te passen in een andere tekst of er niets neer te zetten?

Tuurlijk, eerst checken waarom je die #n/b krijgt en dan die conditie checken en afvangen met een IF statement

Salivili hipput tupput tapput äppyt tipput hilijalleen

Heeft over alles een mening 2022 donderdag 26 februari 2009 @ 20:40:22 #295

Dr_Flash

CubeMeister

sucks Marc

Je kan keurig checken op de foutcode voor een niet gevonden waarde. Doe maar eens =TYPE.FOUT(cel). Als je dat doet bij een cel waar een waarde niet gevonden wordt, rolt er keurig 7 uit. Maar als alles goed gaat, is er geen fout, en treedt dus juist die #N/B fout op

Ze zijn gewoon vergeten een foutcode in te bouwen voor "alles gaat goed"

Weet iemand of dit in Office 2007 ondervangen is?

Salivili hipput tupput tapput äppyt tipput hilijalleen

donderdag 26 februari 2009 @ 20:42:32 #296

qu63

..de tijd drinkt..

als(isfout(formule);"fout

";"goed

")

zoeits kan toch

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

Heeft over alles een mening 2022 donderdag 26 februari 2009 @ 20:45:22 #297

Dr_Flash

CubeMeister

quote:
Op donderdag 26 februari 2009 20:42 schreef qu63 het volgende:
als(isfout(formule);"fout ";"goed ")

zoeits kan toch

upload maar een bestandje waaruit blijkt dat dat kan dan. Ik puzzel me gek. die #N/B neemt voorrang boven ongeveer ALLES

En niet dat je op die tekst kan checken

Salivili hipput tupput tapput äppyt tipput hilijalleen

donderdag 26 februari 2009 @ 20:50:44 #298

qu63

..de tijd drinkt..

A1 = 1
B1 = 2
C1 = =VERT.ZOEKEN(3;A1:B2;1;ONWAAR)

C1 geeft geeft #N/B

A3 = =ALS(ISFOUT(C1);"fout

";"goed

")

A3 geeft "fout

"

In Excel 2007 NL

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

Heeft over alles een mening 2022 donderdag 26 februari 2009 @ 20:53:35 #299

Dr_Flash

CubeMeister

quote:
Op donderdag 26 februari 2009 20:50 schreef qu63 het volgende:
A1 = 1
B1 = 2
C1 = =VERT.ZOEKEN(3;A1:B2;1;ONWAAR)

C1 geeft geeft #N/B

A3 = =ALS(ISFOUT(C1);"fout ";"goed ")

A3 geeft "fout "

In Excel 2007 NL

Jij held

Weer wat geleerd

Werkt ook in 2003

De ISFOUT kende ik nog niet.

Salivili hipput tupput tapput äppyt tipput hilijalleen

donderdag 26 februari 2009 @ 20:56:13 #300

qu63

..de tijd drinkt..

quote:
Op donderdag 26 februari 2009 20:53 schreef Dr_Flash het volgende:

[..]

Jij held Weer wat geleerd Werkt ook in 2003 De ISFOUT kende ik nog niet.

Zo gaf ik em ook al precies aan:

quote:
Op donderdag 26 februari 2009 20:42 schreef qu63 het volgende:
als(isfout(formule);"fout ";"goed ")

zoeits kan toch

En dat probeer je dan niet eens?

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

Forum Opties
Forumhop:
Hop naar:	(afkorting, bv 'KLB')

» digital corner

» software

» digital corner

» software