Msg box når man åbner

Private Sub Workbook_Open()
svar = MsgBox(" Vil du åbne ", vbYesNo)
If svar = vbNo Then
Application.Quit
Workbooks.Close

End If
End Sub

sættes i ThisWorkbook modulet

Jeg takker !

Smider du et svar ?

et svar ;-))

LIlle tillægs spm.

Hvis jeg nu ønsker at lægge en box ind efter en makro, hvor der bare skal svares ok til og den så lukker filen , hvordan gør jeg det ?

Faktisk samme kode, men hvis den skal gemme først, skal det også programmeres, ellers kommer den og spørger.

Sub LukExcel()
    'Din kode......
    Dim Tekst As String, Titel As String, Svar As Integer
        Tekst = "      Vil du Lukke Program?"
        Titel = "      Bekræft Lukning"
        Svar = MsgBox(Tekst, vbYesNo, Titel)
       
        If Svar = vbYes Then
                 
        Else
                 
        If Not DBoksOK Then Exit Sub
        End If
       
        ActiveWorkbook.Save 'HVIS DU VIL SPØRGES OM AT GEMME FØRST SKAL DU SLETTE LINJEN HER.
    Application.Quit
End Sub

Du kan også gøre sådan her.
Sub Din kode()
'Din kode..........
LukExcel'Makro
end Sub

Sub LukExcel()
    Dim Tekst As String, Titel As String, Svar As Integer
        Tekst = "      Vil du Lukke Program?"
        Titel = "      Bekræft Lukning"
        Svar = MsgBox(Tekst, vbYesNo, Titel)
       
        If Svar = vbYes Then
                 
        Else
                 
        If Not DBoksOK Then Exit Sub
        End If
       
        ActiveWorkbook.Save 'HVIS DU VIL SPØRGES OM AT GEMME FØRST SKAL DU SLETTE LINJEN HER.
    Application.Quit
End Sub