Code - Protect Sheet

[Ben_Holmes]

Hi How can I work in a protect sheet and password it into the following code?

Sub QUOTE()
'
' QUOTE Macro
' Macro recorded 05/08/2011 by'

'' Turns off screenupdating (Makes screen transition more smooth)
Application.ScreenUpdating = False
Windows("Route.xls").Activate
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
ActiveWindow.Zoom = 75
ActiveWindow.DisplayGridlines = False
Windows("Route.xls").Activate
ActiveSheet.Shapes("Picture 22").Select
Selection.Copy
Range("H2").Select
ActiveSheet.Paste
Range("C5").Select
' Turns screenupdating back on
Application.ScreenUpdating = True
End Sub

Kind Regards

Ben

 

[stnkynts]

It appears as you used the "record macro" feature for most of your code. I would suggest also using it to protect the sheet. If you cant get it to work or still need further help let us know.

 

[jfish1288]

assuming that you want to procect the active sheet

Activesheet.Protect Password:="yourpassword"

on the line before end sub