Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls") Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) Dim Rg As MSExcel.Range = Ws.Range("A1:A10")'指定任意单元格 Ws.Unprotect'撤销对工作表的保护 Ws.Cells.Locked = False '解除整个工作表所有单元格的锁定 Rg.Locked = True'锁定指定的单元格 Ws.Protect '保护工作表 App.Visible = True