Prepare for removal of non-const operator[] from Sequence in sc

Change-Id: Ic49c0fda3e98aeda471e674b68d40464ddac1ea1
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/124382
Tested-by: Jenkins
Reviewed-by: Mike Kaganski <mike.kaganski@collabora.com>

1 files changed, 2 insertions, 1 deletions

diff --git a/sc/source/ui/vba/vbapagesetup.cxx b/sc/source/ui/vba/vbapagesetup.cxx
index 8f96df5df1cc..112522b8155a 100644
--- a/sc/source/ui/vba/vbapagesetup.cxx
+++ b/sc/source/ui/vba/vbapagesetup.cxx
@@ -100,12 +100,13 @@ void SAL_CALL ScVbaPageSetup::setPrintArea( const OUString& rAreas )
         if( getScRangeListForAddress( rAreas, excel::getDocShell( mxModel ) , aRange, aCellRanges ) )
         {
             uno::Sequence< table::CellRangeAddress > aSeq( aCellRanges.size() );
+            auto aSeqRange = asNonConstRange(aSeq);
             for ( size_t i = 0, nRanges = aCellRanges.size(); i < nRanges; ++i )
             {
                 ScRange & rRange = aCellRanges[ i ];
                 table::CellRangeAddress aRangeAddress;
                 ScUnoConversion::FillApiRange( aRangeAddress, rRange );
-                aSeq[ i++ ] = aRangeAddress;
+                aSeqRange[ i++ ] = aRangeAddress;
             }
             xPrintAreas->setPrintAreas( aSeq );
         }