Hi

I need to protect classified content on a sheet from beeing printed and
copied into antoher workbook.

Is there a way to cancel print by using Before print ?

How about the copy situation ?

Regards,
Claus

Good afternoon Claus

Why not use .pdf format? It is much easier to control and no
circumvent the controls as easily as you can in excel?

If you insist the code to stop printing is fairly simple:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "This workbook cannot be printed"
Cancel = True
End Sub

That should do the trick. Halting cut / copy and paste is not quite s
simple as there isn't an event called when you try to execute thi
operation, and there are numerous ways to copy items to the clipboar
(ctrl +c, rightclick menu, Edit Copy etc). There is some code o
Bastien Mensink's site, www.asap-utilites.com. I shouldn't reproduc
the code here, and there isn't a direct link, so go to this site an
click on Tips and Tricks in the left hand menu. Disable Cut and Cop
is the twelfth item down in the list that appears.

HTH

Dominic

--
dominic
-----------------------------------------------------------------------
dominicb's Profile: http://www.excelforum.com/member.php...fo&userid=1893
View this thread: http://www.excelforum.com/showthread.php?threadid=39892

Hi DominicB

Thanks a lot, i got it working except the BeforeRightClick event. Any idea
why it doesn't work?

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel
As Boolean)
' Add this code in the Worksheet_BeforeRightClick event
' it will load every a user right-clicks on the specified worksheet

'To disable the user from "right-clicking" on the userform,
'and therefore not be able to cut, copy or paste
MsgBox "Hallo"

Cancel = True
End Sub


Regards,

Claus

"dominicb" skrev i
en meddelelse ...

Good afternoon Claus

Why not use .pdf format? It is much easier to control and not
circumvent the controls as easily as you can in excel?

If you insist the code to stop printing is fairly simple:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "This workbook cannot be printed"
Cancel = True
End Sub

That should do the trick. Halting cut / copy and paste is not quite so
simple as there isn't an event called when you try to execute this
operation, and there are numerous ways to copy items to the clipboard
(ctrl +c, rightclick menu, Edit Copy etc). There is some code on
Bastien Mensink's site, www.asap-utilites.com. I shouldn't reproduce
the code here, and there isn't a direct link, so go to this site and
click on Tips and Tricks in the left hand menu. Disable Cut and Copy
is the twelfth item down in the list that appears.

HTH

DominicB


--
dominicb
------------------------------------------------------------------------
dominicb's Profile:
http://www.excelforum.com/member.php...o&userid=18932
View this thread: http://www.excelforum.com/showthread...hreadid=398927

Hi Claus

Change your first line. Try this:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVa
Target As Range, Cancel As Boolean)
' Add this code in the Worksheet_BeforeRightClick event
' it will load every a user right-clicks on the specified worksheet

'To disable the user from "right-clicking" on the userform,
'and therefore not be able to cut, copy or paste
MsgBox "Hallo"

Cancel = True
End Sub

HTH

Dominic

--
dominic
-----------------------------------------------------------------------
dominicb's Profile: http://www.excelforum.com/member.php...fo&userid=1893
View this thread: http://www.excelforum.com/showthread.php?threadid=39892

Your code worked ok for me when I put it in the worksheet module that I wanted.

But I had macros enabled and events enabled.

Are you sure both of those are true?

==
ps. You may be able to stop a few people from doing what you want, but if the
user disables macros when they open the workbook, or disables events (anytime),
then you may have a sense of false security.

If the data shouldn't be shared or printed or copied, then excel isn't the
application you should use.

All the things you do to stop these are easily overcome.

Claus wrote:

Hi DominicB

Thanks a lot, i got it working except the BeforeRightClick event. Any idea
why it doesn't work?

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel
As Boolean)
' Add this code in the Worksheet_BeforeRightClick event
' it will load every a user right-clicks on the specified worksheet

'To disable the user from "right-clicking" on the userform,
'and therefore not be able to cut, copy or paste
MsgBox "Hallo"

Cancel = True
End Sub

Regards,

Claus

"dominicb" skrev i
en meddelelse ...

Good afternoon Claus

Why not use .pdf format? It is much easier to control and not
circumvent the controls as easily as you can in excel?

If you insist the code to stop printing is fairly simple:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "This workbook cannot be printed"
Cancel = True
End Sub

That should do the trick. Halting cut / copy and paste is not quite so
simple as there isn't an event called when you try to execute this
operation, and there are numerous ways to copy items to the clipboard
(ctrl +c, rightclick menu, Edit Copy etc). There is some code on
Bastien Mensink's site, www.asap-utilites.com. I shouldn't reproduce
the code here, and there isn't a direct link, so go to this site and
click on Tips and Tricks in the left hand menu. Disable Cut and Copy
is the twelfth item down in the list that appears.

HTH

DominicB


--
dominicb
------------------------------------------------------------------------
dominicb's Profile:
http://www.excelforum.com/member.php...o&userid=18932
View this thread: http://www.excelforum.com/showthread...hreadid=398927


--

Dave Peterson

Thank you Dominicb and Dave

It's working. I've discussed the issues that Dave mentioned in his mail, and
we've agreed that this will protect us better than nothing at all.

It is as Dave says very difficult to protect data.
The user can stop macros and events if they know how to, and they can always
do PrintScreen or mails and so forth and so on.

Apreciate your help

Claus


"dominicb" skrev i
en meddelelse ...

Hi Claus

Change your first line. Try this:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal
Target As Range, Cancel As Boolean)
' Add this code in the Worksheet_BeforeRightClick event
' it will load every a user right-clicks on the specified worksheet

'To disable the user from "right-clicking" on the userform,
'and therefore not be able to cut, copy or paste
MsgBox "Hallo"

Cancel = True
End Sub

HTH

DominicB


--
dominicb
------------------------------------------------------------------------
dominicb's Profile:
http://www.excelforum.com/member.php...o&userid=18932
View this thread: http://www.excelforum.com/showthread...hreadid=398927