Ich habe ein Dokument mit dem Namen Original.
Nach Bearbeitung möchte ich nur Speichern unter aber mit neuem Namen auch das normale Speichern zulassen.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Me.Name = "Original.xls" Then
MsgBox "nix da!"
Cancel = True
End If
End Sub