[算表] VBA活頁簿另存成工作表問題

[leader223 (LChance)]

軟體: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://www.ptt.cc/bbs/Office/M.1533734473.A.497.html
→ soyoso: 先取消保護工作表，worksheet.unprotect，最後再
→ soyoso: worksheet.protect
感謝S大，估狗才知道VBA代碼也可以加密!!
※ 編輯: leader223 (1.170.151.166), 08/09/2018 01:17:44
※ 編輯: leader223 (1.170.151.166), 08/09/2018 01:18:38