Simple VBA code to move, copy, paste, and protect

I'm new to visual basic so I would assume that this is fairly simple.

I need a macro that will unlock my current workbook (just the workbook, not the sheet), then move, copy, and paste values (only) the first two tabs to a new workbook. Then I need it to go back to the original workbook and re-lock it.

I was able to get the unprotect, move and copy to new sheet (still need the paste values bit), but when I use the ActiveWorkbook.protect function, it locks the new workbook. I need to new workbook unproteted and the old one to lock back.

I'm assuming I need to reference the file name in order to re-lock the workbook. How can I do that if my file name changes weekly?

Please Login or Register  to view this content.

Thank you -

Cliff

So while looking at this I realized that the workbook doesn't have to be unlocked to copy and paste the values. Eventually I will lock it down so they cannot see locked cells, but that will be later.

When recording the macro here's the code that generates:

Please Login or Register  to view this content.

The problem is it is referencing a specific workbook ("Copy of WR_CPF_3-10-2013.xlsm" and "Book5.xlsx"). This is a weekly report so the file name changes week to week. I need it to recognize the current file name and use that as the "active workbook" and I need to lose the "Book 5" name because it will not always be "Book 5."

Does all this make sense?

The macro will be built into the "Copy of WR_CPF_3-10-2013.xlsm" workbook. But that file extension will change week to week. For example, when our employees update this workbook next week, they will save it as "WR_CPF_3-17-2013.xlsm." So I need the macro to reference the active workbook file extension each time it is run.