|
在一个excel的vba 中可否打开操作另一个excel文件
我是excel新学,想问一个问题:
高手们好,我想在一个a.xlsl的vba 中打开b.xls文件,并对b.xls文件的sheet2表的部份行列进行隐藏,并对该表的部份单元格进行锁定,请教如何办才行啊?
Workbooks.Open Filename:="d:\b.xls" '打开b.xls
ActiveWorkbook.Sheets("sheet2").Columns( "H:IV").Hidden = True '隐藏H:IV列
ActiveWorkbook.Sheets("sheet2").Rows("20:65536").EntireRow.Hidden = True '隐藏行
ActiveWorkbook.Sheets("sheet2").Select'以下为锁定部份单元格
ActiveWorkbook.ActiveSheet.Cells.Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Range("a1:a7").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
ActiveWorkbook.close'关闭b.xls文件 |
|