Van textbox naar excel dat is beveiligd met wachtwoord tegen openen

[Doofenshmirt]

Hoi,

Ik wil graag wat textboxen naar een Excel bestandje schrijven.
Dat lukt , maar als het bestand beveiligd is tegen openen en schrijven gaat dat natuurlijk niet.

Ik weet het wachtwoord , wat moet er tussen komen om toch het bestand weer te openen.


Het fictieve wachtwoord is zeg maar ''kees'' en ''kees''

Dit is een stukje van mijn code

  Dim exlApp As Excel.Application
        Dim exlWB As Excel.Workbook
        Dim exlWS As Excel.Worksheet
        Dim x As Integer = 0

        exlApp = New Excel.Application
        Try
            exlWB = exlApp.Workbooks.Open("c:\som\test.xls")
        Catch
            ' Als het bestand niet bestaat, verander desnoods de naam.
            exlApp = CreateObject("Excel.Application")
            exlWB = exlApp.Workbooks().Add
            exlWB.SaveAs("c:\som\test.xls")

 

[wampier]

Lees dit eens:

http://msdn.microsoft.com/en-us/lib...nterop.excel.workbooks.open(v=office.11).aspx

De 5de en 6de variabele is wat je zoekt.

 

[JoZ1]

En dat als argument van het Workbook object

 

[Doofenshmirt]

Als ik naar de link kijk , dan lijkt het me wel logisch maar ik zou niet weten hoe en waar
dit er tussen moet .

 

[wampier]

Er staat argumenten voor workbooks.open dus:

Workbooks.Open("som.xls",false,false,,"kees","kees")