Hallo Leute,
seit 2003(?) hat excel eine nervende Angewohnheit. Will man eine schreibgeschütze Datei unter einem neuen Namen schreiben (z.B. ABC01.xls als ABC01a.xls) fügt Excel automatisch ein „Kopie von …“ davor. Kann Ecel diesen Schwachsinn irgendwie abgewöhnen?
Danke Conrad
eine schreibgeschütze Datei unter einem neuen Namen schreiben
(z.B. ABC01.xls als ABC01a.xls)
Hi,
Du koenntest die Kopie mit dem Explorer erstellen.
Gruss Helmut
Danke,
aber ich will ja gar keine Kopie erstellen! Ich will nur verhindern das eine neue Version alphabetisch an eine ganz falsche Stelle rutscht und dann mit einer veralteten Version gearbeitet wird.
Gruss Conrad
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
seit 2003(?) hat excel eine nervende Angewohnheit. Will man
eine schreibgeschütze Datei unter einem neuen Namen schreiben
(z.B. ABC01.xls als ABC01a.xls) fügt Excel automatisch ein
„Kopie von …“ davor. Kann Ecel diesen Schwachsinn irgendwie
abgewöhnen?
Hi Conrad,
du könntest entweder in jede Datei die es betrifft, in das Modul „DieseArbeitsmappe“ folgenden Code setzen:
Option Explicit
Private Sub Workbook\_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim a
If SaveAsUI = True Then
Application.EnableEvents = False
Cancel = True
Application.SendKeys ThisWorkbook.Name
a = Application.Dialogs(xlDialogSaveAs).Show
Application.EnableEvents = True
End If
End Sub
Oder aber
in ein Standardmodul der Personl.xls folgenden Code:
Sub KeineKopie()
Dim a
Application.EnableEvents = False
Application.SendKeys ActiveWorkbook.Name
a = Application.Dialogs(xlDialogSaveAs).Show
Application.EnableEvents = True
End Sub
Und dann einmalig in einer beliebigen Datei folgenden Code laufen lassen:
Sub tt()
With Application.CommandBars("File").Controls("Speichern &unter...")
.OnAction = "Personl.xls!KeineKopie"
End With
End Sub
Allerdings, in beiden Varianten, Sendkeys ist immer unberechenbar wohin es was schreibt.
Gruß
Reinhard