Office: Microsoft Sicherheitsupdate tauscht MSCOMCTL.OCX

M Merlin · 1. November 2012

Über diese Überlegung würde ich nochmals nachdenken !!!

Erkenne gerade nicht meinen angeblichen denkfehler
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nimms mir nicht übel, aber jeder vernüftige Mensch würde an der Installation vom OS nicht den Ordner ändern...!!!

Hier ne Möglichkeit zu prüfen ob die Version von Mscomctl registriert ist...
Code:

'Hier wird der Verweis TLBINF32.dll benötigt
Dim lTLI As TypeLibInfo

On Error Resume Next
Set lTLI = TLI.TypeLibInfoFromRegistry("{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}", 2, 1, 0)

Select Case Err.Number
Case 0
Debug.Print lTLI.HelpString

Case tliErrTypeLibNotRegistered
MsgBox "Der angegebene Verweis ist nicht registriert.", vbCritical

Case Else
MsgBox Err.Description
End Select
Err.Clear
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

JPA · 1. November 2012

ach nö du, ich nehms mit humor.
99% der leute die hier in diesem thema schreiben/lesen, tun das weil sie installation auf div. rechnern "reparieren" müssen und suchen nach einer allgemeinen lösung.
Internet. schon mal gehört..., ich weiss nicht was div. rechnerkonf. die leute haben die meine software downloaden. Andere standardordnernamen habe ich schon oft gesehen.
Aber mehr gehe ich auf dein überflüssigen kommentar nicht ein, bin ja froh das ich noch nicht ganz senil bin *wink.gif*
Ist halt nur schade für alle, solche unproduktive kommentare zu lesen *rolleyes.gif*

Also zurück zum produktiven: Die funktion probiere ich mal aus, danke dafür.

Gruß
JPA

M Merlin · 1. November 2012

Na ja dein Kommentar habe ich jetzt mal überlesen, werd dir trotzdem noch ne bessere Lösung geben... *wink.gif* *grins

Code:

Private Declare Function GetSystemDirectory Lib "KERNEL32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Sub CheckRegistered()
Dim lTLI As TypeLibInfo
Dim WinSysDir As String
Dim sDirBuf As String * 255
Dim sFileName As String

WinSysDir = Left$(sDirBuf, GetSystemDirectory(sDirBuf, 255))
sFileName = WinSysDir & "\MSCOMCTL.OCX"

On Error Resume Next
Set lTLI = TLI.TypeLibInfoFromRegistry("{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}", 2, 1, 0)

Select Case Err.Number
Case 0
Debug.Print lTLI.HelpString

Case tliErrTypeLibNotRegistered
MsgBox "Der angegebene Verweis ist nicht registriert.", vbCritical

Call RegisterComponent(sFileName, True)
Case Else
MsgBox Err.Description
End Select
Err.Clear
End Sub

Function RegisterComponent(sFileName As String, Optional bRegister As Boolean) As Boolean
Dim oTypeLib As Object

On Error GoTo ErrFailed
Set oTypeLib = CreateObject("TLI.TypeLibInfo")
oTypeLib.ContainingFile = sFileName
If bRegister Then
oTypeLib.Register
Else
oTypeLib.UnRegister
End If
Set oTypeLib = Nothing
RegisterComponent = True

Exit Function

ErrFailed:
Debug.Print Err.Description
Debug.Assert False
RegisterComponent = False
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Denk an den Verweis....

JPA · 4. November 2012

Habe die alte MSCOMCTL.ocx auf meiner Entwicklungsmaschine deregistriert und die neue (v.6.1.98.34) registiert.
Läuft erstmal.
Allerdings verwende ich nun ein listview, dann läuft dieses nur noch auf einer maschine wo auch die neue mscomctl.ocx installiert ist.
Vorher lief es sowohl aufeiner maschine mit alten wie auch neue Version.

ALso habe ich die neue Version auf meiner Entwicklungsmaschine wieder deregistriert und die alte wieder registriert.
Allerlings jetzt, beim hinzufügen eines Listview oder auch imagelist bekomme ich nun die fehlermeldung, ocx nicht registriert. Treeview geht seltsamerweise aber.
Es scheint so das einige Steuerelement die neue Version noch immer erwarten.

Habe mit der Office2003 CD die Reparatur laufen lassen, kein erfolg.

Hat jemand einen tipp für mich, wie ich wieder die alte Version 6.1.98.33 wieder sauber zum laufen bringen kann?

JPA · 1. Dezember 2012

So kann man auf die Version 6.1.98.33 wieder zurück kommen:
1. Neue MSCOMCTL.OCX (6.1.98.34) unregistrieren
2. Folgenden regAst löschen: [HKEY_CLASSES_ROOT\TypeLib\{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}\2.1]
3. Die alte Version MSCOMCTL.OCX (6.1.98.33) ins system32 reinkopieren und registieren.

Und dann noch unbedingt folgendes machen!
Die Registrierung der neue MSCOMCTL.OCX legt unter HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\ folgende neue Schlüssel an:
{0B314611-2C19-4AB4-8513-A6EEA569D3C4} Microsoft Slider Control 6.0 (SP6)
{24B224E0-9545-4A2F-ABD5-86AA8A849385} Microsoft TabStrip Control 6.0 (SP6)
{627C8B79-918A-4C5C-9E19-20F66BF30B86} Microsoft StatusBar Control 6.0 (SP6)
{7DC6F291-BF55-4E50-B619-EF672D9DCC58} Microsoft Toolbar Control 6.0 (SP6)
{87DACC48-F1C5-4AF3-84BA-A2A72C2AB959} Microsoft ImageComboBox Control 6.0 (SP6)
{95F0B3BE-E8AC-4995-9DCA-419849E06410} Microsoft TreeView Control 6.0 (SP6)
{979127D3-7D01-4FDE-AF65-A698091468AF} Microsoft ListView Control 6.0 (SP6)
{A0E7BF67-8D30-4620-8825-7111714C7CAB} Microsoft ProgressBar Control 6.0 (SP6)
{F91CAF91-225B-43A7-BB9E-472F991FC402} Microsoft ImageList Control 6.0 (SP6)

Diese einfach löschen, sonst funz die Controls weiterhin nicht.

Gruß
JPA

LeMa · 21. Januar 2013

Bitte entschuldigt, wenn ich das Thema noch einmal aufgreife. Ich bin quasi noch immer auf der Suche nach dem "Königsweg". Es geht um Treeview und Listview. Daher folgende Fragen:

Funktioniert mit der aktuellen MS-Version das DragDrop eines Listviews? (Bei mir bekomme ich das nicht hin. Version 6.01.9834)

Ist es empfehlenswert, auf die alte Version zurückzukehren? Die Sicherheitslücken müssen bei einem solchen MS Vorgehen ja gravierend sein.

Gibt es - abgesehen vom Pfad - Unterschiede im Vorgehen zwischen 32 und 64bit Versionen?

Danke und Grüße,
LeMa

rastrans · 7. Januar 2021

von LeMa

Gibt es - abgesehen vom Pfad - Unterschiede im Vorgehen zwischen 32 und 64bit Versionen?

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wir nutzen viele Verschiedene Versionen von Windows und auch einen Mix aus 32- und 64-Bit-System. Nachdem ich die Registry-Pfade gesetzt habe, haben wir keine Probleme mehr mit unseren Listboxen. (siehe Beitrag vom 18.10.12 10:59)

LeMa · 21. Januar 2013

Also das DragDrop Event wird bei euch mit Version 6.01.98.34 korrekt ausgelöst?

LeMa · 8. Februar 2013

Mit der offiziell aktuellen Version (6.01.98.34) sollte das DragDrop Event eines Listviews also funktionieren? Oder ist dazu ein "Downgrade" auf 6.01.98.33 notwendig?

Thomas Möller · 8. Februar 2013

Hallo!

von LeMa

Mit der offiziell aktuellen Version (6.01.98.34) sollte das DragDrop Event eines Listviews also funktionieren?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja! Voraussetzung ist, dass die Registrierung richtig erfolgt ist und in der Registry die richtigen Werte stehen. Die notwendigen Informationen findest Du in diesem Thread.
Ich persönlich würde es einfach ausprobieren. *wink.gif*

CU

LeMa · 9. Februar 2013

Danke Thomas. Ja ich probiere und ich habe auch keinerlei Probleme z.B mit den Treeviews. Nur ListView DragDrop = Nothing...
Dachte schon, es wurde abgeschafft.

LeMa · 9. Februar 2013

Mea culpa.
Hatte vergessen, im ListView das DropEvent auf manual zu stellen.
*biggrin.gif*

Office: Microsoft Sicherheitsupdate tauscht MSCOMCTL.OCX

Microsoft Sicherheitsupdate tauscht MSCOMCTL.OCX

Microsoft Sicherheitsupdate tauscht MSCOMCTL.OCX

Microsoft Sicherheitsupdate tauscht MSCOMCTL.OCX

Microsoft Sicherheitsupdate tauscht MSCOMCTL.OCX

Microsoft Sicherheitsupdate tauscht MSCOMCTL.OCX - Similar Threads - Microsoft Sicherheitsupdate tauscht

Schreibschutz Microsoft 365

Download von Microsoft Word 365

Format Übertragung im Microsoft Word und Excel

Kostenlose Online-Weiterbildung zu Microsoft Excel

Dateien speichern unter in Microsoft Office 2021 Plus

Dateiendungen für Microsoft Office 2021 Plus

SICHERHEITSRISIKO Microsoft hat die Ausführung von Macros blockiert, ...