VBA将Sheet.PROTECTED复制到新工作簿问题

是指在使用VBA编程语言时，将受保护的工作表复制到一个新的工作簿的问题。

在Excel中，可以通过VBA编程来操作工作表和工作簿。当一个工作表被设置为受保护时，它的内容和结构将受到限制，只有特定的操作才能被执行。如果想要将受保护的工作表复制到一个新的工作簿，需要先解除保护，然后再进行复制操作。

以下是一种可能的解决方案：

1. 解除保护：使用Unprotect方法来解除工作表的保护。例如，如果要解除名为"Sheet1"的工作表的保护，可以使用以下代码：

Worksheets("Sheet1").Unprotect

1. 复制工作表：使用Copy方法将解除保护后的工作表复制到一个新的工作簿。例如，将名为"Sheet1"的工作表复制到一个新的工作簿可以使用以下代码：

Worksheets("Sheet1").Copy

1. 创建新工作簿：使用Workbooks.Add方法创建一个新的工作簿。例如，创建一个新的工作簿可以使用以下代码：

Dim newWorkbook As Workbook
Set newWorkbook = Workbooks.Add

1. 将复制的工作表粘贴到新工作簿：使用Paste方法将复制的工作表粘贴到新的工作簿中。例如，将复制的工作表粘贴到新工作簿的第一个工作表可以使用以下代码：

newWorkbook.Worksheets(1).Paste

完整的VBA代码示例：

Sub CopyProtectedSheetToNewWorkbook()
    ' 解除保护
    Worksheets("Sheet1").Unprotect
    
    ' 复制工作表
    Worksheets("Sheet1").Copy
    
    ' 创建新工作簿
    Dim newWorkbook As Workbook
    Set newWorkbook = Workbooks.Add
    
    ' 将复制的工作表粘贴到新工作簿
    newWorkbook.Worksheets(1).Paste
End Sub

这样，受保护的工作表就会被复制到一个新的工作簿中。

对于这个问题，腾讯云并没有直接相关的产品或服务。但是，腾讯云提供了丰富的云计算解决方案，包括云服务器、云数据库、云存储等，可以帮助开发者构建和管理自己的云计算环境。您可以访问腾讯云官方网站（https://cloud.tencent.com/）了解更多信息。