ActiveWindow.FreezePanes

半榻茶烟

需求：把VBA代码整理成安装程序。内容：日常整理了一些宏代码，由于工作需要想分发给同事们使用，但烦于一个个的加载设置
问题：我尝试用VSTO,做一个插件，但不会转换回调代码。目前功能区做好了，也做成了一个安装程
          序，测试无误。
希望：老师能把我提供的代码转换成用VB表达的代码，我虽然有些笨，但应该能看懂老师写的回调代码，并且能学会，谢谢！
附件：1、ribbon1.xml:功能区的代码；
          2、ribbon1.vb   : 基本保持了系统自动生成的代码
          3、Thisaddin.vb:基本保持了系统自动生成的代码
          4、My_VBA       : 我需要转换的代码

4、My_VBA  ：
Sub row_1()
'
' 功能：将所有工作簿冻结窗口并筛选
'
' 快捷键: Ctrl+Shift+M
'
Application.ScreenUpdating = False
  'For n = 1 To Sheets.Count
   ' Sheets(n).Select
     ActiveSheet.AutoFilterMode = False
     ActiveWindow.FreezePanes = False
       Rows("3:3").Select
       ActiveWindow.FreezePanes = True
       Range("a2").Select
       Selection.AutoFilter
  'Next
Application.ScreenUpdating = True
End Sub

半榻茶烟

这是谁盗用我的账号发的帖？