title image


Smiley Aktives Blatt vor dem Speichern ausblenden und auf das Start-Blatt wechseln
Hey Jochen,



ich mische mich mal kurz ein (wenn es OK ist ;-). Dieses Makro in das Klassenmodul "DieseArbeitsmappe" kopieren :







Private Sub Workbook_BeforeClose(Cancel As Boolean)

    'Wechselt vor dem Speichern auf das Blatt "Start"

    'Blendet das zuvor aktive Blatt aus und speichert nochmal

    Dim Blatt

    Set Blatt = ActiveSheet

    With Sheets("Start")

        .Visible = True

        .Select

        If Blatt.Name <> .Name Then Blatt.Visible = False

    End With

    ActiveWorkbook.Save

End Sub



Code eingefügt mit Syntaxhighlighter 4.0

Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: