Screenupdating bei Makros, funktioniert nicht?
15.01.2006 13:25:11
MUC
Ich habe da was von "Screenupdate = false" gehört. Das steht zwar unten dabei, aber es bringt nichts.
Habe ich es falsch gesetzt? Oder was gibt es noch für Möglichkeiten, damit beim Aufrufen auch wirklich nur die Tabelle des jeweiligen Bearbeiters erscheit, ohne kurzes Aufblinken aller Tabellen?
(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
Anzeige