Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Protect Printing
Hi
Is there a way to stop people printing a spreadsheet? They're supposed to be submitting the form via email but they keep printing and faxing it to me!! I've put huge notes on the form but it doesn't seem to make a difference. Thanks |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Protect Printing
You could use a macro, but that can be defeated if the user doesn't enable
macros--or just disables events. But if you want to try, you could use an event macro. This goes behind the workbook module: Option Explicit Private Sub Workbook_BeforePrint(Cancel As Boolean) msgbox "Please don't print--just email it to me!" cancel = true End Sub If you're new to macros, you may want to read David McRitchie's intro at: http://www.mvps.org/dmcritchie/excel/getstarted.htm Chip Pearson has some instructions on events: http://www.cpearson.com/excel/events.htm David McRitchie has some notes, too: http://www.mvps.org/dmcritchie/excel/event.htm Again, the macro will not work if the user disables macros or disables events. You may want to just issue a warning. Some people like to print to check their input: Option Explicit Private Sub Workbook_BeforePrint(Cancel As Boolean) msgbox "Use the listing to check your input, but email the file to me." End Sub Jeni wrote: Hi Is there a way to stop people printing a spreadsheet? They're supposed to be submitting the form via email but they keep printing and faxing it to me!! I've put huge notes on the form but it doesn't seem to make a difference. Thanks -- Dave Peterson |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Protect Printing
Thanks but I can't get it to work. When I click view code it looks like this
at the moment: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub Target.Formula = WorksheetFunction.Proper(Target.Formula) End Sub Private Sub cmbCourse_Change() End Sub Option Explicit Private Sub Workbook_BeforePrint(Cancel As Boolean) MsgBox "Please don't print--just email it to me!" Cancel = True End Sub This is because I want cells B6,E6,B9,E9,B12,B15,E15,C26 to be title case as well as not allowing them to print "Dave Peterson" wrote: You could use a macro, but that can be defeated if the user doesn't enable macros--or just disables events. But if you want to try, you could use an event macro. This goes behind the workbook module: Option Explicit Private Sub Workbook_BeforePrint(Cancel As Boolean) msgbox "Please don't print--just email it to me!" cancel = true End Sub If you're new to macros, you may want to read David McRitchie's intro at: http://www.mvps.org/dmcritchie/excel/getstarted.htm Chip Pearson has some instructions on events: http://www.cpearson.com/excel/events.htm David McRitchie has some notes, too: http://www.mvps.org/dmcritchie/excel/event.htm Again, the macro will not work if the user disables macros or disables events. You may want to just issue a warning. Some people like to print to check their input: Option Explicit Private Sub Workbook_BeforePrint(Cancel As Boolean) msgbox "Use the listing to check your input, but email the file to me." End Sub Jeni wrote: Hi Is there a way to stop people printing a spreadsheet? They're supposed to be submitting the form via email but they keep printing and faxing it to me!! I've put huge notes on the form but it doesn't seem to make a difference. Thanks -- Dave Peterson |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Protect Printing
It looks like you put the _beforeprint procedure in the wrong spot. Move it
from this worksheet module and put it in the ThisWorkbook module. Jeni wrote: Thanks but I can't get it to work. When I click view code it looks like this at the moment: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub Target.Formula = WorksheetFunction.Proper(Target.Formula) End Sub Private Sub cmbCourse_Change() End Sub Option Explicit Private Sub Workbook_BeforePrint(Cancel As Boolean) MsgBox "Please don't print--just email it to me!" Cancel = True End Sub This is because I want cells B6,E6,B9,E9,B12,B15,E15,C26 to be title case as well as not allowing them to print "Dave Peterson" wrote: You could use a macro, but that can be defeated if the user doesn't enable macros--or just disables events. But if you want to try, you could use an event macro. This goes behind the workbook module: Option Explicit Private Sub Workbook_BeforePrint(Cancel As Boolean) msgbox "Please don't print--just email it to me!" cancel = true End Sub If you're new to macros, you may want to read David McRitchie's intro at: http://www.mvps.org/dmcritchie/excel/getstarted.htm Chip Pearson has some instructions on events: http://www.cpearson.com/excel/events.htm David McRitchie has some notes, too: http://www.mvps.org/dmcritchie/excel/event.htm Again, the macro will not work if the user disables macros or disables events. You may want to just issue a warning. Some people like to print to check their input: Option Explicit Private Sub Workbook_BeforePrint(Cancel As Boolean) msgbox "Use the listing to check your input, but email the file to me." End Sub Jeni wrote: Hi Is there a way to stop people printing a spreadsheet? They're supposed to be submitting the form via email but they keep printing and faxing it to me!! I've put huge notes on the form but it doesn't seem to make a difference. Thanks -- Dave Peterson -- Dave Peterson |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Protect Printing
Thanks it's working now - this should save me a lot of copy typing
"Dave Peterson" wrote: It looks like you put the _beforeprint procedure in the wrong spot. Move it from this worksheet module and put it in the ThisWorkbook module. Jeni wrote: Thanks but I can't get it to work. When I click view code it looks like this at the moment: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub Target.Formula = WorksheetFunction.Proper(Target.Formula) End Sub Private Sub cmbCourse_Change() End Sub Option Explicit Private Sub Workbook_BeforePrint(Cancel As Boolean) MsgBox "Please don't print--just email it to me!" Cancel = True End Sub This is because I want cells B6,E6,B9,E9,B12,B15,E15,C26 to be title case as well as not allowing them to print "Dave Peterson" wrote: You could use a macro, but that can be defeated if the user doesn't enable macros--or just disables events. But if you want to try, you could use an event macro. This goes behind the workbook module: Option Explicit Private Sub Workbook_BeforePrint(Cancel As Boolean) msgbox "Please don't print--just email it to me!" cancel = true End Sub If you're new to macros, you may want to read David McRitchie's intro at: http://www.mvps.org/dmcritchie/excel/getstarted.htm Chip Pearson has some instructions on events: http://www.cpearson.com/excel/events.htm David McRitchie has some notes, too: http://www.mvps.org/dmcritchie/excel/event.htm Again, the macro will not work if the user disables macros or disables events. You may want to just issue a warning. Some people like to print to check their input: Option Explicit Private Sub Workbook_BeforePrint(Cancel As Boolean) msgbox "Use the listing to check your input, but email the file to me." End Sub Jeni wrote: Hi Is there a way to stop people printing a spreadsheet? They're supposed to be submitting the form via email but they keep printing and faxing it to me!! I've put huge notes on the form but it doesn't seem to make a difference. Thanks -- Dave Peterson -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to protect a worksheet from printing ? | Excel Discussion (Misc queries) | |||
Protect Workbook Vs Protect Sheet | New Users to Excel | |||
Can I protect columns w/in a "List" using Protect Sheet? | Excel Discussion (Misc queries) | |||
protect from printing | Excel Worksheet Functions | |||
Enable Double sided printing contiuously when printing multiple s. | Excel Discussion (Misc queries) |