rocknroadie
Gebruiker
- Lid geworden
- 5 sep 2016
- Berichten
- 184
Wanneer ik mijn excel afsluit, dan moet ik dit 2 maal doen. ik ben er zeker van dat dit ergens in mijn code verkeerd loopt maar ik vind het niet.....
ik kan hier het bestand niet publiekelijk delen. ik kan het doorsturen naar iemand indien dit nodig mocht blijken maar allicht dat jullie het al aan de code kunnen zien waarschijnlijk.....
probleem is dus dat als ik op het kruisje klik, excel begint af te sluiten (blad 1 wordt actief), de spreuk wordt getoond en daar stopt het. ik moet dan terug op het kruisje klikken, ik zie de volgende spreuk (elke keer wordt een andere spreuk getoond) en dan pas sluit excel af. het is de bedoeling dat dit bij de klik op de ok knop van de eerste spreuk gebeurd.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Unprotect "admin"
Application.DisplayFullScreen = False
If Not SluitKnop Then
Cancel = True
End If
SluitKnop = True
Sheet1.Visible = xlSheetVisible
For i = 2 To Sheets.Count
Sheets(i).Visible = xlSheetVeryHidden
Next
Sheet1.Activate
Application.DisplayFullScreen = False
'Show something funny at the end
X = Sheet2.Range("P1").Value
Y = Sheet2.Range("P3").Value
If X >= Y Then
MsgBox Sheet2.Cells(Y, 15).Value, vbOKOnly, "Spreuk van de dag"
Y = Y + 1
Sheet2.Range("P3").Value = Y
ThisWorkbook.Save
Else
Y = 1
MsgBox Sheet2.Cells(Y, 15).Value, vbOKOnly, "Spreuk van de dag"
Y = Y + 1
Sheet2.Range("P3").Value = Y
ThisWorkbook.Save
End If
Application.DisplayFullScreen = False
ActiveWorkbook.Protect "admin", Structure:=True, Windows:=True
ThisWorkbook.Save
End Sub
in module 4 staat:
Public SluitKnop As Boolean
ik kan hier het bestand niet publiekelijk delen. ik kan het doorsturen naar iemand indien dit nodig mocht blijken maar allicht dat jullie het al aan de code kunnen zien waarschijnlijk.....
probleem is dus dat als ik op het kruisje klik, excel begint af te sluiten (blad 1 wordt actief), de spreuk wordt getoond en daar stopt het. ik moet dan terug op het kruisje klikken, ik zie de volgende spreuk (elke keer wordt een andere spreuk getoond) en dan pas sluit excel af. het is de bedoeling dat dit bij de klik op de ok knop van de eerste spreuk gebeurd.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Unprotect "admin"
Application.DisplayFullScreen = False
If Not SluitKnop Then
Cancel = True
End If
SluitKnop = True
Sheet1.Visible = xlSheetVisible
For i = 2 To Sheets.Count
Sheets(i).Visible = xlSheetVeryHidden
Next
Sheet1.Activate
Application.DisplayFullScreen = False
'Show something funny at the end
X = Sheet2.Range("P1").Value
Y = Sheet2.Range("P3").Value
If X >= Y Then
MsgBox Sheet2.Cells(Y, 15).Value, vbOKOnly, "Spreuk van de dag"
Y = Y + 1
Sheet2.Range("P3").Value = Y
ThisWorkbook.Save
Else
Y = 1
MsgBox Sheet2.Cells(Y, 15).Value, vbOKOnly, "Spreuk van de dag"
Y = Y + 1
Sheet2.Range("P3").Value = Y
ThisWorkbook.Save
End If
Application.DisplayFullScreen = False
ActiveWorkbook.Protect "admin", Structure:=True, Windows:=True
ThisWorkbook.Save
End Sub
in module 4 staat:
Public SluitKnop As Boolean