запись данных из vb6 в excel

[In4ekk]

есть тест результаты которого записываются в excel. сам по себе файл должен быть запаролен. поставила 12345. но как теперь с помощью vb6 передать пароль в excel чтоб данные записывались.сейчас он выдает ошибку при попытке записи. подскажите кто знает. или может есть варианты проще? необходимо чтоб результаты гдето хранились и были доступны только преподавателю

[alex77755]

Optional ByVal sFileName As String = "R:\usr\rezult.xls")
Set objExcel = CreateObject("Excel.Application"): Set objWorkbook = objExcel.Workbooks.Open(App.Path & sFileNam
И как вы думаете, что должно открыться?
Сделайте хотя бы Debug.Print App.Path & sFileName
У меня вот такая бяка:
D:\КиРпИчИ\%%%Временные\тест черновикR:\usr\rezult.xls

[alex77755]

вот так открывается запароленный файл

Код: Выделить всё

Sub SaveResult(ByVal sGroup As String, ByVal sFio As String, ByVal sOcenka As String, Optional ByVal sFileName As String = "\rezult.xls")
    Set objExcel = CreateObject("Excel.Application"): Set objWorkbook = objExcel.Workbooks.Open(App.Path & sFileName, 1, False, 1, "12345")