Enable macro in Excel

[RobSA]

Hi Folks,

I have created macros, in an excel workbook, that when action-ed, give me the error, macros are not enabled or not available in this workbook.
I have gone through all the "trusted setting" and made the adjustment accordingly, however the problem remains.
I would appreciate your inputs that I can get past this impasse.

Regards
Rob

 

[RobSA]

Thanks Rory,

Sorry for all the issues, thanks for the revised code.

I have tried to make the change in my two macro's but with the change provided, I can see the module information however it does no longer show the macro, if i try run it

 

[RoryA]

If you need to be able to run it manually as well, then you should create a separate callback and have that call your existing macro. The onAction for your ribbon control should be the name of the callback, not the macro.

 

[RobSA]

Hi Rory,

I am not someone who knows much or anything about the call back /coding on actions details. I also do not know what you mean by manually.

What I am trying to do is basically ste up a ribbon which has icons on, that when selected will open a file, be it a word document, pdf or excel file itself.

I thinsk you for all your response and guidence thus far

 

[RobSA]

Hi Rory,


I have reverted back to the original macro, by changing the first line

 Sub Macro_1(ByVal control as IRibbonControl)

and removed the section between (), this now allows me to see the macros numbers, when in design mode.

The function though is still where it was.

 

[RobSA]

Hi Rory,
In follow up to our previous discussions, I have explored further and made some changes, as follows:

In the UI editor, I just wrote the on Action -"Macro_1"

<toggleButton id="Togglebutton287" imageMso="SaveAsRichText" label="QM 01   - Index" [B]onAction="Macro_1[/B]"/>

I also then selected the generate call back function in the UI editor, which then created a call back item looking like this:

'Callback for [B]Togglebutton287 onAction[/B]
Sub Macro_1(control As IRibbonControl, pressed As Boolean)
End Sub

I think this is the part of the exercise you were referring to in having a call back with the same name.

In terms of the Macro itself, it seems to function correctly except for the fact that the selected action does not bring the file to the front of the screen, but remains hidden behind.

Sub [B]Macro_1(control As IRibbonControl, pressed As Boolean)[/B]
Dim WordDoc As Object
Set WordDoc = CreateObject("Word.Application")
WordDoc.Documents.Open "C:\Users\User\Desktop\EPOCH_01_INDEX_2020.docx"
WordDoc.Visible = True
End Sub

It would be appreciated if you would comment on the changes made, for their improvement. As already mentioned I would like to get the operational side of things getting pdf's, other word documents and excel sheets to be opened in a similar fashion.

Thanks again for your previous support and inputs.