xlamファイルを開いて、 VBEウィンドウでThisWorkbookモジュールのプロパティウィンドウから IsAddinプロパティをFalseにしてAddin設定を解除します。 その後xlsm形式で保存し直すと良いです。 コードで表現すると以下。 Sub Macro1() Dim x x = Application.GetOpenFilename("xlamFiles,*.xlam") If VarType(x) = vbBoolean Then Exit Sub On Error GoTo errHandler With Workbooks.Open(x) .IsAddin = False .SaveAs Filename:=Replace$(x, "xlam", "xlsm"), _ FileFormat:=xlOpenXMLWorkbookMacroEnabled .Close E