Messagebox

Status
Niet open voor verdere reacties.

Plenkie

Gebruiker
Lid geworden
11 nov 2009
Berichten
48
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan