try this
Sub protectActiveSheet()
Dim myPassword As String
ActiveSheet.Select
ActiveSheet.Copy
'Change 123456 to your password
myPassword = "123456"

ActiveSheet.Protect myPassword, True
End Sub

"Richard R." wrote:

I'm working on a price list which contains confidential information, i.e.
costs, which i have protected. Even when locked, if i select the entire
worksheet and copy, i can paste it in another document and everything hidden
and protected on the original document is now completely available.
How can this be secure??