Makro ausführen mit Blattschutz auf Tabelle 2

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim Zahl As Integer
If Target.Count > 1 Then Exit Sub
ActiveSheet.Unprotect "red13"
Select Case Target.Column
Case 14, 17, 20, 22, 24, 25, 29, 31, 34, 38, 40, 47, 49, 51, 53, 55, 56
Sheets("Bearbeiternachweis").Range(Target.Address).Value = Application.UserName
'usw.
End Sub

In der letzten hier aufgeführten Zeile müsste noch eingefügt werden, das das Blatt "Bearbeiternachweis" (Tabelle 2) für den Zeitraum der Eintragung kurz entsperrt wird und dann wieder gesperrt wird, da ich das Blatt mit Schreibschutzkennwort versehen will.
Wie muss ich das schreiben?
mit dankendem gruß
alex