Locking the Print Area

Karolyne shares workbooks with other people. Once in a while those people will, without knowing it, make changes to a worksheet that results in many, many pages being printed. Karolyne is looking for a way to set a print area in such a way that it is "locked" and could not be changed or removed.

There are a couple of things you can try. First, you can set your print area and then apply worksheet protection that allows only some of the cells in the worksheet to be selected. This will preclude those strange changes that result in huge printouts. It won't, however, stop someone from changing the print area so it includes only those unprotected cells.

The only way to "protect" the print area is to use a macro that will force the desired print area. One natural place to enforce this is just before printing. The following event handler (added to the ThisWorkbook module) will change the print area for worksheet Sheet1 to the range A1:C25:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Worksheets("Sheet1").PageSetup.PrintArea = "A1:C25"
End Sub

This approach will only work, obviously, if the user enables macros when the workbook is opened. You can change the specified sheet name and range as desired.