Protecting Sheet with Password

[halem2]

Hi:

I have a sheet that I copy and past with a macro. The original shee
is protected with a password but when the macro copies and pastes int
another sheet, it is no longer protected.

Is there a way to pass a password to protect the new sheet???


thanks

 

[Dave Peterson]

Couldn't you just password protect it after you did the paste?

Or do you mean you want to use the same password--and it's not available to you?

 

[halem2]

the spreadsheet will be used by 15 different users in 15 differen
geographical locations. I'm trying to avoid having any of them chang
the sheet. I am the one passwording the sheet

 

[Dave Peterson]

If you're the one applying the password and writing the code, then you should be
able do your stuff and protect the worksheet.

dim wks1 as worksheet
dim wks2 as worksheet

set wks1 = worksheets("sheet1")
set wks2 = worksheets("sheet2")

wks1.range("a1:b9").copy _
destination:=wks2.range("a1")

wks2.protect password:="hi"

I guess you didn't even need to unprotect your original worksheet to copy the
data.

(I misunderstood that portion of your question.)