Beim schließen und öffnen
30.04.2009 09:02:16
Thomas
zu meinem gestrigen Thema: Datei nur mit Makro zulassen habe ich nun ein Makro zusammengestellt, welches Tabellenblätter beim schließen ausblenden und beim öffnen einblenden soll.
Leider funktioniert der Teil mit dem Ein- und ausblenden nicht. Ich habe nun schon verschieden Vrianten probiert, er will sie einfach nicht ein und ausblenden. Hilfe!!!! Was habe ich falsch gemacht?
In den Prozeduren sind noch andere Funktionen mit drin, ich habe Sie aber erkenntlich Kommentiert.
Danke vorab für die Hilfe.
LG
Thomas
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wks As Worksheet
On Error GoTo errorhandler:
'Einblenden Auswahlleiste
For Each c In Application.CommandBars
c.Enabled = True
Next
If Application.DisplayFormulaBar = False Then
Application.DisplayFormulaBar = True
End If
ActiveWindow.DisplayWorkbookTabs = True
'Ausblenden vorm schließen
For Each wks In ThisWorkbook.Worksheets
Select Case wks.Name
Case "Hinweis"
'Diese Tabellen nicht ausblenden
'Do nothing
Case Else
'Alle anderen Blätter ausblenden
wks.Visible = xlSheetVeryHidden
End Select
Next
Exit Sub
errorhandler:
MsgBox ("FEHLER: Modul workbook_BeforeClose im Objekt -Diese Arbeitsmappe-.")
End Sub
Sub Workbook_Open()
Dim F As Integer
Dim sFilename As String
Dim wks As Worksheet
On Error GoTo errorhandler:
'User Report
sFilename = IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\")
sFilename = sFilename & "Userzugriff.txt"
F = FreeFile
Open sFilename For Append As #F
Print #F, CStr(Environ$("Username") & " " & Format(Now, "hh:mm:ss dd.mm.yyyy"))
Close #F
'Symbolleiste ausblenden
For Each c In Application.CommandBars
c.Enabled = False
Next
If Application.DisplayFormulaBar = True Then
Application.DisplayFormulaBar = False
End If
ActiveWindow.DisplayWorkbookTabs = False
'Einblenden
For Each wks In ThisWorkbook.Worksheets
Select Case wks.Name
Case "1", "2"
'Diese Tabellen einblenden
wks.Visible = xlSheetVisible
Case Else
'Do nothing
End Select
Next
Sheets("Menü").Select
Exit Sub
errorhandler:
MsgBox ("FEHLER: Modul workbook_open im Objekt -Diese Arbeitsmappe-.")
End Sub