Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / New Users / September 2007

Tip: Looking for answers? Try searching our database.

Preventing a file from being printed?

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Michael Slater - 13 Sep 2007 00:36 GMT
Hi,

I'm using Excel 2003 in work and have a file that I need to post on the
network, but don't want people to be able to print the file.  Does anyone
have any ideas?

I apologize if this is not the proper forum for this question.

Thanks,

Mike
Dave Peterson - 13 Sep 2007 02:09 GMT
You might be able to stop the users from doing a print, but I bet any
suggestion would involve macros and/or events.  And macros and events can be
disabled and that suggestion wouldn't work.

There's no good way to stop printing in excel.

> Hi,
>
[quoted text clipped - 7 lines]
>
> Mike

Signature

Dave Peterson

Bruce Sinclair - 13 Sep 2007 05:56 GMT
>You might be able to stop the users from doing a print, but I bet any
>suggestion would involve macros and/or events.  And macros and events can be
>disabled and that suggestion wouldn't work.
>
>There's no good way to stop printing in excel.

.. and worst case ... If you can see it on the screen, you can print it :)

>> Hi,
>>
[quoted text clipped - 7 lines]
>>
>> Mike
Bob I - 13 Sep 2007 19:37 GMT
Convert it to a PDF with "no printing allowed". You will need a later
version of Adobe Writer.

> Hi,
>
[quoted text clipped - 7 lines]
>
> Mike
Michael Slater - 13 Sep 2007 21:20 GMT
It's a work schedule that's constantly being updated.  40 employees printing
copies on a constant basis confuses things a little bit.

Thanks anyway.  I'll consider other options.

Mike

> Hi,
>
[quoted text clipped - 7 lines]
>
> Mike
Sandy Mann - 14 Sep 2007 16:24 GMT
Will this work for you?  Put it in the "This Workbook" module:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
   Cancel = True
   MsgBox "Please do not try to print this schedule"
End Sub

Signature

HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings

sandymann2@mailinator.com
Replace @mailinator.com with @tiscali.co.uk

> It's a work schedule that's constantly being updated.  40 employees
> printing copies on a constant basis confuses things a little bit.
[quoted text clipped - 14 lines]
>>
>> Mike
Dave Peterson - 14 Sep 2007 17:30 GMT
It may work until the user disables events or macros.

> Will this work for you?  Put it in the "This Workbook" module:
>
[quoted text clipped - 31 lines]
> >>
> >> Mike

Signature

Dave Peterson

Sandy Mann - 15 Sep 2007 10:37 GMT
> It may work until the user disables events or macros.

This of course is true and I know that there is nothing that you can do that
a knowledgeable user cannot circumvent.  However, if the OP's staff are
anything like the Care Staff at the residential Centre for disabled people
where I used to work, where VBA was "magic" it may be sufficient to hide the
sheet on closing.

If that will suffice then to the OP: paste these macros into the Workbook
module of ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Sheets("Sheet1").Visible = xlVeryHidden
   'Use your own sheet name in place of "Sheet 1"
End Sub

Private Sub Workbook_Open()
   Sheets("Sheet1").Visible = True
   'Use your own sheet name in place of "Sheet 1"
End Sub

Signature

HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings

sandymann2@mailinator.com
Replace @mailinator.com with @tiscali.co.uk

> It may work until the user disables events or macros.
>
[quoted text clipped - 35 lines]
>> >>
>> >> Mike
Sandy Mann - 15 Sep 2007 11:33 GMT
Just an added note for the OP:

You cannot hide all the sheets in a workbook, you must always have at least
one sheet visible.  If you want the work book to open on your Schedule sheet
then add to the Workbook_Open() code the line:

Sheets("Sheet1").Activate

Once again replacing "Sheet1" with your own sheet name.
Signature

HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings

sandymann2@mailinator.com
Replace @mailinator.com with @tiscali.co.uk

>> It may work until the user disables events or macros.
>
[quoted text clipped - 56 lines]
>>> >>
>>> >> Mike
Michael Slater - 15 Sep 2007 13:03 GMT
Sandy,

Thank you very much....the first macro you posted should work fine.  While I
do have some who like to tinker, they know better than to try to "get
around" that fix.

Thanks again,

Mike

> Just an added note for the OP:
>
[quoted text clipped - 65 lines]
>>>> >>
>>>> >> Mike
Sandy Mann - 15 Sep 2007 13:11 GMT
You're welcoime.

> Thank you very much....the first macro you posted should work fine.  While
> I do have some who like to tinker, they know better than to try to "get
> around" that fix

In that case add, "OR ELSE!" at the end of the messagebox message <g>

Signature

Regards,

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings

sandymann2@mailinator.com
Replace @mailinator.com with @tiscali.co.uk

> Sandy,
>
[quoted text clipped - 75 lines]
>>>>> >>
>>>>> >> Mike
Bruce Sinclair - 17 Sep 2007 05:53 GMT
>It's a work schedule that's constantly being updated.  40 employees printing
>copies on a constant basis confuses things a little bit.
>
>Thanks anyway.  I'll consider other options.

Rule number one -
 Always date everything. :)

>> Hi,
>>
[quoted text clipped - 7 lines]
>>
>> Mike

Rate this thread:






 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.