makro läuft nicht ...
23.02.2006 17:09:43
Joachim
Level.....VBA nein
Nun habe ich herumgespielt und irgendetwas läuft nun nicht mehr.
Funktion:
Beim Start -ohne makro- soll nur das Blatt Makro-Hinweis sichtbar werden.
(alle anderen Blätter sollen ausgeblendet sein)
Beim Start -mit Makro- sollen alle Blätter sichtbar sein mit Ausnahme des Blattes -Makro-Hinweis-
Beim Schließen der Mappe sollen immer alle Blätter ausgeblendet werden und das Blatt -Makro-Hinweis- wieder auf sichtbar gesetzt werden.
------------
Hier das Makro welches in -Diese Arbeitsmappe- liegt.
Private Sub Workbook_Open()
'Alle Blätter einblenden
For Each Sh In Worksheets
If Sh.Name <> MakroBlatt Then
Sh.Visible = True
End If
Next Sh
'Infoblatt ausblenden
Sheets(MakroBlatt).Visible = xlSheetVeryHidden
ThisWorkbook.Saved = True
End Sub
_________________________________
In dfolgenden Bereich muss ja nun das -gegenteilge- erreicht werden:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Blidschirmaktualisierung aus:
Application.ScreenUpdating = False
'Infoblatt einblenden
ActiveWorkbook.Unprotect ("")
Sheets(MakroBlatt).Visible = True
'Alle anderen Blätter verstecken
For Each Sh In Worksheets
If Sh.Name <> MakroBlatt Then
Sh.Visible = xlSheetVeryHidden
End If
Next Sh
End Function
.............
..........
End Sub
_____________________________
Das soll egal wie die Datei geschlossen wird geschehen.
Wer sieht dort den Fehler?
---------------
Gruss
Joachim
---------------