AW: Application.ScreenUpdating = False
16.11.2009 17:08:47
Michael
Liebes Forum,
als erstes Sorry, Sorry, Sorry, für meinen klassischen Fehlstart.
Da das meine erste Anfrage war und ich den Wertegang und auch die Prozeduren hier noch nicht kenne, bitte ich das zu entschuldigen. Ich werde mich bessern.
Wie bzw. welche Information sollte ich sinnvoller Weise aufbereiten, damit geholfen werden kann ?
Vielleicht zum Grundverständnis. Meine Arbeitsmappe ist eine Vorlage die sowohl unter Excel 2003 als auch 2007 genutzt wird, Sie ist schreibgeschützt damit die Kollegen keinen Unfug machen können.
Beim Aufrufen der Datei wird der Schreibschutz entfernt, damit Pfadverweise
in der Datei auf ein spezielles Add-In gelöscht werden können, dann wird der Schreibschutz wieder gesetzt. Mein Code lautet wie folgt :
Option Explicit
Private Sub Workbook_Open()
' Bildschirm flimmern deaktivieren
Application.ScreenUpdating = False
'Anzeige Verknüpfungen aktualisieren verhindern
Application.DisplayAlerts = False
'Gelbe Farbe Hintergrund definieren
ActiveWorkbook.Colors(27) = RGB(255, 255, 153)
'Schreibschutz entfernen
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Unprotect ("migro")
Next Blatt
'Add-In-Verzeichnispfad löschen
Dim aLinks, i&, res$, xla$
' Hier den Namen des AddIns angeben ...
xla = "taxcel2003.xla"
aLinks = Me.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
res = Right(aLinks(i), Len(aLinks(i)) - InStrRev(aLinks(i),
"\"))
If res = xla Then
Me.ChangeLink aLinks(i), xla, xlExcelLinks
Exit For
End If
Next i
End If
'Schreibschutz setzen
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Protect ("migro")
Next Blatt
'Fehlermeldungen wieder anzeigen
Application.DisplayAlerts = True
'Bildschirm aktuallisieren ein
Application.ScreenUpdating = True
End Sub
Gruß
Michael