EXCEL工作表编辑资料，设置了工作表保护后，不能对表格进行插入删除操作。如果没有密码，很简单:工具-选项—工作表保护——撤消工作表保护 就可以了。如果忘记密码，如下操作： 1\打开文件
2\工具---宏----录制新宏---输入名字如:a
3\停止录制(这样得到一个空宏)
4\工具---宏----宏,选a,点编辑按钮
5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制下来)
Option Explicit
Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' 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 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 & _
"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!" & AUTHORS & 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 " & _
"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
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 l = 65 To 66: For m = 65 To 66: For i1 = 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) & _
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
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 l = 65 To 66: For m = 65 To 66: For i1 = 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) & _
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
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
6\关闭编辑窗口
7\工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟(确实有这么长时间),再确定.OK,没有密码了

摘要： http://bbs.mychg.org 藏花阁 http://www.tahua.net/踏花行 http://www.shanhua.org/山花浪漫 http://www.phpst.net溢彩花园论坛 http://www.whgbbs.com万花谷 http://www.mshua.net/陌上花 http://www.kanhua.net/index.php看...

摘要： 销售是什么? 1.销售的概念 　　销售在日常生活中非常普遍，每个人脑海中都有销售的清晰画面。销售影响您的每一刻。本篇过后，关于销售的新认识有助于您开发和应用新的技能，并且取得最大的收获。 　　什么是销售呢？我们的定义很单纯。销售就是介绍商品提供的利益，以满足客户特定需求的过程。商品当然包括着有形的商品及服务，满足客户特定的需求是指客户特定的欲望被满足，或者客户特定的问题被解决。能...

摘要： 80%的销售来源于报价后第4至11次的跟踪 记得在欧洲工作的时候，我先前的美国老板对我说：嗨，伙计，做销售，你得学会跟踪。 为进一步说明问题，老板举了一个生动的实例：有个人看到我们的招聘广告，在应聘截止最后一天，他向我们投来他的简历（最后一天投简历的目的是使他的简历能放在一堆应聘材料的最上面）。一周后，他打电话来询问我们是否收到他的简历（当然是安全送达）。这就是跟踪。四天后，他来第二...

摘要： 想象一下，如果每天早上你的银行账户里都多出86400元供你用，会是多美妙的一件事情啊！不过要遵守两个条件：第一，若是这份馈赠在白天没用完，到了晚上剩下的部分就会消失。你不能做手脚，也不能把它存到另一个账户去，只能把它用掉，不过第二天醒来账户里又会有新的86400元。第二，银行可以不用预先通知就结束这个游戏，无论什么时候他都可以对你说：“好了，游戏就玩到这里。”然后不会...

摘要： 管道器材选用经验总结 压力管道的管子及其元件的选用包括应用标准、材料标准、结构形式、连接形式等内容的选定。它是管道压力等级内容的延伸。压力管道的介质、操作条件种类繁多，在这里不可能对各种情况都给出选用的标准，只能给大家一个思路，在具体的设计工作中还要具体分析并注意总结经验。 6.1管子 管子是压力管道中应用最普遍、用量最大的元件，它的重量占整个压力管道的近2/3，而投资则占...

摘要： 现在广大商友有个烦恼，就是每天信息批量重发问题，大家时间都很宝贵一条一条重发是件很累的差事，如果是信息量大的阿里商友，那占用的时间就更长了！有没有更好的办法解决呢？相信以下办法对阿里会员有所帮助。 为了能在阿里网站里保持自己的商业信息排名靠前，你需要在信息发布24小时后经常（最好是每天）重新发布，这是诚信通会员的每日功课，将直接影响你的使用效果。 由于很多会员的商业信息都有相当数量，...

摘要： 一、DIN标准系列 标准　　　　　　　　名称 1 DIN 17175-1979 耐热无缝钢管、交货技术条件 2 DIN 17176-1990 压缩氢气用圆形无缝钢管、交货技术条件 3 DIN 17179-1986 特殊要求的细晶料结构无缝钢管 交货技术条件 4 DIN 17204-1990 无缝钢管的淬火和调质处理 交货技术条件 5 DIN 17456-1999 一般...

摘要： 80%的销售来源于第4至11次的跟踪！ 　　记得95年在欧洲工作的时候，我先前的美国老板对我说：嗨，伙计，做销售，你得学会跟踪。 　　为进一步说明问题，老板举了一个生动的实例：有个人看到我们的招聘广告，在应聘截止最后一天，他向我们投来他的简历（最后一天投简历的目的是使他的简历能放在一堆应聘材料的最上面）。一周后，他打电话来询问我们是否收到他的简历（当然是安全送达）。这就是跟踪。四天后...

摘要： 希望根据下文你可以学到更多的经济学名词。 　　1. 为了排解寂寞你决定上网找人聊聊，这叫创业初期； 　　2. 上来一看，！MM还真不少，这叫市场潜力大； 　　3. 可是GG也不少，这叫竞争激烈； 　　4. 于是你决定想个办法让各位MM注意你，这叫定位； 　　5. 因此你说你又帅又有钱，这叫前期炒作； 　　6. 旁边一男的看不惯，说你其实又丑又穷又色眯眯，这叫恶性竞争；...

摘要： 网上有个朋友说，刚进入一家大公司，发现不能上网，也没有自己的邮箱，怎麽做贸易？     我觉得目前在中国最好的一批贸易人应该是15年前开始跟着台湾，香港贸易公司工作的这批人。现在大部分也都有自己的一片天。而近几年进入贸易圈的朋友，受到网上贸易的迷思，已经不具前人那样的功力，愿借此一文提出我给各位新进的建议，如果你们还是认为网上自有黄金屋，网上自有颜如玉，我保...

摘要： 25种给网站添加优质内容的方法 2007年07月22日 · 50个网站推广方法 2007年07月02日 · 网站优化奇招妙技集锦 2007年07月02日 · 九点提高网站点击率意见 2007年07月02日 ...

摘要： 1、按生产方法分类 （1）无缝钢管--热轧管、冷轧管、冷拔管、挤压管、顶管 （2）焊管 （a）按工艺分--电弧焊管、电阻焊管（高频、低频）、气焊管、炉焊管 （b）按焊缝分--直缝焊管、螺旋焊管 2、按断面形状分类 （1）简单断面钢管--圆形钢管、方形钢管、椭圆形钢管、三角形钢管、六角形钢管、菱形钢管、八角形钢管、半圆形钢圆、其他 （2）复杂断面钢管--不等边六角形...

摘要： 按国内标准生产的无缝钢管品种、国内常用牌号（钢级） 及相应品种的常用国外标准 品种 标准 常用牌号 常用国外标准 结构用无缝钢管 GB/T8162-1999 10、20、35、45、40Mn2、45Mn2、27SiMn、20Cr、40Cr、20CrMo、35CrMo、38CrMoA1、50CrV、30CrMnSi ASTM A500-98 AST...

摘要： 规范性引用文件下列文件中的条款通过本标准的引用而成为本标准的条款。凡是注日期的引用文件，其随后所有的修改单（不包括勘误的内容）或修订版均不适用于本标准，然而，鼓励根据本标准达成协议的各方研究是否可使用这些文件的最新版本。凡是不注日期的引用文件，其最新版本适用于本标准。 GB/T 222 钢的化学分析用试样取样方法及化学成分允许偏差 GB/T 226 钢的低倍组织及缺陷酸蚀试验法 ...

摘要： 我们现在来到的地方是兴国园。为什么叫兴国园？是因为这个园 林有座兴国塔。兴国塔始建于北宋太平兴国年间。这里原本是江 阴的职业学校。2002年市政府将学校搬到城外，这里依托古塔建 设成为一座园林。园林地处市中心，四周有围墙，里面是闹中取 静，别有洞天。 兴国园共分为三大功能区，分别是凭吊纪念区、怀古赏景区、诗 文化景区，建造了以历史文化传承为脉络的大雅堂、椒山亭、馨 ...

摘要： 尊敬的朋友：您好！ 非常高兴通过国际互联网向各位朋友介绍美丽的江阴。 江阴市是长江下游新兴的滨江港口城市和交通枢纽城市，是历史上著名的军事重镇和重要商港，素有“江海门户”、“锁航要塞”之称。全市下辖16个镇、1个省级开发区，总面积988平方公里，人口115万。先后获得了国家卫生城市、全国创建文明城市工作先进市、国家环境保护模范城市和全国...

摘要： 遥想江阴，人们会想到要塞、大桥、华西村、河豚鱼，还有徐霞客远游的身影，以及刘天华的二胡曲—《良宵》和《光明行》。 遥望江阴，在中国最具经济活力的长江三角洲中部，江阴北枕长江，南临太湖，从上海溯江而上，这里是长江南岸第一座滨江港口城市。 杏花雨，江海潮，最小的声音和最大的声音在这里汇聚……。 名气指数。江阴市域总面积988平方公里，在这块全国...

摘要： 序号 中国 （GB） 日本 （JIS） 美国 （ASTM） 化学成份(wt%) C Si Mn P S Ni Cr Other 1. 1Cr18Ni9Ti . . ≤0.12 ≤1.00 ≤2.00 ≤0.035 ≤0.030 8.0...

摘要： 无缝钢管是一种经济断面钢材，在原油开采和加工？管道输送？机械制造？锅炉制造以及大型场馆建设等方面应用广泛？受国际原油价格暴涨和我国国民经济高速发展的影响，其需求量迅 速增加，质量要求也越来越高？为了适应市场对无缝钢管需求数量不断增长和对品种质量越来越高的变化要求，近年来，我国无缝钢管生产企业均加大了技术改造的力度，引进了多套先进的轧管生产机组，全面实际产能已超过了1200万t，2005年...