<div>
I actually found the way to unprotect once open. &nbsp;Could someone help me with unprotecting without opening the workbook?<br />
<br />
&nbsp; &nbsp; Dim xlAp As Excel.Application<br />
&nbsp; &nbsp; Dim xlWB As Excel.Workbook<br />
&nbsp; &nbsp; Set xlApp = New Excel.Application<br />
&nbsp; &nbsp; With xlApp<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;.Visible = True<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Set xlWB = .Workbooks.Open(&quot;C:\WFRepo<wbr />rts_CG.xls<wbr />&quot;, , False)<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;.ActiveWorkbook.UnProtect (&quot;101112131415161718191a1b<wbr />1c&quot;)<br />
&nbsp; &nbsp; End With
</div>


I actually found the way to unprotect once open.  Could someone help me with unprotecting without opening the workbook?

    Dim xlAp As Excel.Application
    Dim xlWB As Excel.Workbook
    Set xlApp = New Excel.Application
    With xlApp
         .Visible = True
         Set xlWB = .Workbooks.Open("C:\WFReports_CG.xls", , False)
         .ActiveWorkbook.UnProtect ("101112131415161718191a1b1c")
    End With

<div>
<div class="content wysiwyg-content">
I am trying to open and unprotect an excel from Access, I have the following code which opens the file but I am not able to unprotect once it is open. &nbsp;Could you help me to fix it? &nbsp;It would be fantastic if I could unprotect/protect without opening the file.<br />
<br />
&nbsp; &nbsp; Dim xlAp As Excel.Application<br />
&nbsp; &nbsp; Dim xlWB As Excel.Workbook<br />
&nbsp; &nbsp; Set xlApp = New Excel.Application<br />
&nbsp; &nbsp; With xlApp<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;.Visible = True<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Set xlWB = .Workbooks.Open(&quot;C:\WFRepo<wbr />rts_CG.xls<wbr />&quot;, , False)<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Set xlWB = .ThisWorkbook.UnProtect(&quot;1<wbr />0111213141<wbr />5161718191<wbr />a1b1c&quot;)<br />
&nbsp; &nbsp; End With<br />

</div>
</div>


I am trying to open and unprotect an excel from Access, I have the following code which opens the file but I am not able to unprotect once it is open.  Could you help me to fix it?  It would be fantastic if I could unprotect/protect without opening the file.

    Dim xlAp As Excel.Application
    Dim xlWB As Excel.Workbook
    Set xlApp = New Excel.Application
    With xlApp
         .Visible = True
         Set xlWB = .Workbooks.Open("C:\WFReports_CG.xls", , False)
         Set xlWB = .ThisWorkbook.UnProtect("101112131415161718191a1b1c")
    End With


Calling Excel functions from Access

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.

Microsoft Office

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.