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??

It's not.

http://www.mcgimpsey.com/excel/removepwords.html



"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??

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??

JMB,
Thanks for your quick reply. Do you have any suggestions on how a can
achieve what i want to do?

"JMB" wrote:

It's not.

http://www.mcgimpsey.com/excel/removepwords.html



"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??

I don't know if i'm doing something wrong but it still doesn't work!
Any advice?

"Mike" wrote:

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??

Hi,

You can try this one :
Sub DisableCopy()
'disable every copy button
For Each ctl In Application.CommandBars.FindControls(ID:=19)
ctl.Enabled = 0
Next ctl

'disable copy button in the Edit menu
Application.CommandBars(1).Controls(2).FindControl (ID:=19).Enabled = 0

'disable Ctrl+C
Application.OnKey "^c", ""
End Sub

if you want to enabled them again change .Enabled = 1
and
change Application.OnKey "^c", "" to Application.OnKey "^c"
--

Regards,

Halim


"Richard R." wrote:

I don't know if i'm doing something wrong but it still doesn't work!
Any advice?

"Mike" wrote:

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??

Sory should be add 'On error resume next' before code...
Sub DisableCopy()
On Error Resume Next
For Each ctl In Application.CommandBars.FindControls(ID:=19)
ctl.Enabled = 0
Next ctl
Application.CommandBars(1).Controls(2).FindControl (ID:=19).Enabled = 0
Application.OnKey "^c", ""
End Sub

--

Regards,

Halim


"Halim" wrote:

Hi,

You can try this one :
Sub DisableCopy()
'disable every copy button
For Each ctl In Application.CommandBars.FindControls(ID:=19)
ctl.Enabled = 0
Next ctl

'disable copy button in the Edit menu
Application.CommandBars(1).Controls(2).FindControl (ID:=19).Enabled = 0

'disable Ctrl+C
Application.OnKey "^c", ""
End Sub

if you want to enabled them again change .Enabled = 1
and
change Application.OnKey "^c", "" to Application.OnKey "^c"
--

Regards,

Halim


"Richard R." wrote:

I don't know if i'm doing something wrong but it still doesn't work!
Any advice?

"Mike" wrote:

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??

Thanks much Halim.
It works well. However, do you know how to hide or prevent macros from being
seen or edited?

Thanks again!

Richard R.

"Halim" wrote:

Sory should be add 'On error resume next' before code...
Sub DisableCopy()
On Error Resume Next
For Each ctl In Application.CommandBars.FindControls(ID:=19)
ctl.Enabled = 0
Next ctl
Application.CommandBars(1).Controls(2).FindControl (ID:=19).Enabled = 0
Application.OnKey "^c", ""
End Sub

--

Regards,

Halim


"Halim" wrote:

Hi,

You can try this one :
Sub DisableCopy()
'disable every copy button
For Each ctl In Application.CommandBars.FindControls(ID:=19)
ctl.Enabled = 0
Next ctl

'disable copy button in the Edit menu
Application.CommandBars(1).Controls(2).FindControl (ID:=19).Enabled = 0

'disable Ctrl+C
Application.OnKey "^c", ""
End Sub

if you want to enabled them again change .Enabled = 1
and
change Application.OnKey "^c", "" to Application.OnKey "^c"
--

Regards,

Halim


"Richard R." wrote:

I don't know if i'm doing something wrong but it still doesn't work!
Any advice?

"Mike" wrote:

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??

Well, i found something else: Kalim's suggestion worked. However when the
macro disable the copy fonction, it doesn't turn it back on when you close
the workbook. How can this be avoid?

Any help will be much appreciated.

Thanks,

Richard R.

"Richard R." wrote:

Thanks much Halim.
It works well. However, do you know how to hide or prevent macros from being
seen or edited?

Thanks again!

Richard R.

"Halim" wrote:

Sory should be add 'On error resume next' before code...
Sub DisableCopy()
On Error Resume Next
For Each ctl In Application.CommandBars.FindControls(ID:=19)
ctl.Enabled = 0
Next ctl
Application.CommandBars(1).Controls(2).FindControl (ID:=19).Enabled = 0
Application.OnKey "^c", ""
End Sub

--

Regards,

Halim


"Halim" wrote:

Hi,

You can try this one :
Sub DisableCopy()
'disable every copy button
For Each ctl In Application.CommandBars.FindControls(ID:=19)
ctl.Enabled = 0
Next ctl

'disable copy button in the Edit menu
Application.CommandBars(1).Controls(2).FindControl (ID:=19).Enabled = 0

'disable Ctrl+C
Application.OnKey "^c", ""
End Sub

if you want to enabled them again change .Enabled = 1
and
change Application.OnKey "^c", "" to Application.OnKey "^c"
--

Regards,

Halim


"Richard R." wrote:

I don't know if i'm doing something wrong but it still doesn't work!
Any advice?

"Mike" wrote:

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??

You could protect the VBA project. In the VBA editor, right click your
project, select properties, and enter a password. After you save and reopen
it should ask for the password before viewing the project.

Of course, worksheet protection and VBA project protection are easily
removed (depending on how much effort your users want to put into cracking
it). There is also third party software readily available to crack excel's
passwords.

Here's a thread regarding VBA protection:
http://www.microsoft.com/office/comm...xp=&sloc=en-us

Also, if you use code to disable the copy feature, remember that the code
doesn't run if the user sets the security to high.


"Richard R." wrote:

Thanks much Halim.
It works well. However, do you know how to hide or prevent macros from being
seen or edited?

Thanks again!

Richard R.

"Halim" wrote:

Sory should be add 'On error resume next' before code...
Sub DisableCopy()
On Error Resume Next
For Each ctl In Application.CommandBars.FindControls(ID:=19)
ctl.Enabled = 0
Next ctl
Application.CommandBars(1).Controls(2).FindControl (ID:=19).Enabled = 0
Application.OnKey "^c", ""
End Sub

--

Regards,

Halim


"Halim" wrote:

Hi,

You can try this one :
Sub DisableCopy()
'disable every copy button
For Each ctl In Application.CommandBars.FindControls(ID:=19)
ctl.Enabled = 0
Next ctl

'disable copy button in the Edit menu
Application.CommandBars(1).Controls(2).FindControl (ID:=19).Enabled = 0

'disable Ctrl+C
Application.OnKey "^c", ""
End Sub

if you want to enabled them again change .Enabled = 1
and
change Application.OnKey "^c", "" to Application.OnKey "^c"
--

Regards,

Halim


"Richard R." wrote:

I don't know if i'm doing something wrong but it still doesn't work!
Any advice?

"Mike" wrote:

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??

On May 1, 7:55 pm, JMB wrote:
You could protect the VBA project. In the VBA editor, right click your
project, select properties, and enter a password. After you save and reopen
it should ask for the password before viewing the project.

Of course, worksheet protection and VBA project protection are easily
removed (depending on how much effort your users want to put into cracking
it). There is also third party software readily available to crack excel's
passwords.

Here's a thread regarding VBA protection:http://www.microsoft.com/office/comm....mspx?query=vb...

Also, if you use code to disable the copy feature, remember that the code
doesn't run if the user sets the security to high.



"Richard R." wrote:
Thanks much Halim.
It works well. However, do you know how to hide or prevent macros from being
seen or edited?

Thanks again!

Richard R.

"Halim" wrote:

Sory should be add 'On error resume next' before code...
Sub DisableCopy()
On Error Resume Next
For Each ctl In Application.CommandBars.FindControls(ID:=19)
ctl.Enabled = 0
Next ctl
Application.CommandBars(1).Controls(2).FindControl (ID:=19).Enabled = 0
Application.OnKey "^c", ""
End Sub

--

Regards,

Halim

"Halim" wrote:

Hi,

You can try this one :
Sub DisableCopy()
'disable every copy button
For Each ctl In Application.CommandBars.FindControls(ID:=19)
ctl.Enabled = 0
Next ctl

'disable copy button in the Edit menu
Application.CommandBars(1).Controls(2).FindControl (ID:=19).Enabled = 0

'disable Ctrl+C
Application.OnKey "^c", ""
End Sub

if you want to enabled them again change .Enabled = 1
and
change Application.OnKey "^c", "" to Application.OnKey "^c"
--

Regards,

Halim

"Richard R." wrote:

I don't know if i'm doing something wrong but it still doesn't work!
Any advice?

"Mike" wrote:

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??- Hide quoted text -

- Show quoted text -

Hi,

Since we have the code to disable copy function, how to modify it to
disable "cut" function in the standard tool bar menu?

Thanks,

G

Using Halim's macro - I think you need to change the ID to 21 and the hotkey
to "x"

Sub DisableCopy()
Dim ctl As CommandBarControl
On Error Resume Next
For Each ctl In Application.CommandBars.FindControls(ID:=21)
ctl.Enabled = 0
Next ctl
Application.CommandBars(1).Controls(2).FindControl (ID:=21).Enabled = 0
Application.OnKey "^x", ""
End Sub

"George" wrote:

On May 1, 7:55 pm, JMB wrote:
You could protect the VBA project. In the VBA editor, right click your
project, select properties, and enter a password. After you save and reopen
it should ask for the password before viewing the project.

Of course, worksheet protection and VBA project protection are easily
removed (depending on how much effort your users want to put into cracking
it). There is also third party software readily available to crack excel's
passwords.

Here's a thread regarding VBA protection:http://www.microsoft.com/office/comm....mspx?query=vb...

Also, if you use code to disable the copy feature, remember that the code
doesn't run if the user sets the security to high.



"Richard R." wrote:
Thanks much Halim.
It works well. However, do you know how to hide or prevent macros from being
seen or edited?

Thanks again!

Richard R.

"Halim" wrote:

Sory should be add 'On error resume next' before code...
Sub DisableCopy()
On Error Resume Next
For Each ctl In Application.CommandBars.FindControls(ID:=19)
ctl.Enabled = 0
Next ctl
Application.CommandBars(1).Controls(2).FindControl (ID:=19).Enabled = 0
Application.OnKey "^c", ""
End Sub

--

Regards,

Halim

"Halim" wrote:

Hi,

You can try this one :
Sub DisableCopy()
'disable every copy button
For Each ctl In Application.CommandBars.FindControls(ID:=19)
ctl.Enabled = 0
Next ctl

'disable copy button in the Edit menu
Application.CommandBars(1).Controls(2).FindControl (ID:=19).Enabled = 0

'disable Ctrl+C
Application.OnKey "^c", ""
End Sub

if you want to enabled them again change .Enabled = 1
and
change Application.OnKey "^c", "" to Application.OnKey "^c"
--

Regards,

Halim

"Richard R." wrote:

I don't know if i'm doing something wrong but it still doesn't work!
Any advice?

"Mike" wrote:

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??- Hide quoted text -

- Show quoted text -

Hi,

Since we have the code to disable copy function, how to modify it to
disable "cut" function in the standard tool bar menu?

Thanks,

G