Mit CommandButton "Speichern unter" aufrufen

Forumthread: Mit CommandButton "Speichern unter" aufrufen

15.03.2004 09:25:35

Sascha

Hallo!
Mit einem CommandButton verstecke ich das aktive Blatt und schütze meine Mappe mit einem Passwort (siehe Code).

Jetzt sollte sich noch das Menü "Speichern unter" öffnen und als Name soll der Inhalt der Zelle D8 des aktiven Blattes ("Artikel") vorgeschlagen werden.
Wie muss ich meinen Code erweitern. Kann mir Jemand helfen?


Private Sub BlattVersteckenMappeSchützen_Click()
ActiveWindow.SelectedSheets.Visible = False
ActiveWorkbook.Protect ("Schutz"), Structure:=True, Windows:=False
End Sub

Danke!
mfg
Sascha

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mit CommandButton "Speichern unter" aufrufen

15.03.2004 11:02:46

Ilja
noch ne Zusatzfrage

15.03.2004 13:53:23

Sascha
AW: noch ne Zusatzfrage

15.03.2004 13:55:07

Hajo_Zi
AW: noch ne Zusatzfrage

15.03.2004 13:59:08

Sascha

AW: Mit CommandButton "Speichern unter" aufrufen

15.03.2004 11:02:46

Ilja

Hallo,
Versuch mal das:


Private Sub BlattVersteckenMappeSchützen_Click()
ActiveWindow.SelectedSheets.Visible = False
ActiveWorkbook.Protect ("Schutz"), Structure:=True, Windows:=False
ChDrive DateiPfad 'DateiPfad z.B. "C:\Meine_Dateien"
ChDir DateiPfad
InitialFilename = Worksheets("Artikel").Range("D8").Value
Application.GetSaveAsFilename(InitialFilename)
End Sub

Gruß
Ilja

noch ne Zusatzfrage

15.03.2004 13:53:23

Sascha

Danke, habs mir ein bischen einfacher gemacht. Ich nehme nur noch "speichern".


Private Sub BlattVersteckenMappeSchützen_Click()
ActiveWindow.SelectedSheets.Visible = False
ActiveWorkbook.Protect ("Schutz"), Structure:=True, Windows:=False
ThisWorkbook.SaveAs Range("D8").Value & ".xls"
End Sub

Was muss ich noch hinzufügen, wenn ich die Mappe mit dem genannten Namen unter D:\Listen speichern will. Hab leider nicht viel Ahnung von VBA.
mfg
Sascha

AW: noch ne Zusatzfrage

15.03.2004 13:55:07

Hajo_Zi

Hallo Sascha
Du solltest Dir mal angewöhnen auf die Antwort zu Antworten und nicht auf Deine Frage.
Mit der automatischen E-Mailbenachrichtigung werden nur die letzten beiden Beiträge angezeigt und in diesem Fall sieht man die Antwort nicht mehr, wenn die Frage nicht richtig plaziert wurde.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro

AW: noch ne Zusatzfrage

15.03.2004 13:59:08

Sascha

Geht klar.

Beliebteste Forumthreads (12 Monate)

Mit CommandButton "Speichern unter" aufrufen

Forumthread: Mit CommandButton "Speichern unter" aufrufen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread