我在一个Excel里运行了宏，怎么设置才能在下次打开这个文件的时候让这个宏自动运_微软专区_英汉互译
我在一个Excel里运行了宏，怎么设置才能在下次打开这个文件的时候让这个宏自动运
来源：|人气：912 ℃|类别：|时间： 11:10:39
问题：我在一个Excel里运行了宏，怎么设置才能在下次打开这个文件的时候让这个宏自动运行？但是在打开其他Excel文件的时候不运行这个宏。
打开VBA里面，不是有个 THISWORKBOOK 吗，点击，在代码上方左下拉菜单里选择 WORKBOOK,右边菜单里选择 OPEN，然后把你的代码写进去，就会打开这个表格自动运行，意思就是 工作表打开就会自动运行，如果在单元格里显示动态的当前日期，NOW不是可以吗，具体不知道你干什么，猜的 氵工雷修改在菜单---宏--设置项下的安全项先说体会：1.针对所有文件的操作，属于应用程序级别，确实要用到类模块；2.excel自带的VBA帮助虽然简单，其实指明了用处，值得多看；再说背景：本人写此代码的用途在于，公司每天都会收到大量的信件、包裹，负责人便将收件人的名单做成excel表格，通过email发给所有人。我每天都要双击打开附件，仔细查看里面有没有我的名字，没有就关闭文件。整个过程及其枯燥无味，还要不断重复，而且会漏看。下面的代码就简化了这些操作，个人感觉实用性比较强，在此贴出来供各位朋友参考，可以改编成做其他用途。下面是步骤：1.插入类模块，命名为clsApp；并在下面编写代码：Public WithEvents App As ApplicationPrivate Sub app_workbookOpen(ByVal Wb As Excel.Workbook)'定义App为应用程序对象后，监视工作表的打开事件Call CheckLetter(Wb)End Sub2.插入模块，命名为MyModule，编写checkletter过程：Public Sub CheckLetter(Wb As Workbook)'判断打开的文件是否为已知'由于每天发出来的信件都是这样的格式：X月X日信件.xls，就将文件名最后二字是否为“信件”作为判断标准Dim sWbName As String, sName As StringsName = &凡子&sWbName = Wb.NameIf Right(Left(sWbName, Len(sWbName) - 4), 2) &&&信件& Then EndDim iShtNo As Integer, I As IntegerDim c As Variant, sMyNameAddress As StringiShtNo = Wb.Sheets.CountFor I = 1 To iShtNo&&& With Wb.Worksheets(I)&&&&&&& Set c = .Cells.Find(sName, LookIn:=xlValues)&&&&&&&'如果找到就保存单元格地址&&&&&&& If Not c Is Nothing Then sMyNameAddress = sMyNameAddress & vbCr & .Name &&:&& c.Address(RowAbsolute:=False, ColumnAbsolute:=False)&&& End WithNext I'显示结果，并提示是否关闭文件Dim sMsg As StringIf sMyNameAddress &&&& Then&&& sMsg = &找到结果,位置:&& sMyNameAddress&&& MsgBox sMsg, vbDefaultButton1, &查找人名&Else&&& iAnswer = MsgBox(&找不到设定人名:&& sName & vbCr &&关闭文件吗?&, vbYesNo, &查找人名&)&&& If iAnswer = 6 Then ActiveWorkbook.CloseEnd IfEnd Sub3.在当前文件的thisworkbook对象中插入关联代码：Dim X As New clsAppPrivate Sub Workbook_Open()&&& Set X.App = ApplicationEnd Sub4.保存文件为到documents ans settings\...\xlstart目录下；至此，代码编写结束。详细代码可见附件。以上代码在excel下运行通过。欢迎大家提出宝贵意见，谢谢！我编了一个代码，目的是保存为一个加载宏，让它随Excel的打开自动运行，运行的结果是自动添加一个工具栏和和一个按钮，点击这个按钮，弹出对话框：“SalesDB Loaded !!!”。问题：1、我应该把代码保存在加载宏.xla的哪里？是thisworkbook还是新建一个模块？2、我把加载宏.xla保存在那里？是：C:\Documents and Settings\用户名\Application Data\Microsoft\Excel\XLSTART文件夹。我不管保存在那里，都不会自动运行，只能手动运行，而且点击出来的工具栏按钮后，告诉我“找不到Sales_DB”，也不能显示“SalesDB Loaded !!!”的对话框！为什么？QUOTE:'================判断是否存在MyToolbar工具栏的函数=================Function CommandBarExists(n) As BooleanDim TBar As CommandBarDim TBars As CommandBarsSet TBars = mandBars&&& For Each TBar In TBars&&&&&&& If UCase(TBar.Name) = UCase(n) Then&&&&&&&&&&& CommandBarExists = True&&&&&&&&&&& Exit Function&&&&&&& End If&&& Next TBar&&&&&&& CommandBarExists = FalseEnd Function'===============创建工具栏和按钮=======================Sub Auto_Open()ThisWorkbook.Activate&&& Dim NewBtn As CommandBarControl&&& Dim TBar As CommandBar&&&&&& If CommandBarExists(&MyToolbar&) = True Then&&& Exit Sub&&'如果存在MyToolbar，则不新建工具栏和按钮。&&&&&&& Else&&&'&& 创建工具栏和按钮&&& Set TBar = mandBars.Add&&& With TBar&&&&&&& .Name = &MyToolbar&&&&&&&& .Visible = True&&& End With&&&&&&& Set NewBtn = mandBars(&MyToolbar&).Controls.Add _&&&&& (Type:=msoControlButton)&&& With NewBtn&&&&&& .FaceId = 2105&&&&&& .OnAction = &Sales_DB&&&&&&& .Caption = &Creat& Sales Report&&&& End With&&& End If&&&End SubSub Sales_DB()MsgBox &SalesDB Loaded !!!&End Sub
excel2007 宏在 哪 里设置 ? 怎么 启动宏?下面小编教你###怎么在excel2007中 打开宏 用宏安全性设置来防止 宏的自动运行 excel2010 怎么设置 启用宏在宏的安全性等级 设置 成功后
||||点击排行EXCEL表格设置了宏之后，如何调整操作框人家发了一个EXCEL - 爱问知识人
(window.slotbydup=window.slotbydup || []).push({
id: '2491531',
container: s,
size: '150,90',
display: 'inlay-fix'
EXCEL表格设置了宏之后，如何调整操作框
L的表格给我，打开之后提示加载宏，并且选择宏---中，然后输入了密码之后，出现2张表格，一个是Microsoft Visual Basic的表，还有一张是EXCEL表格，但是表格里面的EXCEL操作表格窗口很小，如何调整至大窗口