Copy & Paste Cells Excluding Formatting & Protection

I have the following code from a form. It works just fine copying named ranges from one sheet to another. The probloem now is that I don't want to copy the characteristic of the formating or whether they are protected or not. The originating spreadsheets have cells that are protected. I am trying to copy those values over to the new sheet and paste their values or formulas but not their formatting (background color) or the fact that some of the cells are 'locked'. I want the new sheet to have the values and formulas but not the be lock for the user. Is this possible with the current way I do the code or do I have to rewrite it? How would you approach this?

Private Sub CommandButton1_Click()

Import_Data_Form.Hide

Run "NPA"

Set b = Selection
ad = b.Address

' Local Variables
Dim wkbDataFile As Workbook

' Let user select source datafile
Call UserSelectFile_WOpen(wkbDataFile)
If wkbDataFile Is Nothing Then
MsgBox "User did not select a workbook to open"
Exit Sub
End If

Application. ScreenUpdating = False
Set wb = ThisWorkbook

Application.DisplayAlerts = False