MS Office - ActiveX Button Toggle Buttons

There are several examples of this problem, but this prevails. This is due to updates (our most notable issue is KB2726958). We have an Output spreadsheet that looks like this:

Leave a list of spreadsheets

By clicking the Remaining Gray button, you are here:

Leave Word doc

All programming for them is written in VBA (I have never worked with VBA before, I can understand this to some extent).

Now the problem is that the ActiveX button in the Leave Spreadsheet example invokes the two Email and Save buttons to toggle functions; Email Attempts to Save and Save opens Outlook and creates an email message.
Both functions have fully retained functionality, only on the wrong buttons.

What I find strange is that a hyperlink to the same file works; the buttons do not switch and have full functionality. The only hint I have for a solution is that when using a hyperlink, it opens the file directly. Using the ActiveX button gives the impression that a new file is being created based on the file to which it is linked. For example, the hyperlink directly opens C: \ Report.dotm, but the ActiveX button opens Document1.doc with a template based on Report.dotm.
I believe maybe the activeX button is opening Word with the wrong extension? But I'm not sure how to figure it out (the code below shows that the associated file in the ActiveX control is .dotm).

What else adds a wrench to the mix is ​​that it only affects some computers ... Considering that on site we all use the same type of PC with the same image ... :(

My question is: Does anyone know why they might change? They are located on the same network drive, although different directories. They require the same access permissions. The code for the buttons looks like this: Excel button:

Private Sub CommandButton1_Click()
' This button links the excel spreadsheet to the word doc
    Dim wrdApp As Object
    Dim wrdDoc As Object
    Dim i As Integer

    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Add("\\networkdrive\directories\Request for Leave.dotm")
End Sub

      

Word buttons 1 and 2:

Private Sub cmdSend_Click()
' This is the code for the button 'Send by Email'
    MsgBox "Send the following email to your Team Leader/Line Manager", vbInformation
    SendDocumentAsAttachment "", "IPL Request for Leave"
End Sub

Private Sub cmdSave_Click()
' This is the code for 'Save'
    modSend.SaveLeaveForm
End Sub

      

Please note: The comments above are not in the VBA code, I wrote them in myself in this question to keep things clear.

The troubleshooting I did:
Delete all .exd files
Launch MS Hotfix (deletes all .exd files in the GUI)

The next step will be to try and run all 6 patches related to fixing ActiveX controls, with the specific fixes we made to check if that fixes the issue. The reason I haven't done this yet is because of ITIL (Change Management), although I may try this later later.

What is the result that I am after?
Ideally, I want to understand what causes these buttons, from how it looks, change their functions. I have different key exchange scenarios, some of which are fixed by deleting the .exd files and some are not.
By understanding what is going on, I hope that I can apply the knowledge to other scenarios (same problem, different coding).
Then I can document my findings so that when we do the next round of fixes known to break ActiveX controls, my organization knows how to deal with it.

+3


source to share


1 answer


So the fix mentioned below fixed this issue. There are still some issues I need to test this patch, but I definitely had to start there. Lesson learned.



From my working letter:
Ive just tried using the ActiveX control tearing patch KB2920754. I've used it on two computers here in the study room; both had different problems:
- the first one had buttons that toggled (save email trying, email tried to save)
- the second one couldn't use the buttons at all.
This patch has been repaired without rebooting or logging out. I also didn't delete any .exd files.
However, he states,
"Important. For this hotfix to be fully effective, you also need to apply the other Office 2013 hotfixes that are listed in the Resolution section of the following Microsoft Knowledge Base article."
Total 6. Patches:
1. KB2920754 - (the one I've used successfully)
2. KB2956145
3. KB2956163
4. KB2965206
5. KB2956176
6. KB2956155

+2


source







All Articles