Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Suppress printing using button
I currently have the following macro to suppress printing and it almost works perfectly: Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True MsgBox "Information contained in this workbook cannot be printed" End Sub The problem is that some individuals (who do not have edit privileges) may need to print a worksheet before sending the workbook to the end user (who cannot print anything). Those users who have edit privileges are currently using a "lock button" to lock specific cells throughout the workbook from being edited by the end users. Can this print macro be somehow assigned to the same button that I'm using to lock cells? I've tried to do this but it doesn't seem to work. (FYI: If it helps, here is the macro I recorded in a module to lock the cells): Sheets("T133B").Select Range("A1:M133").Select ActiveWindow.ScrollRow = 1 Selection.Locked = True Selection.FormulaHidden = False Range("C4:J4").Select Sheets("T133A").Select Range("C3:M44").Select ActiveWindow.ScrollRow = 12 Selection.Locked = True Selection.FormulaHidden = False Range("C5").Select Sheets("T133A 2nd").Select Range("C5:M44").Select Selection.Locked = True Selection.FormulaHidden = False Range("C5").Select Sheets("DLO").Select ActiveWindow.ScrollRow = 1 Range("C5:M77").Select Selection.Locked = True Selection.FormulaHidden = False Range("C5").Select End Sub -- zenahs ------------------------------------------------------------------------ zenahs's Profile: http://www.excelforum.com/member.php...o&userid=28681 View this thread: http://www.excelforum.com/showthread...hreadid=509012 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Suppress printing using button
Do you mean you don't want the macro created until they lock the cells. If
so, see Chip Pearson's page on writing code with code http://www.cpearson.com/excel/vbe.htm Unfortunately you can not record the creation of the code. You should also check if the code already exists in case the button is pressed more than once (or get rid of the button). You could have a working workbook and then have your button copy only what is appropriate to a "package" workbook that already has the print macro in it. It could then do final modifications and then save the workbook. This "package" workbook would be sent to the customer. Just note that an smart customer could run code/a macro from another workbook in which the code disables events and then repeatedly print your workbook. Code based protection is generally so weak (as is all Excel based protection) that it is generally not worth the effort. -- Regards, Tom Ogilvy "zenahs" wrote in message ... I currently have the following macro to suppress printing and it almost works perfectly: Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True MsgBox "Information contained in this workbook cannot be printed" End Sub The problem is that some individuals (who do not have edit privileges) may need to print a worksheet before sending the workbook to the end user (who cannot print anything). Those users who have edit privileges are currently using a "lock button" to lock specific cells throughout the workbook from being edited by the end users. Can this print macro be somehow assigned to the same button that I'm using to lock cells? I've tried to do this but it doesn't seem to work. (FYI: If it helps, here is the macro I recorded in a module to lock the cells): Sheets("T133B").Select Range("A1:M133").Select ActiveWindow.ScrollRow = 1 Selection.Locked = True Selection.FormulaHidden = False Range("C4:J4").Select Sheets("T133A").Select Range("C3:M44").Select ActiveWindow.ScrollRow = 12 Selection.Locked = True Selection.FormulaHidden = False Range("C5").Select Sheets("T133A 2nd").Select Range("C5:M44").Select Selection.Locked = True Selection.FormulaHidden = False Range("C5").Select Sheets("DLO").Select ActiveWindow.ScrollRow = 1 Range("C5:M77").Select Selection.Locked = True Selection.FormulaHidden = False Range("C5").Select End Sub -- zenahs ------------------------------------------------------------------------ zenahs's Profile: http://www.excelforum.com/member.php...o&userid=28681 View this thread: http://www.excelforum.com/showthread...hreadid=509012 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
suppress printing on certain rows | Excel Discussion (Misc queries) | |||
Does anyone know if I can suppress footers when printing? | Excel Discussion (Misc queries) | |||
Suppress printing of row shading | Excel Discussion (Misc queries) | |||
How do I suppress printing a row without hiding it? | Excel Discussion (Misc queries) | |||
Suppress printing workbook | Excel Discussion (Misc queries) |