[算表] VBA活页簿另存成工作表问题

楼主: leader223 (LChance)   2018-08-08 21:21:11
软件:Excel
版本:2013
有一活页簿(受保护)其中有3个工作表
我想把其中一个工作表(甲班)汇出至独立的活页簿
但是只保留值,不含公式,也不含按钮
到达第3行时就显示受保护的工作表,叫我取消保护工作表
表格如附图 烦请各位大大协助...
Sub 按钮1_Click()
ActiveSheet.Copy
[A1:I22] = [A1:I22].Value
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ActiveSheet.Name
ActiveWorkbook.Close
End Sub
https://imgur.com/a/XwsOvtb
受保护的表格为A1:I22
作者: soyoso (我是耀宗)   2018-08-08 21:40:00
先取消保护工作表,worksheet.unprotect,最后再worksheet.protect

Links booklink

Contact Us: admin [ a t ] ucptt.com