Kombinationsboks og kontrol (xls97)

du skal kikke på disse i ThisWorkbook modulet

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If 'Kode tjek om alle felter  og kombinationsboks  har værdi
else
Cancel = true
msgbox " ikke alt ar udfyldt"
end if
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
IF 'Kode tjek om alle felter  og kombinationsboks  har værdi
else
Cancel = true
msgbox " ikke alt ar udfyldt"
end if
End Sub

msgbox " ikke alt er udfyldt"

Har du overvejet at skifte kombinationsboxen ud med  :
Data / Datavalidering / Indstillinger / Liste / kilde / dine adresser

Så kører tab helt af sig selv afhængig af hvad der er låst, og kabbaks kode skal kun indeholde nogle ranges.

Tak for forsøget kabbak, men jeg er desværre ikke på et niveau så jeg kan opfinde 'Kode tjek om alle felter og... Hvis du (eller andre) har et mere konkret bud, ville jeg blive fantastisk glad.
-> aheiss. Selvfølgelig, datavalideringen med liste er ganske enkel og genial, den havde jeg ikke lige tænkt på. Så mangler jeg bare tjekket af de specifikke celler - er der nogen der har et bud?

Du kunne jo prøve med:
indsættes i ThisWorkbook modulet, ret selv celler i række 3

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim omrode As Range
Set omrode = Range("B9,B10")  ' Indsæt dine celler
For Each cell In omrode
If cell.Value = "" Then
Cancel = True
MsgBox ("Celle " & cell.Address & " er ikke udfyldt")
End If
Next
End Sub

Mange tak. Det virker meget fint. aheiss du må sende et svar :-)

Godt du kan bruge det. Svar kommer her :-)