diff options
Diffstat (limited to 'wizards/source/euro/Common.xba')
-rw-r--r-- | wizards/source/euro/Common.xba | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/wizards/source/euro/Common.xba b/wizards/source/euro/Common.xba index 822047a0e57d..8ac0d1496ad1 100644 --- a/wizards/source/euro/Common.xba +++ b/wizards/source/euro/Common.xba @@ -39,7 +39,7 @@ Function ConvertDocument() If Instr(1, CurMimeType, "calc") <> 0 Then bDocHasProtectedSheets = CheckSheetProtection(oSheets) If bDocHasProtectedSheets Then - bDocHasProtectedSheets = UnprotectSheetsWithPassword(oSheets) + bDocHasProtectedSheets = UnprotectSheetsWithPassword(oSheets, bDoUnProtect) End If If Not bDocHasProtectedSheets Then If Not bRangeListDefined Then @@ -177,17 +177,18 @@ End Function Sub StartConversion() GoOn = True - ToggleWindow(False) - If DialogModel.Step = 2 Then - ConvertDocuments() - Else - If DialogModel.chkComplete.State = 1 Then - ConvertWholeDocument() - Else - ConvertRangesorStylesofDocument() - End If - End If - ToggleWindow(True) +' ToggleWindow(False) + Select Case DialogModel.Step + Case 1 + If DialogModel.chkComplete.State = 1 Then + ConvertWholeDocument() + Else + ConvertRangesorStylesofDocument() + End If + Case 2 + InitializeThirdStep() + ConvertDocuments() + End Select End Sub |