VBA-Blattschutz

Mit dem unten stehenden Code möchte ich, wenn auf eine Zelle geklickt wird, automatisch den Blattschutz einsetzen. Etwas im Code stimmt nicht, den er funktioniert nicht!
Kann mir jemand den Code korrigieren?

Gruss Ernst

In diese ArbeitsMappe
Option Explicit
Private Sub Workbook_SheetSelection_Change(ByVal sh As Object, ByVal target As Excel.Range)

Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect "test"
Next i

End Sub