VBA Frage, leere Tabelle beim Schliessen
15.01.2006 13:29:27
MUC
(Im übrigen ist dar VBA-text so erstellt, dass er nur mit aktivierten Makros betrieben werden kann, wobei in Tabelle1 der Hinweis "Nur mit aktivierten Makros zu öffnen" steht, für den Fall das Makros nicht aktiviert wurden)
SOLLTEN JEMANDEN FEHLER BEIM VBA TEXT AUFFALLEN BITTE GEBT MIR EINEN HINWEIS!!!! DANKE!!!!!!
--------------------------------------------------------------
Dim InI As Integer
Dim ByS As Boolean
Private Sub workbook_open()
ScreenUpdating = False
Sheets("ma1").Visible = xlVeryHidden
Sheets("ma2").Visible = xlVeryHidden
uNam = Environ("Username")
If uNam = "ma1" Then Sheets("ma1").Visible = True
If uNam = "ma2" Then Sheets("ma2").Visible = True
ScreenUpdating = False
Sheets("Tabelle1").Visible = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ScreenUpdating = False
Dim Mldg As Byte
If ActiveWorkbook.Saved Then
Sheets("Tabelle1").Visible = True
For InI = Sheets.Count To 1 Step -1
If Sheets(InI).Name <> "Tabelle1" Then Sheets(InI).Visible = xlVeryHidden
Next InI
ByS = True
ThisWorkbook.Close True
Else
If ByS = True Then Exit Sub
Mldg = MsgBox(" Sollen die Veränderungen gespeichert werden ?", _
vbYesNo + vbQuestion, "abgespeichert?", "", 0)
If Mldg = 6 Then
Application.ScreenUpdating = False
Sheets("Tabelle1").Visible = True
For InI = Sheets.Count To 1 Step -1
If Sheets(InI).Name <> "Tabelle1" Then Sheets(InI).Visible = xlVeryHidden
Next InI
Application.ScreenUpdating = False
ByS = True
ThisWorkbook.Save
Else
ByS = True
ThisWorkbook.Close False
End If
End If
End Sub