Worksheet_SelectionChange如果写好后给别人share

[低丶调]

下面是代码,是放到当前打开的excel的sheet1里面的,但是我想 让别人电脑上也能用这个脚本,该怎么弄呢?
尝试过保存宏,然后再新的xlsm文件(启用宏的工作表) 加载这个宏后,没有效果,代码好像也没进去,
以前没有怎么用过这些东西,研究了整整一天无果,来社区求助前辈,谢谢


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo ErrL
With Target
If Left(.Value, 8) = "https://" And Right(.Value, 3) = "jpg" Then '如果单元格内容为网址
'添加网络图片，并设置为图片大小位置随单元格变化而变化
ActiveSheet.Shapes.AddPicture(.Value, msoCTrue, msoCTrue, .Left, .Top, .Width, .Height).Placement = xlMoveAndSize
.WrapText = True '单元格设置为自动换行，以隐藏网址
End If
End With
Exit Sub

ErrL:
MsgBox ("下载图片出错")
End Sub

[低丶调]

引用 1 楼 jieru_liu 的回复:

把你这段代码放到你需要放的工作簿的Sheet1里面，然后把这个工作簿另存为xlsm格式

试过,没用

[jieru_liu]

怎么会没用，截图看看

[jieru_liu]

把你这段代码放到你需要放的工作簿的Sheet1里面，然后把这个工作簿另存为xlsm格式