我需要其他vba代码的帮助，其中复制的工作表将受到uprotected保护，并且公式将被删除。有人可以在下面修改我的代码吗？

Sub CopySheets()
Application.ScreenUpdating = False
Dim MyFolder As String,MyFile As String,srcWB As Workbook,desWB As Workbook
Set desWB = ThisWorkbook

On Error Resume Next
activeWorkbook.Unprotect Password:="sky1212"

With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Please select a folder"
    .Show
    .AllowMultiSelect = False
    If .SelectedItems.Count = 0 Then
        MsgBox "You did not select a folder."
        Exit Sub
    End If
    MyFolder = .SelectedItems(1) & "\"
End With
MyFile = Dir(MyFolder)
Do While MyFile <> ""
    Set srcWB = Workbooks.Open(Filename:=MyFolder & "\" & MyFile)
    With srcWB
        .Sheets(1).Copy desWB.Sheets(desWB.Sheets.Count)
        With activeSheet.UsedRange
            .Cells.Validation.Delete
            .Cells.Value = .Cells.Value
        End With
        .Close False
    End With
    MyFile = Dir
Loop
Application.ScreenUpdating = True
Worksheets("Sheet1").Visible = xlSheetHidden
End Sub