2

我用谷歌搜索没有太多运气。基本上每次创建一个 excel 电子表格（基于模板），都需要密码保护。这可以做到吗？

'______________________CreateExcel()____________________________________

    Function CreateExcel()    
        SELECT DATA FROM SQL TABLE

If objStructure.BOF = False And objStructure.EOF = False Then
Do While objStructure.EOF = False
                    Call CreateActualExcel()      
objRsExcel.Fields("Field") = objStructure.Fields("Field")


objStructure.MoveNext
            Loop      
     End If
    End Function
'......................End CreateExcel()..................................

'______________________CreateActualExcel()________________________________

Sub CreateActualExcel()

    Dim objSFSO
    Dim strCon, strSQL

        strFile = " Staffing_List_" & Clng(Timer()) & ".xls"
    Set objSFSO = CreateObject("Scripting.FileSystemObject")

    objSFSO.CopyFile conFolder & conTemplate, conFolder & strFile
    Set objSFSO = Nothing
    Set objRsExcel = CreateObject("ADODB.RecordSet")

    strCon = _
              "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
              conFolder & strFile & ";" & _
              "Extended Properties=""Excel 8.0;HDR=Yes;maxscanrows=1;"";"

    strSQL = "Select * From [Sheet1$]"

    objRsExcel.Open strSql, strCon, 3, 2

End Sub

'......................End CreateActualExcel()............................

提前感谢您的帮助。

克莱尔:-)

4

1 回答 1

2

我认为您可以在保存文件时将密码作为附加参数传递。

excelObj.SaveAs "C:\Example.xls",,"your-password"

我没有对此进行测试，但我发现了这篇关于它的博客文章：

http://qtp.blogspot.co.uk/2010/04/vbscript-excel-password-protect.html

于 2012-04-11T15:20:21.580 回答