Mit CommandButton "Speichern unter" aufrufen
15.03.2004 09:25:35
Sascha
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