Impresion con macros

Un buen amigo me paso las macros para q automaticamente me
imprima las areas q yo necesito y las otras no, las macros
funcionana bien pero cuando la hoja no esta protegida y yo
necesito q funcione cuando la hoja esta protegida ya q los
datos q estan en dicho rangos no pueden cambiarse y
obligatoriamente debe estar protegida la hoja, cuando lo
ejecuto me sale error, alguien me podria ayudar si hay una
solucion les agradeceria mucho


Sub Macro1()
ActiveSheet.PageSetup.PrintArea = "$B$2:$Q$29"
Columns("E:I").EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Columns("E:I").EntireColumn.Hidden = False
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.DisplayAutomaticPageBreaks=False

End Sub


Sub Macro2()
ActiveSheet.PageSetup.PrintArea = "$B$2:$Q$29"
Columns("F:I").EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Columns("F:I").EntireColumn.Hidden = False
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.DisplayAutomaticPageBreaks=False

End Sub


Sub Macro3()
ActiveSheet.PageSetup.PrintArea = "$B$2:$Q$29"
Columns("G:I").EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Columns("G:I").EntireColumn.Hidden = False
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.DisplayAutomaticPageBreaks=False

End Sub


Sub Macro4()
ActiveSheet.PageSetup.PrintArea = "$B$2:$Q$29"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.DisplayAutomaticPageBreaks=False

End Sub