工作表上的VBScript，Excel 8.0密码
我没有太多的运气Googlesearch。 基本上每个创build一个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()............................ 在此先感谢您的帮助。
克莱尔:-)
我想你可以在保存文件时作为附加parameter passing密码。
excelObj.SaveAs“C：\ Example.xls”,,“你的密码”
我没有testing过这个，但是我发现了这个博客文章：
http://qtp.blogspot.co.uk/2010/04/vbscript-excel-password-protect.html