如何一打开Excel就运行VBA？

这个其实可以用抄保护工作表的方式袭达到，不必用vba

用vba事件也能达到同样目百的，alt+F11调出VBE，双击需要设度置单元格的工作表，将如下代码复制粘问贴后运行（假设设置A1:A10单元格不能选择）答

Private Sub Worksheet_Activate()
With ActiveSheet
        .Unprotect
        .Cells.Locked = False
        .Range("a1:a10").Locked = True
        .EnableSelection = xlUnlockedCells
        .Protect
End With
End Sub

1、打开一个Excel文件，鼠标右击下面的工作表（如sheet1）。选择“查看代码”，就可以打开VBA编辑界面；

2、选择搜索框的下拉菜单，选择“worksheet”选项功zhidao能；

3、选择BeforeDoubleClick，也就是在本工作表鼠标双击（之前），将触发下面专的代码程序；

4、选择完成后，这样会看到下面出现了两条代码；这俩条代码其实是在声明一个函数；

5、将鼠标放置在这两行代码之间，这时写上执行语句：Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)；

6、然后点击保存，回到Excel的原始界面属。在cells（1,1）和cells（1,2）中输入两个数值；

7、在sheet1的工作表中，双击鼠标会发现，cells（1,3）的值变成了cells（1,1）和cells（1,2）的和。

1、首先将Excel文档（默认新建扩展名为xlsx），另存为启用宏的工作簿，扩zd展名为xlsm。内

2、按下组合键ALt+F11快速切换到VBA窗口。

3、进入VBA窗口后的界面，如图容所示。

4、双击ThisWorkbook后，会弹出一个代码窗口。

5、在代码窗口中复制粘贴以下代码：Private Sub Workbook_Open()，MsgBox ("欢迎您使用Excel2013")，End Sub。

6、保存，关闭，重新打开Excel（扩展名为xlsm）文档，效果如图所示。

1，打开excel2010
2，在工具栏空百白处，右击：自定义功能区---选择添加 开发工具 选项 -- 确定

3，点开 开发工具 菜单项，点击 宏安全

4，选中度 ActiveX 设置回， 选中右边的 无限制启用...... 选项答， 取消 选中 安全模式

5，选中 宏设置 菜单， 选中右边 启用所有宏 选项， 选中 开发人员宏设置 选项--确定