[已解决]VBA新生成的EXCEL文件，中更改工作表标签和保护问题

yjwdjfqb · 发表于 2012-5-21 08:59

求助：导出文件.rar (5.79 KB, 下载次数: 43)

ws278106483 · 发表于 2012-5-21 10:05

Sub fz()
Dim arr
Dim mbook As Workbook
Set mbook = Workbooks.Add
mbook.SaveAs "C:\Documents and Settings\Administrator\桌面\新文件.xls"
mbook.Sheets(1).Name = "新工作表"
Workbooks("求助导出文件").Sheets("原文件").Range("B5:G11").Copy Destination:=Workbooks("新文件").Sheets("新工作表").Range("B5:G11")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

复制代码

ws278106483 · 发表于 2012-5-21 10:10

附件跟上，看看对不，楼主。
如果觉得好，给个最佳哦，呵呵

yjwdjfqb · 发表于 2012-5-21 11:50

ws278106483 发表于 2012-5-21 10:10
附件跟上，看看对不，楼主。
如果觉得好，给个最佳哦，呵呵

谢谢朋友的帮助，很好，就是一个小问题，新生成的工作表中

G6：G11区域以前有公式，希望生成到新的工作表中，也有公式中里面

yjwdjfqb · 发表于 2012-5-21 12:27

ws278106483 发表于 2012-5-21 10:05

ws278106483 · 发表于 2012-5-21 13:20

yjwdjfqb 发表于 2012-5-21 12:27

把附下下来，再运行一下。看一下。
我把保护给去了。

ws278106483 · 发表于 2012-5-21 13:33

保护的密码是：2b1b3b3b1b1b1
把保护去了，再运行一下，就可以了。
就可以达到要求了。
看一上。觉得不行再跟我说一下。

yjwdjfqb · 发表于 2012-5-21 15:02

ws278106483 发表于 2012-5-21 13:33
保护的密码是：2b1b3b3b1b1b1
把保护去了，再运行一下，就可以了。
就可以达到要求了。

感谢朋友，请再看下这个

ws278106483 · 发表于 2012-5-21 17:08

再看一下吧，不行，再跟我说。
如果觉得好，给个最佳哦。

Sub fz()
ActiveSheet.Unprotect "2b1b3b3b1b1b1"
Dim arr
Dim mbook As Workbook
Set mbook = Workbooks.Add
mbook.SaveAs "C:\Documents and Settings\Administrator\桌面\新文件.xls"
mbook.Sheets(1).Name = "新工作表"
Workbooks("求助导出文件").Sheets("原文件").Range("B5:G11").Copy Destination:=Workbooks("新文件").Sheets("新工作表").Range("B5:G11")
ActiveSheet.Protect "2b1b3b3b1b1b1"
mbook.Sheets("sheet2").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
mbook.Sheets("sheet3").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub

复制代码

yjwdjfqb · 发表于 2012-5-21 17:17

ws278106483 发表于 2012-5-21 17:08
再看一下吧，不行，再跟我说。
如果觉得好，给个最佳哦。

这个完美，谢谢朋友哈！！！

		自动登录	找回密码
密码			注册