Sluiten exceldoc. weigeren, zolang in 1 bepaalde cel een waarde <> 0 staat

[walrenshi]

Hallo
Mij is gevraagd een exceldocument zo aan te passen dat ALLE relefante cellen zijn
gevuld conform een vaste standaard. Indien dit niet voor de volle 100% is gedaan heb ik al
met behulp van formules er voor gezorgd dat bepaalde macro's niet werken.

Dan nog zou ik willen dat het exceldoc. gewoon niet gesloten kan worden, zolang niet aan de voorwaarde
is voldaan. Onderstaande routine werkt in zoverre dat je een foutopsporing krijgt maar alsnog het
document kunt sluiten.

Is hier wat op te vinden ?

Private Sub WorkBook_BeforeClose(Cancel As Boolean)
Sheets("Archief").Select
Range("Q3").Select
If ActiveCell.Value = 0 Then
ActiveWorkbook.Save
End If
If ActiveCell.Value > 0 Then
ActiveWorkbook.Open (<hier maar wat geprobeerd)
End If
End Sub

Hoor graag
gr
Walrensi

 

[Roncancio]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = Sheets("Archief").Range("Q3").Value > 0
End Sub

Als in cel Q3 een waarde is ingevuld dat groter is dan 0, wordt het bestand niet afgesloten.

Met vriendelijke groet,


Roncancio

 

[walrenshi]

Hartstikke bedankt, geweldig Toppie!