Printing a protected wsorksheet

[andrewb90]

I have a worksheet with a number of hidden and unhidden cells which I need to print. I have a code that works when the sheet is not protected, but I need to modify it to work when the sheet is protected. Any ideas?

Sub DSRW1()
Rows("66:117").Hidden = False
Range("B66:G117").PrintPreview
Rows("66:80").Hidden = True
Rows("82:85").Hidden = True
Rows("87:93").Hidden = True
Rows("96:107").Hidden = True
Rows("109:115").Hidden = True
End Sub

Thanks,

Andrew

P.S. If I wanted the range to not include column C, how would I do that?

 

[Gerald Higgins]

Can't you just add a command to unprotect the worksheet before your code, and another command to protect it again at the end ?

 

[andrewb90]

How would I do that? I am not very familiar with this...

 

[Gerald Higgins]

This will unprotect it.

ActiveSheet.Unprotect "PASSWORD"

Replace "PASSWORD" with whatever the worksheet password is.
It may not have a password at all, in which case you can ignore that part.

To turn protection back on, something like this

ActiveSheet.Protect "PASSWORD"
    ActiveSheet.EnableSelection = xlUnlockedCells
    ActiveSheet.EnableSelection = xlLockedCells
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Note that when you choose to protect a worksheet, there is a list of options of things that you can still allow users to do.
The example I have posted is one that I use, where I want to allow them to do specific things, and not others.
You might want to allow them to do different things.
Try recording a macro while you protect the worksheet and set the options you want, and you'll get some variation of this code.