MS Excel

díky moc funguje to, ale ještě bych potřeboval ,jak udělat rozhodovací MsgBox, který by při odpovědi NE nezavřel sešit?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "BYL ZAZNAMENÁN POPIS ZMĚNY!!!"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "Ukázkové okno"
Help = "DEMO.HLP" ' Definujeme soubor s helpem.
Ctxt = 1000 ' Definujeme řádek z helpu
Response = MsgBox(Msg, Style, Title, Help, Ctxt)

If Response = vbYes Then ' Pokud stiskneme ANO

Else ' Pokud stiskneme Ne.


End If

End Subcitovat