Qfyilyi

I've written a code that tries to go through my company server and set all the excel files, under a certain folder, to shared so that multiple people can edit them at once. This has been a problem for a very long time here and I thought I had a nice code to fix this but I can't seem to access the property correctly. Can anyone help?

$ErrorActionPreference = "Stop"



$root = "P:A N G"



$excelFiles = Get-ChildItem -path $root -File "*.xlsx" -Recurse 



foreach ($excelFile in $excelFiles.FullName)

{

    $excel = New-Object -ComObject Excel.Application

    $excelWorkBook  = $excel.Workbooks.Open($excelFile) 



    if (!$excelWorkBook.MultiUserEditing)

    { 

        Write-Host   $excelFile     

        $excelWorkBook._SaveAs([Microsoft.Office.Interop.Excel.XlSaveAsAccessMode]::xlShared)

        $excelWorkBook.Close

    }

}

With some help from a friend I managed to come up with a solution actually.

$ErrorActionPreference = "Stop"



$root = "P:A N G"



$excelFiles = Get-ChildItem -path $root -File "*.xlsx" -Recurse 



foreach ($excelFile in $excelFiles.FullName)

{

    $excel = New-Object -ComObject Excel.Application

    $excelWorkBook  = $excel.Workbooks.Open($excelFile) 



    if (!$excelWorkBook.MultiUserEditing)

    { 

        Write-Host $excelWorkBook.FullName   

        $accessMode = [Microsoft.Office.Interop.Excel.XlSaveAsAccessMode]::xlShared

        $xlFixedFormat = [Microsoft.Office.Interop.Excel.XlFileFormat]::xlWorkbookDefault

        $excelWorkBook.SaveAs($excelWorkBook.FullName,$xlFixedFormat,$null,$null,$null,$null,$accessMode,$null,$null,$null,$null,$null)

        $excelWorkBook.Close

    }

}