Ga naar menu "Extra" --> "Marco" --> "Beveiliging" en zet dat op "laag". Anders wil je script niet.quote:Op woensdag 25 februari 2009 14:55 schreef Hunky_Dory het volgende:
hmmm,...ik zit in de buurt maar het klopt nog niet helemaal.
heb het bestand opgeslagen als excel met macros. bij het openen van het bestand krijg ik de melding dat de macros zijn uitgeshakeld, als ik ze weer in schakel gebeurt er niet (hij zou het werkblad af moeten sluiten om dat ik het controlewoord heb veranderd)
-edit-
excel accepteerd nu macros, maar sluit bestand nog steeds niet af.
quote:Op woensdag 25 februari 2009 17:38 schreef Metal_Jag het volgende:
[..]
Ga naar menu "Extra" --> "Marco" --> "Beveiliging" en zet dat op "laag". Anders wil je script niet.
Sluit het bestand af en open het opnieuw.
En met dit script wordt je bestand nog niet gesloten, maar geeft een melding "Veilig" of "Onveilig".
Ik weet niet of het al aangehaald is, maar zag je vraag gister op mn telefoon en dat typt nogal verrot.quote:Op woensdag 25 februari 2009 09:43 schreef static het volgende:
In het voorbeeld 01:10:29 valt het binnnen de range van 70-80 minuten.
Daar was ik inderdaad ook achter,.... ook geen oplossing dus. Iemand een andere suggestie om de file niet op andere computers te kunnen lezen?quote:Op woensdag 25 februari 2009 17:47 schreef Metal_Jag het volgende:
[..]
Watnou als je macro's uit zet en je het bestand opent.... dan is je veiligheid weg
![]()
Dit gaat dus niet werken, want het enige wat je hoeft te doen om de beveiliging te omzeilen is de macro's uitzetten...
opslaan in een zip-file met wachtwoord?quote:Op woensdag 25 februari 2009 20:22 schreef Hunky_Dory het volgende:
[..]
Daar was ik inderdaad ook achter,.... ook geen oplossing dus. Iemand een andere suggestie om de file niet op andere computers te kunnen lezen?
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.quote:Op woensdag 25 februari 2009 20:30 schreef qu63 het volgende:
[..]
opslaan in een zip-file met wachtwoord?
1) zet het bestand op een plek waar niemand het kan zien, vinden, of openen. (met wachtwoord dus, bijvoorbeeld 'jesupergeheimewachtwoord')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 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | 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 |
helemaal niks.quote:Op woensdag 25 februari 2009 22:20 schreef DaFan het volgende:
Ralfie, mooie code. Wat heeft user32.dll met Excel files te maken?
Oh heeh ik zie nu pas dat dat pad nog aangepast moet worden voor de gebruikerquote: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...
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):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
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 | 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 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | 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 |
Kun je dan nog steeds "opslaan als..." doen. Zodat je een kopie voor jezelf houdt.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...
En raffie wat gebeurt er als er meer dan 3 sheets aanwezig zijn, kun je dat ook niet nog beter in een loop inbouwen?quote:Op woensdag 25 februari 2009 22:37 schreef ralfie het volgende:
het is dus niet de bedoeling dat een bestaand bestand wordt overschreven...
Ik ook.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!
Dat ligt dan niet aan een engels of nederlandse excel versie maar aan de landsinstellingen bij de PC.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 mag static zelf oplossenquote: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.
Tuurlijk, eerst checken waarom je die #n/b krijgt en dan die conditie checken en afvangen met een IF statementquote: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?
upload maar een bestandje waaruit blijkt dat dat kan dan. Ik puzzel me gek. die #N/B neemt voorrang boven ongeveer ALLESquote:Op donderdag 26 februari 2009 20:42 schreef qu63 het volgende:
als(isfout(formule);"fout";"goed
")
zoeits kan toch
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
Zo gaf ik em ook al precies aan:quote:Op donderdag 26 februari 2009 20:53 schreef Dr_Flash het volgende:
[..]
Jij heldWeer wat geleerd
Werkt ook in 2003
De ISFOUT kende ik nog niet.
En dat probeer je dan niet eens?quote:Op donderdag 26 februari 2009 20:42 schreef qu63 het volgende:
als(isfout(formule);"fout";"goed
")
zoeits kan toch
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |