作者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/m.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