Nur einmal Private Sub Workbook_BeforeSave

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) erscheint? Aus
dem 2. Makro brauche ich die Anweisung:
Sheets("Eingaben").Range("A4") = BuiltinDocumentProperties(12).Value


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
Dim Wks As Worksheet
For Each Wks In ThisWorkbook.Worksheets
Wks.Protect "4711"
Next Wks
ThisWorkbook.Save
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Eingaben").Range("A4") = BuiltinDocumentProperties(12).Value
End Sub

Es wäre nett, wenn mir bitte jemand dabei helfen würde, dieses Problem zu lösen oder mir einen Tipp geben könnte.
Danke schon mal
Grüsse
Josef