Hallo,



hinterlege diesen Code bei der entsprechenden UserForm



Private Sub UserForm_QueryClose(Cancel As Integer, _

CloseMode As Integer)

If CloseMode = 0 Then Cancel = 1

End Sub



Anschließend wird zwar das X angezeigt, aber es hat keine Wirkung mehr.



bis denn



Loisl

geschrieben von Alois Eckl , 05.09.2002, 11:08 Uhr , 25 mal gelesen