X knop rechts bovenaan sherm uitschakelen

[jo geuens]

Hallo ik heb mijn X knop uitgeschakeld maar als ik nu met mijn zelf gemaakte sluitknop wil afsluiten krijg ik dezelfd melding en kan ik mijn werkbiek niet sluiten
hier mijn voorbeeldje

 

[Warme bakkertje]

Kijk je variabele bOKClose of bCloseOK eens na in beide macro's, deze moeten wel identiek zijn.

 

[pasan]

De code achter this workbook kijkt of er een 1 in cel A1 staat zo ja sluit het werkboek
Bij het openen van het werkboek wordt cel A1 leeg gemaakt
Ik heb als voorbeeld A1 gebruikt maar een cel ver buiten het werk bereik is uiteraard beter

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 If Not [A1] = 1 Then
  MsgBox "Om het programma te verlaten " & _
 vbNewLine & " Gebruik de verlaat knop  " & _
   vbNewLine & " in het MENU scherm"
Cancel = True
Else
' setting cancel to true cancels the close

Cancel = False
End If
End Sub

Private Sub Workbook_Open()
[Blad1!A1] = ""
End Sub

de code achter de knop zet een 1 in cel A1 of kies een cel buiten het werk bereik

Public Sub Button1_Click()
[Blad1!A1] = 1
Application.Quit

' other code

End Sub

 

[jo geuens]

hoi pasan

Thankx werkt prima weet je mischien ook een oplossing voor mijn mail probleem eerder gepost deze week :d

 

[pasan]

was niet wakker vanacht maar gelukkig warme bakkertje wel