Hej

Jag har fått hjälp av Er tidigare med följande kod.

Private Sub Workbook_Open()
If Now() > "2008-11-19" Then
MsgBox "Prislistan gäller inte, kontakta din leverantör"
Application.Quit
End If
End Sub

Innan man öppnar programmet kommer det upp en fråga om man vill använda makro eller inte.

Svarar man att man vill använda makro, fungerar det utmärkt. Programmet startar och följande text kommer upp.

Texten " Prislistan gäller inte, kontakta din leverantör"  Då måste man klicka på ok. och programmet stängs ner. 

Detta meddelande kommer naturligtvis upp endast efter att datum har förflutit.

Om man däremot inte vill använda makro, kan man starta programmet med de uträkningar som behövs.

 Vad är orsaken till detta och hur kommer man runt det så programmet stänger när när datum är passerad även om man inte vill använda makro? 

Vill således ha hjälp med en ny snutt så att programmet även stängs ner om man svarar ej vill använda makro.

Tacksam för svar med sådan kod.

Sanders.