Messagebox

[Plenkie]

Vraag:

Ik heb voor mijn medewerkers een aantal excel bestanden die uiterst vertrouwlijk zijn. Daarom heb ik hierin een macro opgenomen die de gebruiker bij het openen laat kiezen om akkoord te gaan met de bedrijfsvoorwaarden of niet. Ja opent het bestand, nee sluit het bestand.

De macro is als volgt:

Private Sub Workbook_Open()
If MsgBox(" De informatie in dit bestand is vertrouwelijk!" & vbCrLf & "Gaat u akkoord met de algemene bedrijfsvoorwaarden?", vbExclamation + vbYesNo) = vbNo Then
ActiveWorkbook.Close
End If


End Sub

Private Sub WorkBook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
Application.Quit
End Sub

Als je het bestand echter opent, wordt excel geopend en krijg je dan de waarschuwing. Is het mogelijk dat excel pas opent nadat de gebruiker op Ja heeft gedrukt? Dus dat in eerste instantie alleen de messagebox zichtbaar is.

Mvg,

Plenkie

 

[snb]

Op grond van het Burgerlijk Wetboek is dit al van toepassing op medewerkers; die waarschuwing is echt overbodig.

 

[Plenkie]

Het gaat om het idee Ik werk met een stel halven namelijk, die moet je alles 10 keer zeggen.

Ook nog toevoegingen voor de Macro ?:O

 

[snb]

Wat is het bezwaar dat Excel is geopend, terwijl het niet geaccepteerde bestand is gesloten ?

 

[Plenkie]

Bij het openen van het bestand opent Excel met alle gegevens. Deze zijn dus al wel zichtbaar. Er kan alleen niks worden aangepast totdat de messagebox is weggedrukt.

Nu wil ik graag dat excel dus nog niet opent, zodat de gegevens nog niet zichtbaar zijn.

Mvg,

Plenkie United

 

[snb]

Bij het openen van het bestand opent Excel met alle gegevens. Deze zijn dus al wel zichtbaar

Dat hoeft helemaal niet: bijv. 1 leeg werkblad als voorblad zichtbaar, alle overige werkbladen onzichtbaar.

 

[Plenkie]

Oke..

Stel dat je alles wat erbovenstaat vergeet.

Is het dan mogelijk dat je eerst de messagebox krijgt, bij ja opent excel en bij nee gebeurt er niks?

Mvg,

Nogmaals Plenkie United

 

[snb]

Welk programma zou dat berichtvenster dan moeten tonen ?

 

[Plenkie]

Excel?

Misschien dat het mogelijk is dat excel geminimaliseerd blijft tot de keuze Ja en dat hij dan maximaliseert?

Of niet?

Of misschien?

 

[snb]

Wat is er mis met de bijlage ?

 

[Plenkie]

Bijna

Is het niet datttt ik graag na het klikken van Ja automatisch op het blad data terecht kom.

Ik weet dat ik lastig ben etc.. maar het zou mij hard op weg helpen

Voorbaat dank!

 

[Warme bakkertje]

Zie bijlage

 

[Plenkie]

Warme bakker,

precies zoals ik bedoel..

Als ik het nu echter op mijn bestand kopieer, dan krijg ik steeds foutmeldingen.

Hoe kan dit?

Zie bijgevoegd bestand, hierop wil ik dat bijvoorbeeld toepassen.

Mvg,

Plenkie

 

[trucker10]

Even tijdens de pauze , is het in die richting dat je het wil ?

 

[Plenkie]

Hey,

Nee, niet die richting op.

De warme Bakker had het goed.. ik krijg het alleen niet op mijn toegevoegd bestand geimplementeerd. Ik zie niet waarom niet en waar de fout ligt..

GR!

 

[trucker10]

Plenkie , ik had een verkeerd afgesloten bestandje geupload , 't is soms moeilijk vanachter mijn bureau werken ( stuur )

 

[Plenkie]

Kan gebeuren

Mvg,

Plenkie (al afwachtend op de verlosser )

 

[snb]

kopiëren is blijkbaar moeilijker dan ik dacht.....

Private Sub Workbook_Open()
    If MsgBox("Wat zullen we doen: Doorgaan ?", vbCritical + vbYesNo, "Overtuigend genoeg") = vbNo Then ThisWorkbook.Close False
    Sheets("gegevens").Visible = True
    Sheets("data").Visible = True
    Application.Goto [data!A1]
End Sub

Bovendien is het handig de .Visible eigenschap van de werkladen gegevens en 'data' op veryhidden te zetten.
Verwijder alle andere code uit je bestand. (zoals bij beforeClose)

 

[Revdutchie]

Ik weet het niet, maar ik vraag me af of dit echt is wat je wil.
Als iemands beveiliging te hoog is voor macros of je schakelt macros uit dan werkt dit alles niet.

Hier is een betere oplossing voor als je dat wilt ?

 

[Plenkie]

Hmm.. Macro's doen het ook als de beveiliging op hoog staat. Iets veranderd in policy zodat je deze melding niet krijgt en de macro's gewoon doen.

Ik ben er nu zo goed als uit. Of jij moet nog een betere suggestie hebben?

p.s. Jij ook bedankt nlsb'er!

Gr,

Plenk