Excel宏技术问题：复制指定工作表值至新工作簿并恢复原表保护

原代码的问题很明确：

• 用了ActiveSheet.Unprotect，但当前活动表不一定是你要复制的目标工作表，容易出错
• 只取消了原表保护，没重新上锁，反而给新创建的工作表加了保护，完全搞反了需求

下面是修正后的代码，针对名为Property的工作表做处理，同时保留原表的保护状态：

Sub CopyPropertyToNewWorkbook()
    ' 声明变量
    Dim sourceWs As Worksheet
    Dim newWb As Workbook
    Dim protectPassword As String
    
    ' 替换成你的工作表保护密码
    protectPassword = "*****"
    
    ' 指定要复制的源工作表
    Set sourceWs = ThisWorkbook.Sheets("Property")
    
    ' 取消原工作表的保护
    sourceWs.Unprotect protectPassword
    
    ' 把源工作表复制到新的独立工作簿
    sourceWs.Copy
    Set newWb = ActiveWorkbook
    
    ' 立刻重新保护原工作表，确保数据安全
    sourceWs.Protect protectPassword
    
    ' 将新工作表的内容直接转为值，不用剪贴板更高效
    With newWb.Sheets(1).UsedRange
        .Value = .Value
    End With
    
    ' 清除剪贴板状态
    Application.CutCopyMode = False
End Sub

关键修改说明 #

• 精准操作目标工作表：全程直接用sourceWs变量操作指定工作表，不再依赖ActiveSheet，避免因当前活动表切换导致的错误
• 及时恢复原表保护：复制完成后立刻给原工作表重新上锁，不会留下安全漏洞
• 优化值复制方式：用UsedRange.Value = .Value直接转换单元格内容为值，比复制粘贴更高效，还能避免剪贴板的虚线提示
• 取消新表的不必要保护：移除了原代码里给新工作表加保护的逻辑，符合你只复制值的需求（如果需要保护新表，可在最后添加newWb.Sheets(1).Protect protectPassword）

内容的提问来源于stack exchange，提问作者user27367068