Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA - Speichern unter

VBA - Speichern unter
31.12.2005 13:24:55
Stefan
Hallo
Problemm
Ich Hätte gerne nachdem öffnen der Datei "Vorlage"
Das sich sofort das Fenster "speichern unter öffnet"
Dabei darf das nur geschehen wenn ich die Datei Namens "Vorlage" öffne.
Habe ich also die Datei "Vorlage" unter einem anderen Namen abgespeichert,
sollte sich dieses Fenster nicht mehr öffnen.
Gibt s hierfür eine VBA möglichkeit
Grüße Stean

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Speichern unter
31.12.2005 13:30:47
Hajo_Zi
Hallo Stean,
Option Explicit

Private Sub Workbook_Open()
Dim I as Integer
If Mid(ActiveWorkbook.Name, 1, 6) = "Vorlage" Then
Do
Application.Dialogs(xlDialogSaveAs).Show ""            ' speichern unter
If Mid(ActiveWorkbook.Name, 1, 6) = "Vorlage" Then
If I = 0 Then
I = I + 1
MsgBox "Bitte Namen verschieden von Vorlage eingeben", vbOKOnly + vbInformation, "Falscher Name"
Else
Workbooks(ThisWorkbook.Name).Close SaveChanges:=False
End If
Else
Exit Do
End If
Loop
End If
End Sub



Anzeige

327 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige