首页 excel表格删除宏

excel表格删除宏

举报
开通vip

excel表格删除宏excel表格删除宏 篇一:excel取消表格宏 如何取消excel密码 方法: 1\打开文件 2\工具---宏----录制新宏---输入名字如:aa 3\停止录制(这样得到一个空宏) 4\工具---宏----宏,选aa,点编辑按钮 5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧) 6\关闭编辑窗口 7\工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!! 内容如下: Public Sub AllInt...

excel表格删除宏
excel 表格 关于规范使用各类表格的通知入职表格免费下载关于主播时间做一个表格详细英语字母大小写表格下载简历表格模板下载 删除宏 篇一:excel取消 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 格宏 如何取消excel密码 方法: 1\打开文件 2\工具---宏----录制新宏---输入名字如:aa 3\停止录制(这样得到一个空宏) 4\工具---宏----宏,选aa,点编辑按钮 5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧) 6\关闭编辑窗口 7\工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!! 内容如下: Public Sub AllInternalPasswords() ' Breaks worksheet and workbook structure passwords. Bob McCormick ' probably originator of base code algorithm modified for coverage 1 ' of workbook structure / windows passwords and for multiple passwords ' ' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1) ' Modified 2003-Apr-04 by JEM: All msgs to constants, and ' eliminate one Exit Sub (Version 1.1.1) ' Reveals hashed passwords NOT original passwords Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ Adapted from Bob McCormick base code by & _ Norman Harker and JE McGimpsey Const HEADER As String = AllInternalPasswords User Message Const VERSION As String = DBLSPACE & Version 1.1.1 2003-Apr-04 Const REPBACK As String = DBLSPACE & Please report failure & _ to the microsoft.public.excel.programming newsgroup. Const ALLCLEAR As String = DBLSPACE & The 2 workbook should & _ now be free of all password protection, so make sure you: & _ DBLSPACE & SAVE IT NOW! & DBLSPACE & and also & _ DBLSPACE & BACKUP!, BACKUP!!, BACKUP!!! & _ DBLSPACE & Also, remember that the password was & _ put there for a reason. Don't stuff up crucial formulas & _ or data. & DBLSPACE & Access and use of some data & _ may be an offense. If in doubt, don't. Const MSGNOPWORDS1 As String = There were no passwords on & _ sheets, or workbook structure or windows. & AUTHORS & VERSION Const MSGNOPWORDS2 As String = There was no protection to & _ workbook structure or windows. & DBLSPACE & _ 3 Proceeding to unprotect sheets. & AUTHORS & VERSION Const MSGTAKETIME As String = After pressing OK button this & _ will take some time. & DBLSPACE & Amount of time & _ depends on how many different passwords, the & _ passwords, and your computer's specification. & DBLSPACE & _ Just be patient! Make me a coffee! & AUTHOR S & VERSION Const MSGPWORDFOUND1 As String = You had a Worksheet & _ Structure or Windows Password set. & DBLSPACE & _ The password found was: & DBLSPACE & $$ & DBLSPACE & _ Note it down for potential future use in other workbooks by & _ the same person who set this password. & DBLSPACE & _ Now to check and clear other passwords. & AUTHORS & VERSION Const MSGPWORDFOUND2 As String = You had a Worksheet 4 & _ password set. & DBLSPACE & The password found was: & _ DBLSPACE & $$ & DBLSPACE & Note it down for potential & _ future use in other workbooks by same person who & _ set this password. & DBLSPACE & Now to check and clear & _ other passwords. & AUTHORS & VERSION Const MSGONLYONE As String = Only structure / windows & _ protected with the password that was just found. & _ ALLCLEAR & AUTHORS & VERSION & REPBACK Dim w1 As Worksheet, w2 As Worksheet Dim i As Integer, j As Integer, k As Integer, l As Integer Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer Dim PWord1 As String Dim ShTag As Boolean, WinTag As Boolean Application.ScreenUpdating = False With ActiveWorkbook WinTag = .ProtectStructure Or .ProtectWindows 5 End With ShTag = False For Each w1 In Worksheets ShTag = ShTag Or w1.ProtectContents Next w1 If Not ShTag And Not WinTag Then MsgBox MSGNOPWORDS1, vbInformation, HEADER Exit Sub End If MsgBox MSGTAKETIME, vbInformation, HEADER If Not WinTag Then MsgBox MSGNOPWORDS2, vbInformation, HEADER Else On Error Resume Next Do 'dummy do loop For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 With ActiveWorkbook .Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ 6 Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If .ProtectStructure = False And _ .ProtectWindows = False Then PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) MsgBox Application.Substitute(MSGPWORDFOUND1, _ $$, PWord1), vbInformation, HEADER Exit Do 'Bypass all for...nexts End If End With Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If If WinTag And Not ShTag Then MsgBox MSGONLYONE, vbInformation, HEADER Exit Sub 7 End If On Error Resume Next For Each w1 In Worksheets 'Attempt clearance with PWord1 w1.Unprotect PWord1 Next w1 On Error GoTo 0 ShTag = False For Each w1 In Worksheets 'Checks for all clear ShTag triggered to 1 if not. ShTag = ShTag Or w1.ProtectContents Next w1 If ShTag Then For Each w1 In Worksheets With w1 If .ProtectContents Then On Error Resume Next Do 'Dummy do loop For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 .Unprotect Chr(i) & Chr(j) & Chr(k) & _ 8 Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If Not .ProtectContents Then PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) MsgBox Application.Substitute(MSGPWORDFOUND2, _ $$, PWord1), vbInformation, HEADER 'leverage finding Pword by trying on other sheets For Each w2 In Worksheets w2.Unprotect PWord1 Next w2 Exit Do 'Bypass all for...nexts End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If 9 End With Next w1 End If MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER End Sub (方法网址) 篇二:EXCEL宏批量处理表格技巧 这几天整理示范校资料,老师从学校的系统内导出两个EXCEL文件,每个文件有14张学生数据表,总共28张表格,每张表的表格宽度不一,格式不同,如果需要整理成统一格式,需要花费大量时间。为了快速解决这个问 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 ,我编写了一个表格批量处理的宏,在表格内执行宏,可以自动对数据表进行格式调整,快速解决问题。如果有特殊的功能需求,编程难度比较大,大家也可以通过宏录制的方式去实现。 批处理前的数据表: 图1每张表格的格式都不一致,部分数据也因为格式问题无法正常显示 图2每个EXCEL文件内至少有14张学生数据表,数据内容格式不一 图3数据很杂乱,“出生年月”栏数据格式不统一,且因为列宽问题导致部分数据无法正常显示 批量处理后效果: 10 图4 批量处理后,批量调整每个表格的列宽,表格每一项标题居中,出生日期统一格式,达到美观大方的效果,并且表格宽度调整到一张纸内可以全部打印,在打印的时候节约纸张。 一、EXCEL宏代码说明 这个宏是在office2007版本下使用VBA编程语言编写的,可以自动寻找EXCEL文档中指定的单元格并自动对单元格以及单元格内数据的大小、字体格式、对齐方式等属性进行调整。这个宏处理实现以下功能: 1、 批量调整表格列宽; 2、 可以自动设置某一列数据的格式,通过进一步编程也可以实现批量设置多个数据列 格式; 3、 批量设置某一行的单元格格式,如全部居中; 4、 自动设置某一个单元格的格式,如单元格高度等; 5、 在宏程序代码中符号“'”表示注释,在“'”后面的命令不会执行,可以对程序的 命令进行解释和对不需要的命令进行屏蔽。 如果需要详细了解可以到微软的网站上查看EXCEL编程相关的技术文档,网址为: 以下是EXCEL批量处理表格宏程序代码: Sub EXCEL格式批量调整() 11 ' ' EXCEL格式批量调整 V1.0 ' author:项目管理部 杨晖 ' 功能描述:批量处理表格格式 ' Dim x As Integer '定义整数变量,用于选定表格 '从第一格到第12格,每个数字对应表格的字母横向字母,如“1”对应表格中“A”,“2”对应表格中“B”,依次类推,根据需要设置 For x = 1 To 12 '设置每个表格的列宽,在数组Array里面设置每个表格的宽度,比如第一个数字4.38 对应表格“A”列的列宽 ,第二个数字13.5对应表格“B”列宽,依次类推。 Columns(x).ColumnWidth = Array(4.38, 13.5, 6.88, 5.25, 6.25, 10.25, 8.38, 8.38, 8.38, 15.5, 13, 15.25)(x - 1) Next '设置表格 F列 时间格式为 yyyy-mm-dd With Range(F:F) .NumberFormatLocal = [$-F800]dddd, mmmm dd, yyyy End With '设置表格 A列 格式居中对齐 可以调整参数(A:A)去选定表格某一列,如果需要调整多个列表,复制下 12 面的代码粘贴在后面,然后修改参数即可 With Range(A:A) .HorizontalAlignment = xlCenter '设置水平对齐方式 为居中 .VerticalAlignment = xlCenter '设置垂直对齐方式 为居中 .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext End With '设置表格设置表格第2行 格式居中对齐 可以调整参数(2:2)去选定表格某一列 Rows(2:2).Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 13 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With '以下程序代码为定义具体某一个表格高度可以调整参数(1:42)去选定表格某一列 'Rows(1:42).RowHeight = 14.25 'ActiveWindow.SmallScroll Down:=9 'Rows(43:43).RowHeight = 12 End Sub 二、创建宏 创建宏1:在EXCEL中选择“视图”(步骤1)-“宏”(步骤2)-“查看宏”(步骤3) 创建宏2:在弹出的小窗口中输入宏的名称(步骤1)-点击“创建”(步骤 2) 篇三:EXCEL表格宏的应用 EXCEL表格 一、宏 宏是什么,宏主要用来处理有规律的重复的工作,相当于批处理。excel宏怎么用,单击工具?宏?录制新宏?然后指定一个快捷键(如L,相当于ctrl L快捷键),然后指定、关闭。开始录制宏。把你能够重复的操作执行一下,以计算机 14 能识别的重复为准。然后?工具?宏?停止录制。这样宏就录制出来了。 excel宏怎么用 第一:在Excel 2007中如何快速录制宏 默认状态下,Excel 2007的状态栏会显示一个“录制宏”按钮(在状态栏上单击右键?勾选“宏录制”),单击在弹出的对话框中输入宏名-〉确定,即可开始录制宏。录制完毕,再次单击下面的按钮即可。然后按ALT+F11,进入VBE,查看录制的代码。 excel宏怎么用 第二: Excel录制宏功能不支持哪些操作, Excel不可以录制形状、图片、Smartart等相关操作的宏,但是可以录制剪贴画、签名行、图表等相关操作的宏。 excel宏怎么用 第三:如何在Excel2007启用宏 单击Office按钮?Excel选项?信任中心?“信任中心设置”按钮。在“信任中心”对话框中选择“宏设置”?“启用所有宏”。 excel宏怎么用 第四:Excel2007中如何加载宏 单击Office按钮?Excel选项?加载项?选择“Excel加载项”,单击“转到”按钮。然后勾选需要加载宏,或单击“浏览”按钮加载某个保存在硬盘上的加载宏。 excel宏怎么用 第五:如何删除活动工作簿中的所有宏代码使用一下代码: 15 Sub MacroDel() Dim vbcCom, Vbc Set vbcCom = ActiveWorkbook.VBProject.VBComponents For Each Vbc In vbcCom If Vbc.Name Like Sheet* Or Vbc.Name Like This* Then Vbc.CodeModule.DeleteLines 1, Vbc.CodeModule.CountOfLines Else vbcCom.Remove (Vbc) End If Next Vbc ThisWorkbook.Save End Sub 如果宏运行后出现1004错误,单击Excel 选项—信任中心—信任中心设置—勾选“信任对 VBA 工程 路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理 对象模型的访问”,然后再运行宏。 二、日期格式转换汇总 excel日期格式转换一:设置单元格格式 1. 2011-9-27日期格式转换为2011-09-27 当我们在Excel单元格按下ctrl+分号,会自动插入当前系统日期,Excel插入日期格式默认是这样的:2011-9-27,如果需要变为2011-09-27。按ctrl+1,打开设置单元格格式 16 对话框,如下图所示:选择相应的类型,然后在上面的示例处会预览当前的效果。 2. Excel日期格式19970124转换成1997-1-24 选择单元格,单击数据——分列,弹出文本分列向导对话框,单击下一步,下一步,在选择框中选择“日期”后面格式为YMD,完成。 excel日期格式转换二:通过函数公式完成 3. Excel日期格式20110124转换成2011-01-24 如果日期在A1单元格,可以在B1单元格输入公式:=MID(A1,1,4)&-&MID(A1,5,2)&-&MI D(A1,7,2),确定。为了安全起见,可以再次选中B1单元格,复制,单击开始——选择性粘贴,数值,确定。 4. EXCEL日期格式1997-1-24转换成数值型格式19970124 如果日期在A1单元格,可以在B1单元格输入公式:=TEXT(A1,yyyymmdd) 5(excel日期格式之自定义 我们在A1单元格输入1997-1-24,设置单元格格式——自定义,类型输入:bbbb-m-d,确定,单元格会显示为:2540-1-24。 这个Excel日期格式是什么意思呢,日期格式中的 b 是什么意思, b 是指佛历日期,即佛历BE(Buddist Era), 17 与公历中的 y 一样,表示年份数。 佛历计算的方法:即将佛陀降生于公元前六二三年减去佛陀寿八十岁,即得五四三为佛陀涅槃年数(佛陀涅槃于公元前五四三年)如2009-2-5,+543年为佛历,即佛历2552-2-5。单元格输入2009-2-5,格式设置为 bbbb-m-d ,显示为:2552-2-5,设置为bb-mm-dd,显示为:52-02-05。 这个Excel日期格式做一个常识性了解就OK,实际中不常用。通常的Excel日期格式就是通过设置单元格格式和使用text函数来完成转换。 关于text函数来设置日期格式,可以参考讲座《2011年第15期技术讲座:text函数应用分享》 18
本文档为【excel表格删除宏】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
下载需要: 免费 已有0 人下载
最新资料
资料动态
专题动态
is_266065
暂无简介~
格式:doc
大小:39KB
软件:Word
页数:15
分类:生活休闲
上传时间:2017-12-22
浏览量:29