vbscript、Excelワークシートのパスワードを

Question

私は多くの運がなくグーグルしています。基本的には、（テンプレートに基づいて）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()............................ 

ご協力いただきありがとうございます。

クレア

Answer 1

:-)私は、ファイルを保存するときに、追加のパラメータとしてパスワードを渡すことができると思います。

excelObj.SaveAs "C：\のExample.xls" ,, "あなたのパスワード"

私はこれをテストしていませんが、私はそれについては、このブログの記事を見つけました：

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