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

vbokcancel

Status
Niet open voor verdere reacties.
N

nobody11

Gebruiker
Lid geworden
20 dec 2007
Berichten
552
ik heb deze macro gemaakt die zou moeten starten bij het openen van een excel sheet..

als men ok klikt,kan men verder gaan, als mn cancel klikt, moet het bestand sluiten (zonder opslaan)..

als ik het bestand echter open doet, laat hij al een eerste werkblad zien.. is het mogelijk dat ik deze code laat verschijnen nog voor het werkblad open gaat? dus zonder dat mensen al de inhoud kunnen zien?
Code: 
Private Sub workbook_open()
antwoord = MsgBox("De resultaten van deze berekeningen zijn louter indicatief! Wilt u verder gaan?", vbOKCancel, "Opgelet!")
If antwoord = 2Then ActiveWorkbook.Close False
If antwoord = 1 Then MsgBox ("welkom")

End Sub
 
Laatst bewerkt:
Beste nobody11 ;)

Wat dacht je van dit bestandje ?

Groetjes Danny. :thumb:
 

Bijlagen

Laatst bewerkt:
danny147 zei:
Beste nobody11 ;)

Wat dacht je van dit bestandje ?

Groetjes Danny. :thumb:
Klik om te vergroten...



interessant! maar is er een code om ervoor te zorgen dat bij mijn code hierboven de sheet nog niet zichtbaar is voor men "ok" heeft gedrukt
 
Laatst bewerkt:
Beste nobody11 ;)

Voor je de code intypt lees eerst eens wat er op het blad staat.

This sheet should be hidden

Verander de gebruiker en het wachtwoord.
Druk dan op ALT+F11
klik dan op sheet1 (config)
Dan bij eigenschappen bij visible zet je dit op xlsheethidden.

Als je nu het bestand opent zal het blad onzichtbaar zijn.

Groetjes Danny. :thumb:
 
danny147 zei:
Beste nobody11 ;)

Voor je de code intypt lees eerst eens wat er op het blad staat.

This sheet should be hidden

Verander de gebruiker en het wachtwoord.
Druk dan op ALT+F11
klik dan op sheet1 (config)
Dan bij eigenschappen bij visible zet je dit op xlsheethidden.

Als je nu het bestand opent zal het blad onzichtbaar zijn.

Groetjes Danny. :thumb:
Klik om te vergroten...



ja, dit heb ik geprobeerd, maar het is net zo dat die desbetreffende sheet wel zichtbaar moet worden na ik op "ok" heb gedrukt.. en enkel onzichtbaar zolang er niet op OK of CANCEL gedrukt is :-)
 
Beste nobody11 kan je hier iets mee ?
Code: 
Private Sub workbook_open()
Dim antwoord As Variant

antwoord = MsgBox("De resultaten van deze berekeningen zijn louter indicatief! Wilt u verder gaan?", vbYesNo)
If antwoord = vbNo Then ActiveWorkbook.Close False
If antwoord = vbYes Then MsgBox ("welkom")

End Sub

Heb er eenbestandje bij gedaan
 

Bijlagen

Laatst bewerkt:
trucker10 zei:
Beste nobody11 kan je hier iets mee ?
Code: 
Private Sub workbook_open()
Dim antwoord As Variant

antwoord = MsgBox("De resultaten van deze berekeningen zijn louter indicatief! Wilt u verder gaan?", vbYesNo)
If antwoord = vbNo Then ActiveWorkbook.Close False
If antwoord = vbYes Then MsgBox ("welkom")

End Sub
Klik om te vergroten...

jazeker, nu enkel nog zou ik willen dat zolang er geen antwoord (ok of cancel) is gegeven op mijn vraag, dat er geen enkele sheet zichtbaar is.. als het antwoord OK is mogen de sheets zichtbaar worden .. anders (zoals de code nu al doet) moet de sheet zich sluiten..
 
nobody11 zei:
jazeker, nu enkel nog zou ik willen dat zolang er geen antwoord (ok of cancel) is gegeven op mijn vraag, dat er geen enkele sheet zichtbaar is.. als het antwoord OK is mogen de sheets zichtbaar worden .. anders (zoals de code nu al doet) moet de sheet zich sluiten..
Klik om te vergroten...

Ik probeer om tot een oplossingte komen wat me ook gelukt is , echter niet prof.:confused:

Het tweede bestandje is met een beforeclose
 

Bijlagen

Laatst bewerkt:
nobody11 zei:
jazeker, nu enkel nog zou ik willen dat zolang er geen antwoord (ok of cancel) is gegeven op mijn vraag, dat er geen enkele sheet zichtbaar is.. als het antwoord OK is mogen de sheets zichtbaar worden .. anders (zoals de code nu al doet) moet de sheet zich sluiten..
Klik om te vergroten...

Ik had er daarnet overgelezen :confused:
 

Bijlagen

Beste nobody11 ;)

nobody11 zei:
ja, dit heb ik geprobeerd, maar het is net zo dat die desbetreffende sheet wel zichtbaar moet worden na ik op "ok" heb gedrukt.. en enkel onzichtbaar zolang er niet op OK of CANCEL gedrukt is :-)
Klik om te vergroten...

Dat is het hem juist, de sheet met de paswoorden moet altijd verborgen blijven en de andere sheets worden zichtbaar als de gebruiker en wachtwoord juist zijn.
Als wachtwoord verkeerd is, sluit het bestand zich.

Als je een voorbeeldje wilt, dan vraag je het maar.

Groetjes Danny. :thumb:
 
danny147 zei:
Als je een voorbeeldje wilt, dan vraag je het maar.

Groetjes Danny. :thumb:
Klik om te vergroten...

Hallo Danny , waar wacht je op ? Ik vermoed dat er steeds 1 sheet zichtbaar zal zijn ( blijven ) zonder bijkomende code . Het beste is om met een blanco begin sheet te werken .
 
Beste trucker10 ;)

Inderdaad moet je beginnen met een blanco blad.
Heb geprobeerd de code erin te steken, maar lukt niet helemaal.
Hij springt naar het blanco blad nadat de code is ingegeven.

De code voor te openen is

Gebruiker: nobody
Wachtwoord: nobody11

Groetjes Danny. :thumb:
 

Bijlagen

danny147 zei:
Beste trucker10 ;)

Inderdaad moet je beginnen met een blanco blad.
Heb geprobeerd de code erin te steken, maar lukt niet helemaal.
Hij springt naar het blanco blad nadat de code is ingegeven.

De code voor te openen is

Gebruiker: nobody
Wachtwoord: nobody11

Groetjes Danny. :thumb:
Klik om te vergroten...

@Danny bij deze een poging ;) " tussen de soep en de patatten "
Code: 
ActiveWindow.DisplayWorkbookTabs = True
Code: 
ActiveWindow.DisplayWorkbookTabs = False

Dit heb ik erin verwerkt
 

Bijlagen

Beste trucker10 ;)

Aangepast achter de soep en de patatten :D :D

Zie bestandje

Groetjes Danny. :thumb:
 

Bijlagen

Beste trucker10 ;)

Bij deze in rar.

Er zit nog een fout in.
Als je het paswoord verkeerd ingeeft sluit hij het bestandje niet.

Groetjes Danny. :thumb:
 

Bijlagen

danny147 zei:
Beste trucker10 ;)


Als je het paswoord verkeerd ingeeft sluit hij het bestandje niet.
Klik om te vergroten...

@ Danny ; we gaan er geraken :thumb:, kan nobody nog volgen ?;)en nu wachten tot Rudi de pers er eens inzet in de code :thumb::love:
oeps voor de mensen die het bestandje willen openen: gebruiker nobody en password nobody11
 

Bijlagen

Laatst bewerkt:
Beste trucker10 ;)

Dat is het.
2 weten altijd meer dan 1, wat soep en een paar patatten allemaal kunnen doen hé . :D :D

Nu maar wachten of nobody11 nog eens reageert.

Groetjes Danny. :thumb:
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan