Zellen sollen nach eingabe und schließen gesperrt werden

Nabend,

habe ein Makro in einer Exceltabelle:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Merker As Boolean
dim SH as Worksheet
Merker = Me.Saved
for each SH in Thisworkbook.Worksheets
SH.Unprotect "DeinPasswort"
SH.Usedrange.Locked = True
On Error Resume Next
SH.UsedRange.SpecialCells(xlCellTypeBlanks).Locked = False
On Error Goto 0
SH.Protect "DeinPasswort"
Next
If Merker Then Me.Save

End Sub

der sperrt nach schließen alle Zellen.Ich möchte aber gerne das der das nur in Spalte A-I macht, sodass ich den rest immer bearbeiten kann.
Was und wo muss ich etwas verändern?

Danke für eure Hilfe