Krijsje sluiten uitschakelen in excel

[Jan1978]

Hallo mede helpers,

Ik ben aal een poosje bezig maar krijg het niet voor elkaar.
De code hieronder heb ik in Thisworkbook staan.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
        If CloseMode = 0 Then
        Cancel = True
        MsgBox "Het kruisje is geblokkeerd! Gebruik de knop!.", vbCritical
    End If
End Sub

nu heb ik op een sheet onder een knop deze zelfde code staan maar dan maak ik van die 0 een -1 als ik het goed heb zou die nu excel moeten afsluiten maar dat doet die niet weet iemand wat ik verkeerd doe.

al vast bedank voor het meedenken,

Grt Jan

 

[exhelp]

Plak onderstraande code in 'ThisWorkbook' via de VBA editor:

Public Sub Workbook_BeforeClose(Cancel As Boolean)

    MsgBox "Afsluiten gaat niet met het kruisje" & _
    vbNewLine & "Neem eens een kijkje op http://www.exhelp.be"
    
    Cancel = True

End Sub

 

[Jan1978]

Hoi exhelp

ik heb bovenstaande code in thisworkbook geplakt. en deze werkt.
maar nu is wel mijn vraag als ik met een opdrachtknop die ik maak wilt afsluiten wat zet ik achter deze knop zodat excel weer afsluit.

en bedank voor je site ik zal daar is rondneusen.

Grt Jan

 

[exhelp]

Ik heb niet veel tijd meer. Even uit de losse pols:

Achter je knop

Public knopOK as integer
knopOK = 1
Application.Quit

In ThisWorkbook:

Public Sub Workbook_BeforeClose(Cancel As Boolean)

If Not knopOK = 1 Then

MsgBox "Afsluiten gaat niet met het kruisje" & _
vbNewLine & "Neem eens een kijkje op http://www.exhelp.be"
 
Cancel = True

End If

End Sub

 

[huijb]

Voor allen; code dient tussen codetags geplaatst te worden en overbodig quoten, quoten wanneer je direct na iemand reageert, is niet toegestaan.

 

[Jan1978]

hallo exhelp.

Ik heb de code ThisWorkbook geplakt en dit werkt prima.

Alleen de code die ik achter de knop moet weet ik niet waar ik deze moet plaatsen want ik krijg hem niet werkend.
toch te weinig met vba gedaan.

Hoe krijg ik het werkend zodat ik als ik op een opdrachtknop druk excel wel sluit.

al vast bedank Jan

 

[pasan]

klik met je rechtermuisknop op de knop van je werkblad en kies "macro toewijzen" als het goed is komt de titel van jou macro ook in beeld
de knop code zet je in een module eerst

 

[Jan1978]

hallo pasan

Ik heb gedaan wat je zeg en als ik dan op de knop druk krijg ik de volgende fout deze fout krijg ik ook als ik op het krijsje druk.

Bekijk bijlage 201139

grt jan

 

[pasan]

in een module plaatsen

Public knopOK As Integer

Public Sub knop()
ThisWorkbook.Save
knopOK = 1
Application.Quit
End Sub

in ThisWorkbook plaatsen

Public Sub Workbook_BeforeClose(Cancel As Boolean)
 If Not knopOK = 1 Then
   MsgBox "Afsluiten gaat niet met het kruisje" & _
    vbNewLine & "Neem eens een kijkje op http://www.exhelp.be"
   Cancel = True
 End If
End Sub

 

[Jan1978]

Hallo Pasan

Bedank voor het meedenken en het uitleggen van de code.
En Exhelp ook bedank voor de code samen met Pasan heb ik het werkend gekregen.

Groet Jan

 

[exhelp]

Bedankt voor de correctie Pasan :