Anzeige
Archiv - Navigation
396to400
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
396to400
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mit CommandButton "Speichern unter" aufrufen

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
Anzeige
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
Anzeige
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


Anzeige
AW: noch ne Zusatzfrage
15.03.2004 13:59:08
Sascha
Geht klar.

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige