In selektierten Blättern Zellen sperren

Hallo zusammen,
ich habe hier ein Makro mit dem ich aus den selektierten Blättern bestimmte Zellen kopiere. Jetzt möchte ich anschließend in den selktierten Blättern (außer Sheet "Vorgaben") einige Zellen sperren.
Wie müßte das aussehen?
Danke Gruß Markus
Public strDateiName1 As String, bolKopieren1 As Boolean

Sub Kopieren()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Dim Sh As Worksheet
UF_Dateiauswahl1.Show
If bolKopieren1 = True Then
For Each Sh In ActiveWindow.SelectedSheets
If Sh.Name <> "Vorgaben" Then
With Workbooks(strDateiName1).Sheets(Sh.Name)
.Range("C8") = Sh.Range("R7")
.Range("AG8") = Sh.Range("R37")
'.Range("D7:F37").Locked = True  'Diese Zellen in selektierten
'.Range("H7:H37").Locked = True  'Blättern sperren
End With
End If
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End If
End Sub