Надстройка Excel Не работает должным образом

Question

Я пытаюсь создать надстройку excel, которая позволила бы мне добавить префикс для всех записей в столбце.

Я думаю, что я понял какой-то код для этого, но, к сожалению, я продолжаю получать сообщение об ошибке: «Макрос может быть недоступен в этой книге или все макросы могут быть отключены. Я пробовал все рекомендуемые отключения ..! параметры безопасности

Я надеюсь, чтобы иметь возможность просто выбрать текст, используйте надстройку, и имеет префикс, добавляемый к каждой колонке Приветствие и спасибо за глядя в это

Вот код:

Private Sub Workbook_AddinInstall() 



On Error Resume Next 'Just in case 

'Delete any existing menu item that may have been left. 

Application.CommandBars("Worksheet Menu Bar").Controls("Super Code").Delete 

'Add the new menu item and Set a CommandBarButton Variable to it 

Set cControl = Application.CommandBars("Worksheet Menu Bar").Controls.Add 

'Work with the Variable 

    With cControl 

     .Caption = "Super Code" 

     .Style = msoButtonCaption 

     .OnAction = "MyGreatMacro" 

     'Macro stored in a Standard Module 

    End With 



On Error GoTo 0 


End Sub 
Private Sub Workbook_AddinUninstall() 



On Error Resume Next 'In case it has already gone. 

Application.CommandBars("Worksheet Menu Bar").Controls("Super Code").Delete 

On Error GoTo 0 

End Sub 

Private Sub AddTextOnLeft() 
'Updateby20131128 
Dim Rng As Range 
Dim WorkRng As Range 
Dim addStr As String 
On Error Resume Next 
xTitleId = "KutoolsforExcel" 
Set WorkRng = Application.Selection 
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) 
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2) 
For Each Rng In WorkRng 
Rng.Value = addStr & Rng.Value 
Next 
End Sub 

Answer 1

для OnActi на вас назначили 'MyGreatMacro' вместо 'AddTextOnLeft'

должно быть

.OnAction = "AddTextOnLeft" 

и не

.OnAction = "MyGreatMacro"