VB操作excel加密的问题

Question

用VB操作Excel加密，部分代码这样写的：
Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
xlApp.SheetsInNewWorkbook = 1
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Item(1)
xlApp.ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True
不知道为什么，根本都生成不了excel文件，如果把最后一句话去掉，生成文件正常，高手指点一下，到底应该怎么给exce加密呢？

Answer 1

ActiveSheet.Protect Password:="123", UserInterfaceOnly:=True

Answer 2

谢谢大家，把代码这样改就对了
xlSheet.Application.ActiveWorkbook.PassWord = "123"

Answer 3

 xlsapp.ActiveWorkbook.SaveAs FileName:=App.Path & "\test.xls", FileFormat:=xlNormal, _
                  Password:="", WriteResPassword:="", ReadOnlyRecommended:=Fals, _
                  CreateBackup:=False
    修改这样就可以，Password:=这里输密码