LockBaseMainForm() '锁定主界面
Dim tb1 As WinForm.Table = e.Form.Controls("Table1")
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
tb1.Table.SaveExcel(dlg.FileName, "员工表") '保存文件
End If
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("A1:H1")'指定任意单元格
Ws.Unprotect(Password:="cpazwdfoxtable")'撤销对工作表的保护
Ws.Cells.Locked = False '解除整个工作表所有单元格的锁定
Rg.Locked = True'锁定指定的单元格
Ws.Protect(Password:="cpazwdfoxtable") '保护工作表
Ws.Protect(AllowFormattingCells:=True) '---允许自定义格式行---
Ws.Protect(AllowFormattingColumns:=True) '---允许设置列格式--- 如何实现调整列宽
Ws.Protect(AllowFormattingRows:=True) '---允许设置列格式---
'App.Visible = True
Wb.Save
App.quit
unLockBaseMainForm() '锁定主界面
加好友 
发短信
Post By：2016/8/22 13:07:00 [显示全部帖子]
