Avoid crash when calling a Worksheet's ShowDataForm()

in VBA, e.g.:
Option VBASupport 1
Sub Main
    Worksheets(1).ShowDataForm()
End Sub

Change-Id: Ice6cfccc4fc15a4d0044d6464c7d6c04243e86ae
Reviewed-on: https://gerrit.libreoffice.org/30619
Reviewed-by: Noel Grandin <noel.grandin@collabora.co.uk>
Tested-by: Noel Grandin <noel.grandin@collabora.co.uk>
This commit is contained in:
Takeshi Abe 2016-11-07 14:10:49 +09:00 committed by Noel Grandin
parent 8285af5e56
commit 12ca2d6d32

View File

@ -900,8 +900,8 @@ ScVbaWorksheet::ShowDataForm( ) throw (uno::RuntimeException, std::exception)
ScAbstractDialogFactory* pFact = ScAbstractDialogFactory::Create(); ScAbstractDialogFactory* pFact = ScAbstractDialogFactory::Create();
OSL_ENSURE(pFact, "ScAbstractFactory create fail!"); OSL_ENSURE(pFact, "ScAbstractFactory create fail!");
AbstractScDataFormDlg* pDlg = pFact->CreateScDataFormDlg(pTabViewShell->GetDialogParent(), ScopedVclPtr<AbstractScDataFormDlg> pDlg(pFact->CreateScDataFormDlg(pTabViewShell->GetDialogParent(),
pTabViewShell); pTabViewShell));
OSL_ENSURE(pDlg, "Dialog create fail!"); OSL_ENSURE(pDlg, "Dialog create fail!");
pDlg->Execute(); pDlg->Execute();