主题：excelvba请教

 测试有效

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range

Ws.UnProtect(Password:="hhh")
ws.protect(Scenarios:= True)
ws.protect(AllowFormattingCells:= True)
ws.protect(AllowFormattingColumns:= True)
ws.protect(AllowFormattingRows:= True)
ws.protect(AllowInsertingRows:= True)
ws.protect(AllowInsertingHyperlinks:= True)
ws.protect(AllowDeletingColumns:= True)
ws.protect(AllowDeletingRows:= True)
ws.protect(AllowFormattingCells:= True)
ws.protect(AllowFormattingCells:= True)
ws.protect(AllowFormattingCells:= True)
Ws.Protect(Password:="hhh")  '以密码保护

wb.save
app.quit

抱歉，看了一下，是要一起写的。单独设置，以最后一个为准

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range

ws.protect(AllowDeletingRows:= True, AllowDeletingColumns:= True, Password:="hhh")

wb.save
app.quit

 生成报表以后，重新用vba打开设置一次

Dim Book As New XLS.Book(ProjectPath & "Attachments\标准模板.xls")
Dim Sheet As XLS.Sheet
Dim fl As String = ProjectPath & "Reports\标准模板.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

Dim App1 As New MSExcel.Application
Dim Wb1 As MSExcel.WorkBook = App1.WorkBooks.Open(fl)
Dim Ws1 As MSExcel.WorkSheet = Wb1.WorkSheets(1)
'Dim Rg As MSExcel.Range
'Dim Rg1 As MSExcel.Range
Ws1.UnProtect(Password:="hhh")
ws1.protect(Contents:= True,Scenarios:= True,AllowFormattingCells:= True,AllowFormattingColumns:= True, _
AllowFormattingRows:= True,AllowInsertingRows:= True,AllowDeletingColumns:= True,AllowDeletingRows:= True, _
AllowInsertingHyperlinks:= True,Password:="hhh")
wb1.save
app1.quit

Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

 只要执行了这句代码，就一定能删除行

 

ws1.protect(Contents:= True,Scenarios:= True,AllowFormattingCells:= True,AllowFormattingColumns:= True, _
AllowFormattingRows:= True,AllowInsertingRows:= True,AllowDeletingColumns:= True,AllowDeletingRows:= True, _
AllowInsertingHyperlinks:= True,Password:="hhh")

 模板的设定，生成以后很多设置都会丢失的。

 

你做个简单的例子发上来吧，不知道你的公式是指什么。

 例子，请发上来