I have this code to move files from one folder to another. After they are
moved (or before or during - does not matter) , I'd like to unprotect all the
worksheets/workbooks that were moved.
I've seen samples of unprotecting, but they all seem to refer to the current
worksheet (where the macros are being run) as opposed to the destination
worksheets/workbooks. AND I can't figure out where to place them in the code
below.

Can anyone help (the code below is Ron de Bruin's) with code that unprotects
both the workbook and the worksheets that are moved?
Thanks
T


Sub Move_New_WR()
'This example move the folder from FromPath to ToPath.
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String

FromPath = "H:\WR Intake\Test Move" '<< Change
ToPath = "H:\WR Intake New\" '<< Change
'Note: It is not possible to use a folder that exist in ToPath

If Right(FromPath, 1) = "\" Then
FromPath = Left(FromPath, Len(FromPath) - 1)
End If

If Right(ToPath, 1) = "\" Then
ToPath = Left(ToPath, Len(ToPath) - 1)
End If

Set FSO = CreateObject("scripting.filesystemobject")

If FSO.FolderExists(FromPath) = False Then
MsgBox FromPath & " doesn't exist"
Exit Sub
End If

If FSO.FolderExists(ToPath) = True Then
MsgBox ToPath & " exist, not possible to move to a existing folder"
Exit Sub
End If

FSO.MoveFolder Source:=FromPath, Destination:=ToPath
MsgBox "The folder is moved from " & FromPath & " to " & ToPath

End Sub

ALSO:
can I save the moved files a cell (C108 for example) in worksheet 2 as the
name of the file?
Thank you.
T
"Theo" wrote:

I have this code to move files from one folder to another. After they are
moved (or before or during - does not matter) , I'd like to unprotect all the
worksheets/workbooks that were moved.
I've seen samples of unprotecting, but they all seem to refer to the current
worksheet (where the macros are being run) as opposed to the destination
worksheets/workbooks. AND I can't figure out where to place them in the code
below.

Can anyone help (the code below is Ron de Bruin's) with code that unprotects
both the workbook and the worksheets that are moved?
Thanks
T


Sub Move_New_WR()
'This example move the folder from FromPath to ToPath.
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String

FromPath = "H:\WR Intake\Test Move" '<< Change
ToPath = "H:\WR Intake New\" '<< Change
'Note: It is not possible to use a folder that exist in ToPath

If Right(FromPath, 1) = "\" Then
FromPath = Left(FromPath, Len(FromPath) - 1)
End If

If Right(ToPath, 1) = "\" Then
ToPath = Left(ToPath, Len(ToPath) - 1)
End If

Set FSO = CreateObject("scripting.filesystemobject")

If FSO.FolderExists(FromPath) = False Then
MsgBox FromPath & " doesn't exist"
Exit Sub
End If

If FSO.FolderExists(ToPath) = True Then
MsgBox ToPath & " exist, not possible to move to a existing folder"
Exit Sub
End If

FSO.MoveFolder Source:=FromPath, Destination:=ToPath
MsgBox "The folder is moved from " & FromPath & " to " & ToPath

End Sub