从锁定的工作表复制图表

Question

以下宏观

'Copy the chart and paste it into the PowerPoint as a Metafile Picture
        cht.Select
        ActiveChart.ChartArea.Copy
        activeSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select

在cht.Select失败，因为工作表已被锁定。如何更改它才能使其正常工作？

Answer 1

复印前解锁纸张，复印后再次锁定纸张：

cht.Parent.Parent.Unprotect
'Your code here
cht.Parent.Parent.Protect

Answer 2

将代码更改为

ActiveSheet.Unprotect "password"
cht.Select
ActiveChart.ChartArea.Copy
activeSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select
ActiveSheet.Protect "password"

解决了这个问题。