Appendix Thread. App Index Rws() Clms() Majic code line Codings for other Threads, Tables etc) TEST COPY

[DocAElstein]

In support of these posts

https://stackoverflow.com/questions/...60767#54960767
https://www.eileenslounge.com/viewto...p?f=18&t=33834



Thoughts on adding split lines in Excel cells via the ( probably windows ) Clipboard

The following code snippet is typical of those which got me to the solution of how to manipulate a text string so that it pastes into Excel a cell with multiple lines.
The first section shows me what the text in "the clipboard" looks like after using Excel ways to copy my final desired test form , after using Excel ways to produce it. It gives this sort of output
"A" & vbCr & vbLf & """" & "X" & vbLf & "Y" & """" & vbCr & vbLf & "C" & vbCr & vbLf
A vbCr vbLf " X vbLf Y " vbCr vbLf C vbCr vbLf
TestvbLf_3.jpg : https://imgur.com/oPXJIkG
Attachment 2566

Either code sections 2 and 3 would error, presumably because the windows clipboard has been emptied. That is not totally understandable. We know that we had something in the windows clipboard. Doing things that empty "clipboards" , possibly other than the window clipboard, seem also somehow to remove things from the windows clipboard.
Possibly we could explain this by saying that as Excel filled the windows clipboard as a sort of extra thing to do after primarily filling its clipboard, then some linking wiring in place to do that also resulted into it clearing the windows clipboard when it cleared its clipboard
Code section 4 erroring is less understandable, as we did not use normal Excel ways to fill the window clipboard, but never the less .Clear seems to empty it.
Code section 5 erroring is similarly less understandable, since it is generally considered that Application.CutCopyMode = False clears the Excel clipboard

Before going on to sections 7 and 8, copy something to the "clipboard" from anywhere.
We find that section 7 and 8 would still error. This once again seems to be caused by either .Clear or .CutCopyMode = False. It suggests that there is some link to the windows clipboard that causes it to be cleared. It suggests perhaps that something has been set to link things in the windows clipboard from Excel or office, possibly to get some formatting parameters. If you put anything into the windows clipboard, it will still be cleared when doing .Clear or .CutCopyMode = False , by virtue of this linking "wiring"

Section 9 probably removes this linking wiring.
When a manual copy is then made in the following sections , possibly a new wiring is set up which has a different sort of dependency.

Before going on to section 10 and then again before going on to section 11, copy something to the "clipboard" from anywhere.
The code lines of .Clear or .CutCopyMode = False at the start of these sections do not remove the orange from the icon top left, and code sections 10 and 11 do not error. This supports the idea that a link was made to the windows clipboard that works slightly differently.

Sub TestvbLf_3()
ActiveSheet.Cells.Clear


Dim objDataObject As Object: Set objDataObject = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Dim StringBack As String
' Section 1
 ActiveSheet.Range("A1").Value = "A"
 ActiveSheet.Range("A2").Value = "X" & vbLf & "Y"
 ActiveSheet.Range("A3").Value = "C"
 ActiveSheet.Range("A1:A3").Copy
 objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText()
 Call WtchaGot(StringBack)
 'ActiveSheet.Cells.Clear ' --- This clears "the clipboard",
 ActiveSheet.Paste Destination:=ActiveSheet.Range("D1")
 
' Section 2
' ActiveSheet.Cells.Clear ' --- This clears "the clipboard"
' objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText() ' This errors
' Call WtchaGot(StringBack)

' Section 3
' Application.CutCopyMode = False
' objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText() ' This errors
' Call WtchaGot(StringBack)

' Section 4
' objDataObject.SetText "A" & vbCr & vbLf & """" & "X" & vbLf & "Y" & """" & vbCr & vbLf & "C": objDataObject.PutInClipboard
' ActiveSheet.Cells.Clear
' objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText() ' This errors
' Call WtchaGot(StringBack)

' Section 5
' objDataObject.SetText "A" & vbCr & vbLf & """" & "X" & vbLf & "Y" & """" & vbCr & vbLf & "C": objDataObject.PutInClipboard
' Application.CutCopyMode = False
' objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText()
' Call WtchaGot(StringBack)
 
Stop  ' BEFORE DOING THE NEXT CODE SECTIONs, copy something manually via Ctrl+c ...
' Section 7
' ActiveSheet.Cells.Clear
' objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText() ' This errors
' Call WtchaGot(StringBack)
'
'' Section 8
' Application.CutCopyMode = False
' objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText() ' This errors
' Call WtchaGot(StringBack)

' Section 9
 ActiveSheet.Cells.Clear  ' This I think breaks the link from other clipboards to the windows clipboard.
' Application.CutCopyMode = False ' this line as alternative to the last has the same effect

Stop  ' BEFORE DOING THE NEXT CODE SECTIONs, copy something manually via Ctrl+c ...

' Section 10
 ActiveSheet.Cells.Clear
 objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText()
 Call WtchaGot(StringBack)
 ActiveSheet.Paste Destination:=ActiveSheet.Range("E1")

Stop  ' BEFORE DOING THE NEXT CODE SECTIONs, copy something manually via Ctrl+c ...

' Section 11
 Application.CutCopyMode = False
 objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText()
 Call WtchaGot(StringBack)
 ActiveSheet.Paste Destination:=ActiveSheet.Range("H1")

End  Sub

[DocAElstein]

Some notes in support of these Threads
http://www.eileenslounge.com/viewtopic.php?f=18&t=33775
http://www.eileenslounge.com/viewtop...d7141c#p262009
http://www.excelfox.com/forum/showth...ll=1#post11570
http://www.excelfox.com/forum/showth...ll=1#post11608



VPN and IP Addresses
Some of the initial investigations into testing VPN and in looking at problems showed that it was useful to be able to monitor various IP addresses.
The main (Public) address, as already discussed, ( http://www.excelfox.com/forum/showth...ll=1#post11597 ) , is of course important to know . There is also a "local host", which more typically is set to the same number for everyone, (127.0.0.1 ). This is a number which conventionally is used to allow direct access to network aspects of your computer which might otherwise be accessed externally in some way or another. A characteristic of VPN software is that it manipulate your computer in a way such that, amongst other things , this number will change to the internal address used at your VPN provider to identify you within their system. It is part of the trickery in the Client software, that you "looking at yourself" gets manipulated into looking somewhere else. The provider in some ways is then in control of your computer allowing them to give the impression that your computer is physically somewhere else: Part of your computer "Soul" is with them.

Public address
Manually this is achieved typically by visiting various sites that provide you with this information. The automated way still needs to use such sites. The reason for this is that you need to be able to get the information by accessing yourself in the way that another computer connected to the internet "gets at you". Part of this process involves obtaining your public address as you communicate initially with them. We could scrap any site offering the service and pick out the IP address information.
We can simplify the coding to do this by accessing a site available which only gives the IP information, and which shows as the website that you "see" just that IP address number.
So for example if you type in your browser URL bar, http://myip.dnsomatic.com/ , then all you will see is the IP address. You will even see only that if you are in Google Chrome Browser and right click and view the Page Source
Page Source myip dnsomatic .JPG : https://imgur.com/uceUKE4

This information will be the entire .responseText received back. In normal scrapping coding you might feed this supplied text string into an object model software which allows you to then pick out using OOP type techniques what you want. If we use the site http://myip.dnsomatic.com/ , we don't need to take that extra step, and can simply view the entire .responseText , as this is the exact info we want.

( I found that sometimes the first one or few attemps did not work in the next coding, but almost always after a few attemopts it worked. So the recursion technique is used to call the Function a few times , if necerssary )

Option Explicit
Sub TestPubicIP()
Dim strIP As String
 Call PubicIP(strIP)
 MsgBox prompt:=strIP
 'Call WtchaGot(strIP)
End Sub
' Because we have ByRef PublicIP  , the is effectively taking the variable  strIP  into the function, and similarly in the  recursion Call line  that variable is taken.  Hopefull in one of the 5 attepts at running the Function  it will be filled.. We don't actually fill the pseudo variable  PubicIP  so no value is returned directly by the Function. (So we could have used a Sub()routine instead)  To get a returned value we look at the value in  strIP  after runing the routine , because , as said, hopefully that particular variable will have been added to
Function PubicIP(ByRef PublicIP As String, Optional ByVal Tries As Long) As String
    If Tries = 5 Then Exit Function
 On Error GoTo Bed
    With CreateObject("msxml2.xmlhttp")
     .Open "GET", "http://myip.dnsomatic.com", True ' 'just preparing the request type, how and what type... "The True/False argument of the HTTP Request is the Asynchronous mode flag. If set False then control is immediately returns to VBA after Send is executed. If set True then control is returned to VBA after the server has sent back a response.
     'No extra info here for type GET
     '.setRequestHeader bstrheader:="Ploppy", bstrvalue:="Poo"
     .setRequestHeader bstrheader:="If-Modified-Since", bstrvalue:="Sat, 1 Jan 2000 00:00:00 GMT" '  https://www.autohotkey.com/boards/viewtopic.php?t=9554  ---   It will caching the contents of the URL page. Which means if you request the same URL more than once, you always get the same responseText even the website changes text every time. This line is a workaround : Set cache related headers.
     .send ' varBody:= ' No extra info for type GET. .send actually makes the request
        While .readyState <> 4: DoEvents: Wend ' Allow other processes to run while the web page loads. Think this is part of the True option
    Dim PageSrc As String: Let PageSrc = .responseText ' Save the HTML code in the (Global) variable. ': Range("P1").Value = PageSrc 'For me for a print out copy to text file etc.    The responseText property returns the information requested by the Open method as a text string
    End With
 Let PublicIP = PageSrc: ' Debug.Print PubicIP
 'Call WtchaGot(PubicIP)
     If PublicIP = "" Then Call PubicIP(PublicIP, Tries + 1) ' Recursion Call line. I do this because sometines it seems to need more than one try before it works
Exit Function
Bed:
 Let PubicIP = Err.Number & ":  " & Err.Description: Debug.Print PubicIP
End Function

As an alternative , I have below a similar coding. It gets the page source from another site which shows your IP address. I found when looking at the page source in Google Chrome, that I could see the IP address conveniently showing between two simple text lines :
Page Source whatismyipaddress_com .JPG : https://imgur.com/LSvORAe
Attachment 2567

To VBA ( or most computer things), that text looks like a long string, and at that point we can imagine that it looks to the computer like any one of these 3 representations
……. ipt -->" & vbLf & "87" & "." & "101" & "." & "95" & "." & "204" & vbLf & "<!—do not scr……..
…….ipt --> vbLf 87.101.95.204 vbLf <!—do not scr ………….

…….ipt --> vbLf
87.101.95.204 vbLf
<!—do not scr ………….

We apply some simple VBA strings manipulation techniques to extract just the IP address number

'
Sub TestPubicIPwhatismyipaddress_com()
Dim strIP As String
 Let strIP = PubicIPwhatismyipaddress_com
 MsgBox prompt:=strIP
End Sub
Function PubicIPwhatismyipaddress_com() As String
 On Error GoTo Bed
    With CreateObject("msxml2.xmlhttp")
     .Open "GET", "https://whatismyipaddress.com/de/meine-ip", False ' 'just preparing the request type, how and what type... "The True/False argument of the HTTP Request is the Asynchronous mode flag. If set False then control is immediately returns to VBA after Send is executed. If set True then control is returned to VBA after the server has sent back a response.
     'No extra info here for type GET
     '.setRequestHeader bstrheader:="Ploppy", bstrvalue:="Poo"
     .setRequestHeader bstrheader:="If-Modified-Since", bstrvalue:="Sat, 1 Jan 2000 00:00:00 GMT" '  https://www.autohotkey.com/boards/viewtopic.php?t=9554  ---   It will caching the contents of the URL page. Which means if you request the same URL more than once, you always get the same responseText even the website changes text every time. This line is a workaround : Set cache related headers.
     .send ' varBody:= ' No extra info for type GET. .send actually makes the request
        While .READYSTATE <> 4: DoEvents: Wend ' Allow other processes to run while the web page loads. Think this is part of the True option
    Dim PageSrc As String: Let PageSrc = .responsetext ' Save the HTML code in the (Global) variable. ': Range("P1").Value = PageSrc 'For me for a print out copy to text file etc.    The responseText property returns the information requested by the Open method as a text string
    End With
 Let PubicIPwhatismyipaddress_com = PageSrc: ' Debug.Print PubicIPwhatismyipaddress_com
Dim IPadres As String, posIPadres1 As Long, posIPadres2 As Long
 Let posIPadres1 = InStr(1, PageSrc, "<!-- do not script -->", vbBinaryCompare)  '      Screenshot --->   Page Source whatismyipaddress_com .JPG : https://imgur.com/LSvORAe
 Let posIPadres2 = InStr(posIPadres1 + 1, PageSrc, "<!-- do not script -->", vbBinaryCompare)
 Let PubicIPwhatismyipaddress_com = Mid(PageSrc, posIPadres1 + 23, ((posIPadres2 - 1) - (posIPadres1 + 23)))
 Call WtchaGot(PubicIPwhatismyipaddress_com)
Exit Function
Bed:
 Let PubicIPwhatismyipaddress_com = Err.Number & ":  " & Err.Description: Debug.Print PubicIPwhatismyipaddress_com
End Function

---

Local Host address and computer name in the next post

[DocAElstein]

Local Host address, Computer name
There are a couple of Win32 APIs which will get this information.
We just need to write a small amount of coding to get the function to do what we want and also a bit of manipulaation to give the information as we need it.
For the computer name this is simply a function to give us a string.

Option Explicit
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, ByRef nSize As Long) As Long
'  "GetComputerNameA" (ByVal lpBuffer As String, ByRef nSize As Long) As Long
Function ComputerName() As String                                                                                                                                                                        ' GHB and sex..
Dim NmeLen As Long, lngX As Long, strCompName As String
 Let NmeLen = 999: Let strCompName = "                                     "     ' variables must be initialised or API things often dont work                                                            ' String$(50, 0)
 Let lngX = GetComputerName(strCompName, NmeLen) '
    If lngX <> 0 Then ' returns 1 if it works
     Let ComputerName = strCompName '   Left$(strCompName, NmeLen)   ' The first argument variable gets like a LSet done on it
    Else
     Let ComputerName = "Couldn't get Computer name"
    End If
 Let ComputerName = Left$(ComputerName, NmeLen) ' We must do this as there is a  Chr(0)  after the name ....  Let ComputerName = Trim(ComputerName) ' this is no good, - it leaves Chr(0) on the end which means that ComputerName is the last thing that will get printed
 'Call WtchaGot(ComputerName)
End Function

The Win32 API for the local IP address is slightly more complicated. It will give us a table/ array of all the IP addresses held. The first is generally that we are interested in. it seems to be added when a VPN connection is made

Option Explicit
Private Declare Function GetIpAddrTable_API Lib "IpHlpApi" Alias "GetIpAddrTable" (ByRef pIPAddrTable As Any, ByRef pdwSize As Long, ByVal bOrder As Long) As Long    '   http://www.source-code.biz/snippets/vbasic/8.htm
'  "GetIpAddrTable" (ByRef pIPAddrTable As Any, ByRef pdwSize As Long, ByVal bOrder As Long) As Long
Public Function GetIpAddrTable() As String  '       Christian d'Heureuse, www.source-code.biz  http://www.source-code.biz/snippets/vbasic/8.htm
Rem 1 We give the API function some info , and that seems to make it fill up an array with table values
Dim Buf(0 To 1234) As Byte ' Buf(0 To 511) As Byte ' must be Byte or overflow at NrOfEntries
Dim BufSize As Long: Let BufSize = 12345
Dim rc As Long: Let rc = GetIpAddrTable_API(Buf(0), BufSize, 1)
   'If rc <> 0 Then Err.Raise vbObjectError, , "GetIpAddrTable failed with return value " & rc
Dim NrOfEntries As Integer: NrOfEntries = Buf(1) * 256 + Buf(0)
   'If NrOfEntries = 0 Then GetIpAddrTable = Array(): Exit Function

Dim i As Long
   For i = 0 To NrOfEntries - 1
    Dim j As Long, s As String
      For j = 0 To 3
      Dim Indcy As Long: Let Indcy = 4 + i * 24 + j
       s = s & IIf(j > 0, ".", "") & Buf(Indcy): Debug.Print Indcy & "   " & Buf(Indcy) ' This code line just builds the final string for each IP address, with a "." before all but the first of the 4 number parts  ---  for example like  192 . 168 . 2 . 110
      Next j
     Dim strIPs As String: Let strIPs = strIPs & "   " & s: Let s = ""
    Next
   GetIpAddrTable = strIPs: Debug.Print strIPs
End Function

'    4   127
'    5   0
'    6   0
'    7   1
'    28   192
'    29   168
'    30   2
'    31   110
'       127.0.0.1   192.168.2.110                                                                                          ' _

'    4   10
'    5   132
'    6   13
'    7   113
'    28   127
'    29   0
'    30   0
'    31   1
'    52   192
'    53   168
'    54   2
'    55   110
'       10.132.13.113   127.0.0.1   192.168.2.110
'     1  2  3    4   5   6  7      8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
'    25 26 27   28  29  30  31     32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
'    49 50 51   52  53  54  55
'               10  132  13  127
'               127  0   0   1
'               192 168  2  110

If we examine that coding above, and experiment with what it does, we see a couple of things:
Rem 1
_ It is doing a strange thing, as API's often do. That is to say the API works similarly to a normal VBA function, except the way each argument is a mystery.. following some set of rules/coding which probably the author wrote when he was drunk and no one can remember anymore.
You must make an array of Byte types. The array should be fairly big.
You must give the first array element and the size of the array to the API Function.
Then magically the array gets filled. Presumably some internally held table is put into the array
Rem 2
A bit of maths is done to pick out the elements we want from the returned filled array

The final analysis here of a typical output can be helpful to try and understand another way to get this information

'     1  2  3    4   5   6  7      8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
'    25 26 27   28  29  30  31     32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
'    49 50 51   52  53  54  55
'               10  132  13  127
'               127  0   0   1
'               192 168  2  110

Or maybe not. I am not sure. I doubt many people are…

[DocAElstein]

Coding in support of this post
http://www.excelfox.com/forum/showth...ll=1#post11808

Option Explicit '
Sub txtfilesinworksheetwithFILENAMEColumnB() '  http://www.excelfox.com/forum/showthread.php/2392-VBA-Copy-files-in-excel-edit-and-save?p=11808&viewfull=1#post11808
Rem 1 Worksheets info
Dim WsFlNme As Worksheet
 Set WsFlNme = ThisWorkbook.Worksheets("FILENAME")
Rem 2 Copy .txt files in worksheets
'2a) Copy .txt files in worksheet with FILENAME (Column B)
'2a)(i) Get the entire text file as a string
Dim FileNum As Long: Let FileNum = FreeFile(1) ' The "highway/ street/ link" to be built to transport the text will be given a number. It must be unique. So we use for convenience, the Freefile function: it returns an integer that represents the next file number that the Open statement can use.  The optional argument for the range number is a variant that is used to specify a range from which the next free file number is returned. Enter a value of data type 0 (default) to return a file number in the range 1 - 255 inclusive. Enter 1 to return a file number in the range 256 - 511.   https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/freefile-function  . Note also : Use file numbers in the range 1-255, inclusive, for files not accessible to other applications. Use file numbers in the range 256-511 for files accessible from other applications
Dim PathAndFileName As String, strtxtFile As String
 Let PathAndFileName = ThisWorkbook.Path & "\vbadumb.txt"
  Open PathAndFileName For Binary As #FileNum 'Open Route to data. Binary is a fundemental type data input...
    strtxtFile = VBA.Strings.Space$(LOF(FileNum)) '....and wot recives it hs to be a string of exactly the right length
    Get #FileNum, , strtxtFile                  'The  Get  statement reads back from an open route to data into the  given variable
  Close #FileNum
' Call WtchaGot(strtxtFile) '  ---   If we were to examine that string in strtxtFile, then we would see something like    "1" & vbCr & vbLf & "2" & vbCr & vbLf & "3"
Rem 3 Put the text data inti the (Windows clipboard)
Dim objDataObject As Object: Set objDataObject = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") ' https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/dataobject-object   A holding area for formatted text data used in transfer operations. Also holds a list of formats corresponding to the pieces of text stored in the DataObject.   .....
'  .....A DataObject can contain one piece of text for the Clipboard text format, and one piece of text for each additional text format, such as custom and user-defined formats.  A DataObject is distinct from the Clipboard. A DataObject supports commands that involve the Clipboard and drag-and-drop actions for text. When you start an operation involving the Clipboard (such as GetText) or a drag-and-drop operation, the data involved in that operation is moved to a DataObject.   The DataObject works like the Clipboard. If you copy a text string to a DataObject, the DataObject stores the text string. If you copy a second string of the same format to the DataObject, the DataObject discards the first text string and stores a copy of the second string. It stores one piece of text of a specified format and keeps the text from the most recent operation.
objDataObject.SetText strtxtFile: objDataObject.PutInClipboard ' This often seems to result in putting infomation into the Windows Clipboard
Rem 4 Paste out to the worksheet
 WsFlNme.Paste Destination:=WsFlNme.Range("B1") ' If we paste the entire string in / at B1 , then the  vbCr & vbLf  in the string will be interpreted by Excel as the row seperator, so the entire string will be split over 3 lines
End Sub

[DocAElstein]

In support of theses Threads:
http://www.eileenslounge.com/viewtop...249846#p249846
http://www.excelfox.com/forum/showth...quot-KERNEL32)
http://www.excelfox.com/forum/showth...ll=1#post10923





The procedure entry point "EnumCalendarInfoExEx" was not found in the DLL "KERNEL32.dll"


I thought I had been sensible and chosen a safe option in XP of download but manually determine Install time
Updates Option Download but manually determine Install time.jpg : https://imgur.com/ocsOVbl , https://imgur.com/X0eB8AG
But somehow I got a full load of updates at some point recently on one of my XP machines, possibly at the point of turning the Laptop off.

I noted manually all the office updates and did various comparisons with my list of "Good" and "Bad" updates, but that only revealed as possible bads , the Active X control Killer , KB3054873. Sure enough my control buttons were dead, but after removing KB3054873. They immediately started working again.

None of the XP killing known bads were found, but some I have not previously seen were found.
Update für Microsoft Outlook 2010 (KB4475604) 32-Bit-Edition Letzte Änderung: 08.10.2019
Sicherheitsupdate für Microsoft Excel 2010 (KB4484130) 32-Bit-Edition Letzte Änderung: 03.10.2019
Sicherheitsupdate für Microsoft Office 2010 (KB4475569) 32-Bit-Edition Letzte Änderung: 03.10.2019
Sicherheitsupdate für Microsoft Office 2010 (KB4475599) 32-Bit-Edition Letzte Änderung: 05.09.2019
Sicherheitsupdate für Microsoft Office 2010 (KB4464566) 32-Bit-Edition Letzte Änderung: 05.09.2019
Sicherheitsupdate für Microsoft Word 2010 (KB4475533) 32-Bit-Edition Letzte Änderung: 08.08.2019
Update für Microsoft Filter Pack 2.0 (KB3114879) 32-Bit-Edition Letzte Änderung: 09.07.2019

 https://www.catalog.update.microsoft...px?q=KB4475604
Updatedetails
Update für Microsoft Outlook 2010 (KB4475604) 32-Bit-Edition
Letzte Änderung: 08.10.2019
Größe: 79,8 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Outlook 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Outlook 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 4475604
Weitere Informationen:
https://support.microsoft.com/kb/4475604
Support-URL:
https://support.microsoft.com/?LN=de-de

https://www.catalog.update.microsoft...px?q=KB3114879
Updatedetails
Update für Microsoft Filter Pack 2.0 (KB3114879) 32-Bit-Edition
Letzte Änderung: 09.07.2019
Größe: 4,4 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Filter Pack 2.0 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Filter Pack 2.0 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 3114879
Weitere Informationen:
https://support.microsoft.com/kb/3114879
Support-URL:
https://support.microsoft.com/?LN=de-de




https://www.catalog.update.microsoft...px?q=KB4475604
Updatedetails
Update für Microsoft Outlook 2010 (KB4475604) 32-Bit-Edition
Letzte Änderung: 08.10.2019
Größe: 79,8 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Outlook 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Outlook 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 4475604
Weitere Informationen:
https://support.microsoft.com/kb/4475604
Support-URL:
https://support.microsoft.com/?LN=de-de





https://www.catalog.update.microsoft...px?q=KB4464566
Updatedetails
Sicherheitsupdate für Microsoft Office 2010 (KB4464566) 32-Bit-Edition
Letzte Änderung: 05.09.2019
Größe: 8,2 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4464566
Weitere Informationen:
https://support.microsoft.com/kb/4464566
Support-URL:
https://support.microsoft.com/?LN=de-de




https://www.catalog.update.microsoft...px?q=KB4475533
Updatedetails
Sicherheitsupdate für Microsoft Word 2010 (KB4475533) 32-Bit-Edition
Letzte Änderung: 08.08.2019
Größe: 13,3 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Word 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Critical
KB-Artikelnummern: 4475533
Weitere Informationen:
https://support.microsoft.com/kb/4475533
Support-URL:
https://support.microsoft.com/?LN=de-de



https://www.catalog.update.microsoft...px?q=KB4484130
Updatedetails
Sicherheitsupdate für Microsoft Excel 2010 (KB4484130) 32-Bit-Edition
Letzte Änderung: 03.10.2019
Größe: 19,8 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Excel 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4484130
Weitere Informationen:
https://support.microsoft.com/kb/4484130
Support-URL:
https://support.microsoft.com/?LN=de-de





https://www.catalog.update.microsoft...px?q=KB4475599
Updatedetails
Sicherheitsupdate für Microsoft Office 2010 (KB4475599) 32-Bit-Edition
Letzte Änderung: 05.09.2019
Größe: 2,9 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4475599
Weitere Informationen:
https://support.microsoft.com/kb/4475599
Support-URL:
https://support.microsoft.com/?LN=de-de





https://www.catalog.update.microsoft...px?q=KB4475569
Updatedetails
Sicherheitsupdate für Microsoft Office 2010 (KB4475569) 32-Bit-Edition
Letzte Änderung: 03.10.2019
Größe: 1,7 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4475569
Weitere Informationen:
https://support.microsoft.com/kb/4475569
Support-URL:
https://support.microsoft.com/?LN=de-de

Unfortunately removing all those did not cure the XP problem, even after a computer restart.

I tried a simple coding to compare a previous updates list from January 2019 to that for now, at December, 2019

Option Explicit
Sub compareJan2019ToDec2019() '  Laptop Froggy december 2019 .... The procedure entry point "EnumCalendarInfoExEx" was not found in the DLL "KERNEL32.dll"    The procedure entry point "EnumCalendarInfoExEx" was not found in the DLL "KERNEL32.dll"
'  Updates from last January
 Dim rngSrch As Range: Set rngSrch = Worksheets("Frogy29thjan2019").Range("A1:A" & Worksheets("Frogy29thjan2019").UsedRange.Rows.Count & "")
'  Update list for December after killing downloads came probably after turning off computer
 Dim rngDecUpdts As Range: Set rngDecUpdts = Worksheets("Froggy30thDec2019").Range("A1:A" & Worksheets("Froggy30thDec2019").Range("A" & Rows.Count & "").End(xlUp).Row & "")
'
Dim rng As Range
    For Each rng In rngDecUpdts
    Dim varMtch As Variant
     Let varMtch = Application.Match(rng, rngSrch, 0)
        If IsError(varMtch) Then
        MsgBox prompt:=rng.Value
        Dim strMsg As String
         Let strMsg = strMsg & rng.Value & vbCr & vbLf
        Else
        End If
    Next rng
 MsgBox prompt:=strMsg: Debug.Print strMsg ' Fron VB Editor , Hit  Ctrl+g   , then you can copy the list from the Immediate window which should come up after hitting  Ctrl+g
End Sub

This was the result for new updates:
KB3114879
KB4475604
KB2589318
KB4462172
KB4464566
KB4475533
KB3115314
KB4484130
KB4475599
KB4475569
KB4018363
KB3114559
KB4461626



……………….Continued in next post………………………..



Ref
https://www.catalog.update.microsoft.com/Home.aspx

[DocAElstein]

………………….from last post……………..


So looking further at these "new" updates:
KB3114879
KB4475604
KB2589318
KB4462172
KB4464566
KB4475533
KB3115314
KB4484130
KB4475599
KB4475569
KB4018363
KB3114559
KB4461626

 https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462172
Update für Microsoft Office 2010 (KB4462172) 32-Bit-Edition
Letzte Änderung: 13.02.2019
Größe: 7,1 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Office 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Office 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 4462172
Weitere Informationen:
https://support.microsoft.com/kb/4462172
Support-URL:
https://support.microsoft.com/?LN=de-de
 


https://www.catalog.update.microsoft.com/Search.aspx?q=KB4461626
Update für Microsoft Office 2010 (KB4461626) 32-Bit-Edition
Letzte Änderung: 12.03.2019
Größe: 2,6 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Office 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Office 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 4461626
Weitere Informationen:
https://support.microsoft.com/kb/4461626
Support-URL:
https://support.microsoft.com/?LN=de-de
 

https://www.catalog.update.microsoft.com/Search.aspx?q=KB4018363
Update für Microsoft Access 2010 (KB4018363) 32-Bit-Edition
Letzte Änderung: 12.03.2019
Größe: 7,3 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Access 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Access 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 4018363
Weitere Informationen:
https://support.microsoft.com/kb/4018363
Support-URL:
https://support.microsoft.com/?LN=de-de





https://www.catalog.update.microsoft.com/Search.aspx?q=KB2589318
Update für Microsoft Office 2010 (KB2589318) 32-Bit-Edition
Letzte Änderung: 10.08.2015
Größe: 747 KB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Office 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Office 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 2589318
Weitere Informationen:
http://support.microsoft.com/kb/2589318
Support-URL:
http://support.microsoft.com/?LN=de-de
 



https://www.catalog.update.microsoft.com/Search.aspx?q=KB3115314
Update für Microsoft Visio 2010 (KB3115314) 32-Bit-Edition
Letzte Änderung: 13.02.2019
Größe: 19,8 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Visio 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Visio 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 3115314
Weitere Informationen:
https://support.microsoft.com/kb/3115314
Support-URL:
https://support.microsoft.com/?LN=de-de



https://www.catalog.update.microsoft.com/Search.aspx?q=KB3114559
Update für Microsoft Outlook 2010 (KB3114559) 32-Bit-Edition
Letzte Änderung: 09.04.2019
Größe: 355 KB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Outlook 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Outlook 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 3114559
Weitere Informationen:
https://support.microsoft.com/kb/3114559
Support-URL:
https://support.microsoft.com/?LN=de-de

So we have 6 "new" updates. But these appear on safe list

[DocAElstein]

Strangely ….
KB4461526 has appeared. So I De installed it
KB4461576 has appeared. So I De installed it
KB4461625 came back . So I De installed it again
KB4461625 came back once again . So I De installed it again
KB4464524 has appeared. So I De installed it.
KB4462230 has appeared. So I De installed it
KB4462223 has appeared. So I De installed it


After de installing KB4462223, Office started working

https://www.catalog.update.microsoft.com/Search.aspx?q=KB4461526
Sicherheitsupdate für Microsoft Word 2010 (KB4461526) 32-Bit-Edition
Letzte Änderung: 08.11.2018
Größe: 12,9 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Word 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4461526
Weitere Informationen:
https://support.microsoft.com/kb/4461526
Support-URL:
https://support.microsoft.com/?LN=de-de



https://www.catalog.update.microsoft.com/Search.aspx?q=KB4461576
Sicherheitsupdate für Microsoft Outlook 2010 (KB4461576) 32-Bit-Edition
Letzte Änderung: 07.12.2018
Größe: 79,8 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Outlook 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4461576
Weitere Informationen:
https://support.microsoft.com/kb/4461576
Support-URL:
https://support.microsoft.com/?LN=de-de





https://www.catalog.update.microsoft.com/Search.aspx?q=%20KB4464524%20
Update für Microsoft Outlook 2010 (KB4464524) 32-Bit-Edition
Letzte Änderung: 15.05.2019
Größe: 79,8 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Outlook 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Outlook 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 4464524
Weitere Informationen:
https://support.microsoft.com/kb/4464524
Support-URL:
https://support.microsoft.com/?LN=de-de




https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462230
Sicherheitsupdate für Microsoft Excel 2010 (KB4462230) 32-Bit-Edition
Letzte Änderung: 04.04.2019
Größe: 19,8 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Excel 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4462230
Weitere Informationen:
https://support.microsoft.com/kb/4462230
Support-URL:
https://support.microsoft.com/?LN=de-de







https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462223
Sicherheitsupdate für Microsoft Office 2010 (KB4462223) 32-Bit-Edition
Letzte Änderung: 04.04.2019
Größe: 8,0 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4462223
Weitere Informationen:
https://support.microsoft.com/kb/4462223
Support-URL:
https://support.microsoft.com/?LN=de-de

At this point, I decide to go backwards, reinstalling those de installed updates in order to pin down the latest “bad” or “bads”


This is the list I have to try out on a re install
I will do it in backward order


KB3114879
KB4475604
KB2589318
KB4462172
KB4464566
KB4475533
KB3115314
KB4484130
KB4475599
KB4475569
KB4018363
KB3114559
KB4461626
KB4462187
KB4461579
KB4462177
KB4464567
KB4461521
KB4461526
KB4461576
KB4461625
KB4464524.
KB4462230
KB4462223

[DocAElstein]

Re installing in XP
Using Microsoft Update Catalog : https://www.catalog.update.microsoft...px?q=KB4462223
To install, type in the required update in the search box top right. Remember to include KB at the front Download KB from MicrosoftUpdateCatalog.JPG : https://imgur.com/AfSAtlC
Another window appears and you have one or more files to click on to download, https://imgur.com/bIWg243
After downloading you may need to save and / or open / unzip one or more files or do a double click on files to set off the installation or installations. The exact process to get the installation to start will vary depending on your exact system and settings


KB4462223 This breaks Office 2010 after re install , and note also that KB4461626 and KB4461623 and KB4461577 and KB4227170 appeared fir the first time ever!!!
So I de installed KB4462223 again.
All was then OK.

KB4462230
All is still OK after re instal.

KB4464524 ( 14.05.2019 )
This is a large amount of files to download, I have not got around to installing all of them yet.

KB4461625 ( 03.01.2019 )
This is a large amount of files to download, I have not got around to installing all of them yet

KB4461576 ( 06.12.2018 )
This is a large amount of files to download, I have not got around to installing all of them yet

KB4461526
All is still OK after re install

KB4461521
All is still OK after re install

KB4464567
All is still OK after re install

KB4462177
All is still OK after re install

KB4461579
All is still OK after re install

KB4462187
All is still OK after re install

KB4461626
All is still OK after re install

KB3114559
All is still OK after re install

KB4018363
All is still OK after re install

KB4475569
All is still OK after re install

KB4475599
All is still OK after re install

KB4484130
All is still OK after re install

KB3115314
All is still OK after re install

KB4475533
All is still OK after re install

KB4464566
This causes the XP problem
After de installing it the problem goes away.

KB4462172
All is still OK after re install

KB2589318
All is still OK after re install

KB4475604 ( 08.10.2019 )
This is a large amount of files to download, I have not got around to installing all of them yet

KB3114879
All is still OK after re install

So it appears that the two new "bads" are
KB4464566
KB4462223
And here were the previously known
KB4461522 ( no longer available )
KB4461614 ( available , but not been offered for some time )
KB4462157 ( available , but not been offered for some time. ( Originally this was introduced to solve the problem. It never did. Quite the opposite: If you have the problem, then installing this update has no effect; but if you do not have the problem , and you instal this update, it causes the problem, just as all the other "killers do !!. ) )
KB4462174 ( available, and until recently, was still offered )
KB4462223 : The latest, available, and being currently offered
http://www.eileenslounge.com/viewtop...249846#p249846
We see infact that the „hidden" KB4462223 is in fact, an already known „bad"

https://www.catalog.update.microsoft.com/Search.aspx?q=KB4464566
Sicherheitsupdate für Microsoft Office 2010 (KB4464566) 32-Bit-Edition
Letzte Änderung: 05.09.2019
Größe: 8,2 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4464566
Weitere Informationen:
https://support.microsoft.com/kb/4464566
Support-URL:
https://support.microsoft.com/?LN=de-de



https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462223
Sicherheitsupdate für Microsoft Office 2010 (KB4462223) 32-Bit-Edition
Letzte Änderung: 04.04.2019
Größe: 8,0 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4462223
Weitere Informationen:
https://support.microsoft.com/kb/4462223
Support-URL:
https://support.microsoft.com/?LN=de-de



KB4461522    No longer available


https://www.catalog.update.microsoft.com/Search.aspx?q=KB4461614
Sicherheitsupdate für Microsoft Office 2010 (KB4461614) 32-Bit-Edition
Letzte Änderung: 12.02.2019
Größe: 8,2 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4461614
Weitere Informationen:
https://support.microsoft.com/kb/4461614
Support-URL:
https://support.microsoft.com/?LN=de-de
 



https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462157
Update für Microsoft Office 2010 (KB4462157) 32-Bit-Edition
Letzte Änderung: 22.01.2019
Größe: 8,2 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Office 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Office 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 4462157
Weitere Informationen:
https://support.microsoft.com/kb/4462157
Support-URL:
https://support.microsoft.com/?LN=de-de





https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462174
Sicherheitsupdate für Microsoft Office 2010 (KB4462174) 32-Bit-Edition
Letzte Änderung: 07.02.2019
Größe: 8,0 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4462174
Weitere Informationen:
https://support.microsoft.com/kb/4462174
Support-URL:
https://support.microsoft.com/?LN=de-de




https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462223
Updatedetails
Sicherheitsupdate für Microsoft Office 2010 (KB4462223) 32-Bit-Edition
Letzte Änderung: 04.04.2019
Größe: 8,0 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4462223
Weitere Informationen:
https://support.microsoft.com/kb/4462223
Support-URL:
https://support.microsoft.com/?LN=de-de
 Schließen

[DocAElstein]

Test draft copy of forum answers associated with lates XP updates issues

http://www.eileenslounge.com/viewtop...249846#p249846
https://social.technet.microsoft.com...eitproprevious
https://tinyurl.com/t73r3pg
https://social.technet.microsoft.com...?forum=outlook
( ( Locked Threads:
https://answers.microsoft.com/en-us/...lc=1031&page=6
https://answers.microsoft.com/en-us/...fb63739&page=4
https://answers.microsoft.com/en-us/...16500c3?page=1
https://answers.microsoft.com/en-us/...2-7df17e82fb3d )
)

I just finished unwrapping my Xmas present from Microsoft. It took me a couple of days. Despite having automatic updates disabled, occasionally a massive amount of updates still come down unexpectedly. It does not happen very often. I think theoretically it should never happen. But it does.

So one of my XP machines got the present.
I do have an extensive library of known "good and bad" Updates, and coding to sort through and compare them etc.. That usually helps identify the culprits. This time it only saw the old favourites that Microsoft like to send to cripple Active X controls, but never the less my XP was crippled by the issues discussed in this Thread.

I did identify some new updates that I had not seen before, but de installing them did not solve the problem , at least initially. After a lot of painstaking manual de installing and re installing updates I sorted the problem out…

It was very strange this time. By removing recent updates, I noticed that other updates suddenly appeared in the update this. They were not visible before. After removing some of those , the XP problem was solved. Furthermore I could re install most of the updated which I had originbally removed and still the XP problem does not return

Just to explain that again: In order to find the killer updates, you first have to de install some non offending updates. Only then do the killer updates show so that you can de install them. (A few other harmless updates may also suddenly appear). Then you can put the others back, if you like.

So finally below is the current list, with the recent ones at the bottom

If you don't find those,
or
you find some, de install them,
and still have the problem,
then try de installing a few other recent updates and then look at your update list again . If you then see any of the bad updates , then de install them. If that cures the problem then you may be able to re install some of the others you de installed without getting the problem.

In actual fact in my recent case, following the procedure that I have described, I now have all the updates that were showing after the unwanted Xmas present, and a few more, but I no longer have the problem, because I have de installed some of the bad updates, which were initially not showing after the unwanted present. Crazy situation!

Current Killer List
KB4461522 ( no longer available )
KB4461614 ( available , but not been offered for some time )
KB4462157 ( available , but not been offered for some time. ( Originally this was introduced to solve the problem. It never did. Quite the opposite: If you have the problem, then installing this update has no effect; but if you do not have the problem , and you instal this update, it causes the problem, just as all the other "killers do !!. ) )
KB4462174 ( available, and until recently, was still offered )
KB4462223
KB4464566 Probably the most recent killer
The last two may be hidden , and you may need to go through the steps I described to find them. Unfortunately I still have not figured out how to automate messing around with Office updates in XP ( I can do it with most everything else ). So you will need a few days to unwrap your present if you get one…




(P.s. Microsoft have locked some Threads on this, making it difficult to update people on the problem. But a few new Threads have also been started)

Ref:
https://social.technet.microsoft.com...eitproprevious
https://tinyurl.com/t73r3pg
https://social.technet.microsoft.com...?forum=outlook
Locked Threads:
https://answers.microsoft.com/en-us/...lc=1031&page=6
https://answers.microsoft.com/en-us/...fb63739&page=4
https://answers.microsoft.com/en-us/...16500c3?page=1
https://answers.microsoft.com/en-us/...2-7df17e82fb3d

[DocAElstein]

In support of these Thread posts

http://www.excelfox.com/forum/showth...ll=1#post11015
http://www.eileenslounge.com/viewtop...262344#p262344

Sub TestWtchaGot_Unic_NotMuchIfYaChoppedItOff()
 Call WtchaGot_Unic_NotMuchIfYaChoppedItOff("Laptop" & ChrW(8207) & ChrW(5))
End Sub
Sub WtchaGot_Unic_NotMuchIfYaChoppedItOff(ByVal strIn As String) '
Rem 1  ' Output "sheet hardcopies"
'1a) Worksheets     'Make a Temporary Sheet, if not already there, in Current Active Workbook, for a simple list of all characters
    If Not Evaluate("=ISREF(" & "'" & "WotchaGotInString" & "'!Z78)") Then '   ( the '  are not important here, but iin general allow for a space in the worksheet name like  "Wotcha Got In String"
    Dim Wb As Workbook '                                   ' ' Dim:  ' Preparing a "Pointer" to an Initial "Blue Print" in Memory of the Object ( Pigeon Hole with a bit of paper or code lines on that can be filled in to refer to a specific Objec of this type ) . This also us to get easily at the Methods and Properties throught the applying of a period ( .Dot) ( intellisense )                     '
     Set Wb = ActiveWorkbook '  '                            Set now (to Active Workbook - one being "looked at"), so that we carefull allways referrence this so as not to go astray through Excel Guessing inplicitly not the one we want...         Set: Values are filled at the memory locations and the directions there are specified in the variable "Blue Print "Pointer". In this case a Filled in Blue Print is passed.      http://www.excelforum.com/excel-programming-vba-macros/1138804-help-understanding-class-instancing-cant-set-ws-new-worksheet-intellisense-offers-it-4.html#post4387191                                '
     Wb.Worksheets.Add After:=Wb.Worksheets.Item(Worksheets.Count) 'A sheeet is added and will be Active
    Dim Ws As Worksheet '
     Set Ws = ActiveSheet 'Rather than rely on always going to the active sheet, we referr to it Explicitly so that we carefull allways referrence this so as not to go astray through Excel Guessing implicitly not the one we want...    Set: Values are filled at the memory locations and the directions there are specified in the variable "Blue Print "Pointer". In this case a Filled in Blue Print is passed.      http://www.excelforum.com/excel-programming-vba-macros/1138804-help-understanding-class-instancing-cant-set-ws-new-worksheet-intellisense-offers-it-4.html#post4387191            ' Values are filled at the memory locations and the directions there are specified in the variable "Blue Print "Pointer". In this case a Filled in Blue Print is passed.      http://www.excelforum.com/excel-programming-vba-macros/1138804-help-understanding-class-instancing-cant-set-ws-new-worksheet-intellisense-offers-it-4.html#post4387191
     Ws.Activate: Ws.Cells(1, 1).Activate ' ws.Activate and activating a cell sometimes seemed to overcome a strange error
     Let Ws.Name = "WotchaGotInString"
    Else ' The worksheet is already there , so I just need to set my variable to point to it
     Set Ws = ThisWorkbook.Worksheets("WotchaGotInString")
    End If
'1b) Array
Dim myLenf As Long: Let myLenf = Len(strIn)  '            ' Long is very simple to handle, - final memory "size" type is known (123.456 and 000.001 have same "size" computer memory ) , and so a Address suggestion can be given for the next line when the variable is filled in.  '( Long is a Big whole Number limit (-2,147,483,648 to 2,147,483,647) If you need some sort of validation the value should only be within the range of a Byte/Integer otherwise there's no point using anything but Long.--upon/after 32-bit, Integers (Short) need converted internally anyways, so a Long is actually faster. )       https://www.mrexcel.com/forum/excel-questions/803662-byte-backward-loop-4.html
Dim arrWotchaGot() As String: ReDim arrWotchaGot(1 To myLenf + 1, 1 To 2) ' +1 for header  Array for the output 2 column list.  The type is known and the size,  but I must use this ReDim  method simply because the dim statement  Dim( , )  is complie time thing and will only take actual numbers
 Let arrWotchaGot(1, 1) = Format(Now, "DD MMM YYYY") & vbLf & "Lenf is   " & myLenf: Let arrWotchaGot(1, 2) = Left(strIn, 40)
Rem 2  String anylaysis
'Dim myLenf As Long: Let myLenf = Len(strIn)
Dim Cnt As Long
    For Cnt = 1 To myLenf ' ===Main Loop========================================================================
    ' Character analysis: Get at each character
    Dim Caracter As Variant ' String is probably OK.
    Let Caracter = Mid(strIn, Cnt, 1) ' '    the character in strIn at position from the left of length 1
    '2a) The character added to a single  WotchaGot  long character string to look at and possibly use in coding
    Dim WotchaGot As String ' This will be used to make a string that I can easilly see and also is in a form that I can copy and paste in a code line  required to build the full string of the complete character string
        '2a)(i) Most common characters and numbers to be displayed as "seen normally" ' -------2a)(i)--
        If Caracter Like "[A-Z]" Or Caracter Like "[0-9]" Or Caracter Like "[a-z]" Then ' Check for normal characters
            'SirNirios
            If Not Cnt = 1 Then ' I am only intersted in next line comparing the character before, and if i did not do this the next line would error if first character was a  "normal"  character
                If Not Cnt = myLenf And (Mid(strIn, Cnt - 1, 1) Like "[A-Z]" Or Mid(strIn, Cnt - 1, 1) Like "[0-9]" Or Mid(strIn, Cnt - 1, 1) Like "[a-z]") Then  ' And (Mid(strIn, Cnt + 1, 1) Like "[A-Z]" Or Mid(strIn, Cnt + 1, 1) Like "[0-9]" Or Mid(strIn, Cnt + 1, 1) Like "[a-z]") Then
                 Let WotchaGot = WotchaGot & "|LinkTwoNormals|"
                Else
                End If
            Else
            End If
        Let WotchaGot = WotchaGot & """" & Caracter & """" & " & " ' This will give the sort of output that I need to write in a code line, so for example if I have a123 , this code line will be used 4 times and give like a final string for me to copy of   "a" & "1" & "2" & "3" &      I would phsically need to write in code  like  strVar = "a" & "1" & "2" & "3"   -  i could of course also write  = "a123"   but the point of this routine is to help me pick out each individual element
        Else ' Some other things that I would like to "see" normally - not "normal simple character" - or by a VBA constant, like vbCr vbLf  vbTab
         Select Case Caracter ' 2a)(ii)_1
          Case " "
           Let WotchaGot = WotchaGot & """" & " " & """" & " & "
          Case "!"
           Let WotchaGot = WotchaGot & """" & "!" & """" & " & "
          Case "$"
           Let WotchaGot = WotchaGot & """" & "$" & """" & " & "
          Case "%"
           Let WotchaGot = WotchaGot & """" & "%" & """" & " & "
          Case "~"
           Let WotchaGot = WotchaGot & """" & "~" & """" & " & "
          Case "&"
           Let WotchaGot = WotchaGot & """" & "&" & """" & " & "
          Case "("
           Let WotchaGot = WotchaGot & """" & "(" & """" & " & "
          Case ")"
           Let WotchaGot = WotchaGot & """" & ")" & """" & " & "
          Case "/"
           Let WotchaGot = WotchaGot & """" & "/" & """" & " & "
          Case "\"
           Let WotchaGot = WotchaGot & """" & "\" & """" & " & "
          Case "="
           Let WotchaGot = WotchaGot & """" & "=" & """" & " & "
          Case "?"
           Let WotchaGot = WotchaGot & """" & "?" & """" & " & "
          Case "'"
           Let WotchaGot = WotchaGot & """" & "'" & """" & " & "
          Case "+"
           Let WotchaGot = WotchaGot & """" & "+" & """" & " & "
          Case "-"
           Let WotchaGot = WotchaGot & """" & "-" & """" & " & "
          Case "_"
           Let WotchaGot = WotchaGot & """" & "_" & """" & " & "
          Case "."
           Let WotchaGot = WotchaGot & """" & "." & """" & " & "
'          Case " "
'           Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'           Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'           Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'           Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'           Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'           Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'           Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'           Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'           Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'           Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'           Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'           Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'           Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'           Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'           Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'                   ' 2a)(ii)_2
'          Case " "
'           Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'           Let WotchaGot = WotchaGot & """" & " " & """" & " & "
          Case vbCr
           Let WotchaGot = WotchaGot & "vbCr & "  ' I actuall would write manually in this case like     vbCr &
          Case vbLf
           Let WotchaGot = WotchaGot & "vbLf & "
          Case vbCrLf
           Let WotchaGot = WotchaGot & "vbCrLf & "
          Case vbNewLine
           Let WotchaGot = WotchaGot & "vbNewLine & "
          Case """"   ' This is how to get a single   "    No one is quite sure how this works.  My theory that,  is as good as any other,  is that  syntaxly   """"    or  "  """  or    """    "   are accepted.   But  in that the  """  bit is somewhat strange for VBA.   It seems to match  the first and Third " together as a  valid pair   but  the other  " in the middle of the  3 "s is also syntax OK, and does not error as    """     would  because  of the final 4th " which it syntaxly sees as a valid pair matched simultaneously as it does some similar check on the  first  and Third    as a concluding  string pair.  All is well except that  the second  "  is captured   within a   accepted  enclosing pair made up of the first and third  "   At the same time the 4th  "  is accepted as a final concluding   "   paired with the   second which it is  using but at the same time now isolated from.
           Let WotchaGot = WotchaGot & """" & """" & """" & """" & " & "                                ' The reason why  ""  ""   would not work is that    at the end of the  "" the next empty  character signalises the end of a  string pair, and only if  it saw a " would it keep checking the syntax rules which  then lead in the previous case to  the situation described above.
          Case vbTab
           Let WotchaGot = WotchaGot & "vbTab & "
          ' 2a)(iii)
            Case Else
                If AscW(Caracter) < 256 Then
                 Let WotchaGot = WotchaGot & "Chr(" & AscW(Caracter) & ")" & " & "
                Else
                 Let WotchaGot = WotchaGot & "ChrW(" & AscW(Caracter) & ")" & " & "
                End If
            'Let CaseElse = Caracter
        End Select
        End If ' End of the "normal simple character" or not ' -------2a)------Ended-----------
    '2b)  A 2 column Array for convenience of a list
     Let arrWotchaGot(Cnt + 1, 1) = Cnt & "           " & Caracter: Let arrWotchaGot(Cnt + 1, 2) = AscW(Caracter) ' +1 for header
    Next Cnt ' ========Main Loop=================================================================================
    '2c) Some tidying up
    If WotchaGot <> "" Then
     Let WotchaGot = Left(WotchaGot, Len(WotchaGot) - 3) ' take off last " & "    ( 2 spaces one either side of a  & )
     Let WotchaGot = Replace(WotchaGot, """ & |LinkTwoNormals|""", "", 1, -1, vbBinaryCompare)
     ' The next bit changes like this  "Lapto" & "p"  to  "Laptop"   You might want to leave it out ti speed things up a bit
        If Len(WotchaGot) > 5 And (Mid(WotchaGot, Len(WotchaGot) - 1, 1) Like "[A-Z]" Or Mid(WotchaGot, Len(WotchaGot) - 1, 1) Like "[0-9]" Or Mid(WotchaGot, Len(WotchaGot) - 1, 1) Like "[a-z]") And (Mid(WotchaGot, Len(WotchaGot) - 7, 1) Like "[A-Z]" Or Mid(WotchaGot, Len(WotchaGot) - 7, 1) Like "[0-9]" Or Mid(WotchaGot, Len(WotchaGot) - 7, 1) Like "[a-z]") And Mid(WotchaGot, Len(WotchaGot) - 6, 5) = """" & " & " & """" Then
         Let WotchaGot = Left$(WotchaGot, Len(WotchaGot) - 7) & Mid(WotchaGot, Len(WotchaGot) - 1, 2) '  Changes like this  "Lapto" & "p"  to  "Laptop"
        Else
        End If
    Else
    End If
Rem 3 Output
'3a) String
MsgBox prompt:=WotchaGot: Debug.Print WotchaGot ' Hit Ctrl+g from the VB Editor to get a copyable version of the entire string
'3b) List
Dim NxtClm As Long: Let NxtClm = 1 ' In conjunction with next  If  this prevents the first column beine taken as 0 for an empty worksheet
 If Not Ws.Range("A1").Value = "" Then Let NxtClm = Ws.Cells.Item(1, Columns.Count).End(xlToLeft).Column + 1
 Let Ws.Cells.Item(1, NxtClm).Resize(UBound(arrWotchaGot(), 1), UBound(arrWotchaGot(), 2)).Value = arrWotchaGot()
 Ws.Cells.Columns.AutoFit
End Sub
'