加载中…
  
博文
标签:

it

分类: G、关于电脑网络

excel表格受密码保护而我们又想对其中的内容进行修改却无法修改时,是怎样一种心情呢,不用急,在这里为大家提供一种可以轻松破解的方法。

1、在受密码保护excel表格中,利用快捷键Alt+F11打开“VBE窗口”

2、打开左上角的“视图”-“代码窗口”

3、复制下面的代码,粘贴到“代码窗口中”


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

4、点击“运行”-“运行子过程/用户窗口”
5、然后会出现一下三个窗口,一次点确定就可以了,现在这个excel表格的密码保护就去除了。(其中第二个窗口中标记的就是excel表格的保护密码,如果后面我们不想每次打开这个excel表格时都出现“宏”提示,也可以直接用这个密码来解除保护。)



阅读    收藏 
分类: D、关于健康
前阵子,有一批“自愈神教”的言论席卷了父母们的朋友圈,大概的主旨就是:宝宝的许多疾病都可以自愈,比如很常见的发烧。

发烧,真的可以靠宝宝自愈?

谣言1

宝宝发烧,除非有生命危险,不要马上吃退烧药。

诚然,发烧是机体抵抗疾病的一种方式,发烧本身并不可怕,但是,如果任由宝宝的体温升高而不去控制,那么,高热给宝宝身体所带来的危害,家长是否能如同医务人员那般清楚并把握得当?

宝宝的身体器官尚未发育完全,如果机体长时间处于高热的状态,会加重各个器官的工作负担,甚至引发高热惊厥等危险的状况。

因此,如果宝宝发烧了,需要及时给他做降温处理,吃退烧药是降温的方式之一,这是在帮助宝宝恢复正常体温,怎么可以说是害了孩子呢?

谣言2

发烧,其实对身体是件好事。

这句话,只说对了一半。发烧这件事,对于宝宝来说,只能说是好坏参半。

发烧其实是身体正在清理病原菌的反应。一般,入侵人体的外来病原菌,适宜生长的温度在35-37之间。而当我们的身体受到外来入侵时,会升高体温,并且调动免疫系统,与入侵的病原菌进行大战。

但是,发烧的坏处仍然不可小觑。随着体温的身高,人体的消耗也会增大,各器官部位的工作负担也会加重,若长时间高烧不退,虽然体内的病原菌被杀得不剩多少,可是人体本身的机能也消耗殆尽,是一件非常危险的事情。

谣言3

捂汗这个老方法,其实还挺管用的。

有些人会说,我每次发烧,只要裹着被子捂一捂,立马就好了。

但是,你要知道,当人处于发烧状态时,他此时最需要的是给身体降温。出汗只是退热的一种表现,是因为你的机体自发散热而产生的结果,这与你用被子捂着并没有什么关系。当人体要散热,你却用被子裹着不让热量散发,你这是在跟自己过不去吧?

这也就是为什么有不少宝宝发烧后,家长一味地用被子捂汗,而导致宝宝高热不退,导致更严重的生命危险出现的原因。

宝宝为什么会发烧?

人体正常体温有一个较稳定的范围,平均在36~37之间(腋窝),高于这个范围就是发热,37—38是低热,38一39是中度热,39一40为高度热,40以上为超高热。

人体温度早上低些,晚上高些,激动的时候高些,发呆的时候低些……这个可自动调节的中央空调是由位于大脑的一个叫做“下丘脑”的部门负责的。有意思的是,这个部门不光负责恒温,当有外敌入侵时,比如细菌啦病毒啦,下丘脑会把温度大幅调高来对抗它们!这个时候,我们就“发烧”了。让宝宝发烧的主要原因除了细菌和病毒感染外,还有穿得过多捂得太实 (常见于婴儿) 和免疫接种。有些小朋友长牙的时候也会发烧。

宝宝发烧,家长有哪些误解

1、 温度计上量出高温就需要去急诊

发烧是一种症状而不是疾病本身,真正的敌人是细菌和病毒。当细菌和病毒入侵时,正常宝宝的机体会用发烧来抵抗外来病原体的感染,所以发烧其实说明了你的宝宝有坚强的自身免疫防御系统。所以,除非罕见情况,孩子在感染期间出现高烧并不是决定要不要去急诊的指标。

2、发烧一定要吃药

发烧可以帮助孩子的机体对抗感染,所以除非发烧让孩子特别不舒服,不然没有必要吃退热药。因为吃退热药并不能让高温降至正常,只是让孩子感觉舒服一点。比如孩子发烧38.5以上并且感觉烦躁不安、睡不好、吃不好,退烧药的确会让孩子舒服很多(体温稍降就开始玩了有没有),还可以降低脱水的风险。如果你决定带孩子去儿科诊所,去之前就可以服用退烧药,不必等到医生看完后再给,因为孩子在舒服的时候更配合儿医的检查,而只有做好检查医生才能及时发现病因对症处理。

全球广泛使用、世界卫生组织推荐的安全实惠退烧药是两个口服药:对乙酰氨基酚和布洛芬。

对乙酰氨基酚:是一种比较安全的退热药,该药是世界卫生组织(WHO) 推荐3个月以上婴儿和儿童高热时首选退热药,常用剂量是10~15mg/k g(每次<600 mg),4~6小时服一次,每天最多用4次。其退热效果与剂量成正比,但剂量过大会引起肝毒性。对乙酰氨基酚可能会引起G-6-PD缺陷症(蚕豆病)的宝宝发生急性溶血反应,所以,有蚕豆病的宝宝应该慎用。代表药如泰诺林、小儿百服宁、小儿退热栓等。

布洛芬:是另一种比较安全的退热药, 常用剂量是5~10mg/kg (每天<400 mg),6小时服一次,每天最多用4次。不良反应主要为胃肠道出血、 胃烧灼感、 恶心和呕吐等。代表药如美林、托恩等。

3、发烧会导致脑损伤

每个正常的大脑都有内在的恒温机制可以防止体温太高而损伤脑组织。一个正常的孩子在一般生病发烧时是不会导致器官受损的。

4、宝宝体温越高病情越重

有的孩子发高烧还在满地跑,有的孩子虽然低烧但看上去却萎靡不振。每个孩子发烧的反应都不同,所以不管体温计上的数字如何,重点是要仔细观察孩子是否出现严重疾病的迹象。比如他们的不舒服程度,有没有活力,是否可能脱水等。一旦你有任何担心,都应该带宝宝到儿科就诊。

5、退热药只给一半剂量

据调查发现,超过一半的父母在给孩子退烧药的时候剂量不准确,包括不足及超量。家长要记住:药物的剂量是根据孩子的体重来算的,而不是年龄。一定要使用药物附带的量具,家用的调羹和量勺常常不够精确。

有的家长说:“我真的不希望给孩子吃药,所以我只给一半量”。请大家记住:半量不会起任何作用,还不如不给。总之,如果你觉得你的孩子需要使用退热药,一定要给足正确的量。

宝妈提示:

以上这些发烧的事实仅适用于3个月以上的宝宝以及常见的发烧。3个月以下的婴儿一旦出现发烧建议立刻带宝宝到儿科就诊。

发烧的日常护理上,美国儿科学会有以下一些建议:

1、发烧时别“捂”孩子,这样会阻止身体散热,并可导致体温上升。确保孩子的卧室温度适中。

2、有些家长会使用洗温水澡的方式降温,这是物理降温的一种方式,但是,让孩子在发烧时洗澡有的宝宝会觉得不舒服,如果宝宝排斥这种方式也不要勉强。

3、禁止使用酒精或冰袋/冷水澡(会导致冷战,反而让体温上升)。

4、提供大量的液体以免脱水,因为发烧让小朋友比平时容易丢失液体。白开水是不错的选择。如果孩子有呕吐或腹泻,请咨询医生是否需要补充儿童专用的电解质饮料。

什么情况下需要带宝宝看医生?

小于3个月的宝宝突然出现发热,有可能是某种疾病造成的。

持续超过5天的发热,提示可能不是普通感冒引起的,需要查找引起发热的原因。

体温超过39,通过应用对乙酰氨基酚或布洛芬后2个小时后仍不退热。

宝宝行为发生改变:比如不爱玩耍,很少说话,没有食欲,对周围食物漠不关心。

出现脱水症状:小的婴儿换尿不湿的次数减少,或大的宝宝小便的次数减少。

注射疫苗后体温超过39,发热时间超过24小时,需要找医生判断下是不是由于疫苗反应引起的。

宝宝出现抽搐。

阅读    收藏 
标签:

it

分类: G、关于电脑网络
这是保存2003格式的文件出现的问题,把“保存此工作簿时检查兼容性”前边的勾去掉。

你现在使用的是高版本的excel,但保存的文件格式是低版本的。比如你用excel2007,但你保存的文件扩展名即是xls,那就有可能出现这种提示。解决办法是,另存为,文件类型里,选择扩展名是xlsx。
阅读    收藏 
标签:

it

分类: G、关于电脑网络
电脑A有一个共享文件夹O,用移动硬盘把共享文件夹O拷贝出来,然后再拷贝到电脑B,但是共享文件夹O无法复制,复制没反应。我只能打开共享文件夹O,把里面的数据一部分一部分的拷贝。其中有一个子文件夹P,始终无法复制,复制没反应。其他文件夹拷贝正常,是什么原因?怎么解决?

http://s4/mw690/001pCna6zy7mu6klD9123&690

阅读    收藏 
标签:

音乐

分类: E、关于音乐
阅读    收藏 
标签:

it

分类: G、关于电脑网络

word正常打印后出现“页边距设于可打印区域之外”的提示,解决方案

 

在安装了word2003后才出现的问题,系统是xp。
每一次打印都会提示“第一节的页边距设于可打印区域之外,是否继续”的对话

框,点是,就正常打印,否,则取消。设置的也没有什么问题,但总是会提示

,不知道是哪里出的问题。在excel中正常。打印网页也正常。
 

问题补充:页边距的设置是默认的,如果设置不合理,调整后的值和现在的是

一样的,是它自己调整的数值,而且一直用的都A4的纸,都是统一的

答案:

页面设置里的页边距设置小于0.5厘米,就会出现这样的,您稍微改一下就好了
打开word,文件-页面设置
在纸张选项卡中调整纸张类型(要小于等于要被打印的纸张的大小)
单击确定,就OK啦 
我认为这种情况多发于你编辑的文档中存在表格等内容.而表格可以大于页边距

.我认为电脑的提示不会对你的打印造成影响.因此不用做任何修改.如果十分不

想出现这样的提醒,请你再制作图表和图片的时候注意一下它是否超出了页边距
试试把打印机删节掉再重新安装一次,还有就是在WORD中把打印机的属性调一

下,是否把纸设成了横向

文件〉打印〉属性〉高级〉页面设置4(就是一个正A、一个倒A的那个图标)〉

调整至纸张大小

win98的系统不会出现这个问题,你的操作系统是WinXp,还是Win2000?

如果是Win2000,单击“开始”=>“设置”=>选“打印机”。在窗口菜单中选

“文件”,选“服务器属性”命令,在对话框中的“格式”选项卡上首先选中

“创建新格式”复选框,再在“表格名”中输入自定义纸张的名称(如260×

368),“格式描述”中选“公制”,纸张的“宽度”和“高度”中分别输入实

际纸张的大小(例如"A4的纸"数值分别为21厘米和29.7厘米),“打印机区域边距

”保持默认即可,最后别忘了单击“保存格式”按钮。
应该可以了!
WinXP系统也差不多,试试吧!
这可能是你所设的页面大小与你实际所使用的纸张不一样吧 ,在页面设置中,

将左右边距平均一下。
在打印之前用打印预览可以看出打印效果,有时虽然出现警告,但仍可以打印

阅读    收藏 
标签:

it

分类: G、关于电脑网络

关于在网页上生成的表格打印不完整解决方案

1、先把网页转化成WORD文档,然后进行修改编辑进行打印。

2、不能转化成WORD文档,可以先把网页以WEB形式保存到桌面上。然后再复制上面的内容,粘贴在WORD文档上,进行修改编辑,然后再打印。

3、在网页上复制要打印的部分到WORD文档上进行修改编辑,然后再进行打印。

4、把OFFICE软件卸载掉,重新安装,然后直接在网页上进行打印。

阅读    收藏 
标签:

it

分类: G、关于电脑网络

简述polycom视频会议设置方法:

polycom,中文宝利通,是世界上广为应用的视频会议系统,设置简单,传输稳定,使用效果好,尤其在大型的多方会议中,能够发挥事半功倍的效果。当然,价格是不菲的。
  最近有人咨询宝利通的设置方法,那么我只能就自己在宝利通的应用当中所知道的一些皮毛,记录下来,不知道对其他人有没有帮助。

  设置之前需要知道的几点关键的问题:
  1、双方的IP,这个IP有几种方式用,第一就是公网地址,采用网络运营商提供的固定的公网IP地址,第二,如果是宽带拨号的用户,则需要每次在系统设置里面变更IP地址,或者连接在可以自动拨号的路由器上使用,第三就是双方有VPN虚拟专用网的用户,可以直接把视频设备设置一个固定的局域网地址,双方设备通过VPN连接来实现视频信号的传输。
  2、最好是根据IP的情况,手动设置DNS服务器地址以及路由地址,如果是公网IP则需要网络运营商提供的数值,如果是内网IP,则需要超级管理员提供这方面的信息。
  3、通常宝利通的视频设备默认H323的通讯协议模式,但是目前已经发现,假如双方有硬件防火墙的,通过VPN连接的情况下,H323很有可能是被防火墙屏蔽的,这种情况下,可以把双方的设备调至其他通讯协议(防火墙允许通过的通讯协议),或者通过调整防火墙主策略,开放H323来实现传输。
  有条件的情况下,尽量把宝利通视频设备连接在一级交换机上,因为随着交换机一级、二级不停的分离信号,网络信号越来越弱,极大的影响视频信号的传输,很多公司的视频连接没有任何问题,但是却随便找了一根传输效果很差的网线,而且随便连接在很低端的交换机上,就会发生,只有声音,却没有传输视频信号的问题,这是需要注意的。
  在设备的系统测试页面里可以同步测试视频信号以及音频信号的丢包情况,检测设备报告书,可以让你清楚的知道,你的设备到底是哪里出了问题。

  视频连接方法之一:简单点对点视频。
  通常很多公司只有很简单的子公司的点对点视频,或者是多方视频,对会议的要求仅仅是视频和声音的传输,所以这方面的设置方法很简单,如下图:

 
  需要提起注意的是,多方视频,需要在主频方增加视频多点控制单元MGC装备,通过视频多点控制单元来实现多放视频的互联。
  设置方法二:在宝利通的视频会议系统里,有一项很重要的运用,即双方PC文件展示功能,通常投影仪或者背投都有两套输入端子,这就可以方便的实现双方文件展示,我们可以很方便的向对方展示我方的电脑桌面,同步运行画面,实现这个功能,需要在展示方增加双流盒的装备,通过连接,来实现。
  如下图:
  显示器共享器的启用目的,双流盒原来的连接方式是直接连接在电脑主机的显示器输出端口,但是本人发现,一般经过双流盒传送的鼠标画面,会产生三四秒的延迟,这样,在投影仪的大屏幕上,会出现鼠标发涩的现象,极大的影响操作,处于解决这个问题的目的,增加一个电脑显示器,和一个显示器共享器。
  把显示器共享器的输入端口连接在PC的显示器输出端口上,把共享器的两个分享端口,一端连接双流盒,一端连接在普通的电脑显示器上,这样,文件展示者可以在显示器上迅捷的操作电脑,而对方观看视频的人则可以比较及时的看到展开的文件效果和数据。
阅读    收藏 
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有