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"