作者leader223 (LChance)
看板Office
标题[算表] VBA活页簿另存成工作表问题
时间Wed Aug 8 21:21:11 2018
软体: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
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.170.151.166
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1533734473.A.497.html
1F：→ soyoso: 先取消保护工作表，worksheet.unprotect，最後再 08/08 21:40
2F：→ soyoso: worksheet.protect 08/08 21:41
感谢S大，估狗才知道VBA代码也可以加密!!
※ 编辑: leader223 (1.170.151.166), 08/09/2018 01:17:44
※ 编辑: leader223 (1.170.151.166), 08/09/2018 01:18:38