Nur einmal Private Sub Workbook_BeforeSave
15.06.2008 22:52:00
Josef_T
gibt es eine Möglichkeit, diese beiden Makros irgendwie so umzuprogrammieren, so das nur einmal
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