Execl文档如何加密

Question

Execl文档如何加密呢?比如说在点击文档名时，或象WORD一样在进入文件时？

Answer 1

Dim xlsapp As Excel.Application
    Dim xlswb As Excel.Workbook
    Dim xlsws As Excel.Worksheet
    
    Set xlsapp = New Excel.Application
    xlsapp.Workbooks.Open ("F:\1.xls")
    
    Set xlswb = xlsapp.Workbooks(1)
    Set xlsws = xlswb.Worksheets(1)
    
        xlsws.Protect "123"
        xlswb.Protect "456"
    
    xlswb.Save
    xlswb.Close    Set xlsapp = Nothing
    Set xlswb = Nothing
    Set xlsws = Nothing