lukning af fil "har du husket"

Der skal selfølgelig så være en en Ja/nej boks, hvor den ikke lukker filen hvis man trykker på nej !

jeg ved det kan lade sig gøre ved hjælp af makro'er... kan bare ikke lige PT huske hvordan man gør.. men jeg ved det godt kan lade sig gøre...

En sådan meddelelsesboks skal lægge under hændelsen "Before_Close" og kunne se sådan ud:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Svar = MsgBox("Har du husket ......?", vbYesNo, "Har du husket")
    If Svar = vbYes Then
        'Udfør action
    Else
        'Udfør action
    End If
End Sub

lægge = ligge el. lægges :-)

> JANVOGT

Hændelsen "Before close" , hvor "lægger" den ? Øh hvor finder jeg den ?

Tryk ALT+F11 for at komme ind i VBA-editoren.
Koden skal så placeres under "ThisWorkbook".

Når du går ind under "ThisWorkbook" kan du ovenover vælge "Workbook" fra en rulleliste. Til højre kan du nu i en anden rulleliste se, hvilke hændelser, der er tilgængelige under "ThisWorkbook".

>Janvogt  Jeg har ikke en hændelse der hedder "before close" !

>janvogt  så har jeg fundet den og det fungerer fint. jeg takker !

> janvogt  Det fungerer ikke helt som jeg ville alligevel. Når boksen kommer frem og man trykker på "nej", så lukker den filen og det burde den ikke.
Det skulle være sådan at den kun lukker filen, når man trykke på "ja" og hvis man trykker på "nej", går den tilbage til arket !

Jeg tror der er smuttet en linie for Jan.
hvis man sætter Cancel = True kan man ikke lukke

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Svar = MsgBox("Har du husket ......?", vbYesNo, "Har du husket")
    If Svar = vbYes Then
        'Udfør action
    Else
        Cancel = True
        'Udfør action
    End If
End Sub

>bak  jeg takker og ville egentlig gerne have givet nogle point for hjælpen, men de er jo strøget afsted til Hr. Jan Vogt

Jeg ved ikke, om der er smuttet noget, for jeg har slet ikke sat nogen "action" ind :-)
Jeg troede måske der også skulle ske/vises noget mere, når man trykkede "Ja".

Men ellers har Bak ret. Skal der ikke ske yderligere kan koden forkortes til:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Svar = MsgBox("Har du husket ......?", vbYesNo, "Har du husket")
    If Svar = vbNo Then
        Cancel = True
    End If
End Sub

>Janvogt  Hvad mener du med at du ikke har sat nogen "action" ind ? Er det muligt at få makroen til at gøre noget extra, f.eks hvis man svarer nej, at den så laver et udskrift ?

Ja, optag evt. det du ønsker med makrobåndoptageren (f.eks. udskrift) og indsæt så koden under "Else".

Det er også muligt, at hvis du svarer "Ja" kommer der en ny meddelelsesboks op, hvor den spørger, om du også har husket .......

> janvogt Er det noget lignende det her.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Svar = MsgBox("Har du husket ......?", vbYesNo, "Har du husket")
    If Svar = vbYes Then
        'Udfør action
    Else
        'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    End If
End Sub

>janvogt  Jeg kan nu ikke få den til at udskrive arket ?

> janvogt    Har fundet ud af det !

Fint, du skal bare fjerne det lille " ' " foran koden.

>janvogt  Sidste spm.i denne session! Findes der en "hændelse" hvis man vil kopiere arket til et nyt ark , altså ligesom "hændelsen" "before close" ??


ps. Skal du se bold i dag (EFB-Spartak)