工作簿另存设密码

浩子haozi

工作簿另存为……，然后设个密码，请教高手，为什么我的代码提示：编译错误，缺少表达式！？

Sub Sheet4_按钮1_Click()
    Workbooks.Open "e:\12.xlsx"
    workbooks("12.xlsx").SaveAs filename="e:\123.xlsx",_
    Password := "123456"
    Workbooks("123.xlsx").Close
End Sub

201228

你为什么不发表到VBA专区去， 这里没人能看到