Put no your sweath怎么改
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
' 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
因为SAS只有两种类型，字符和数值：
1。通过变量直接赋值，如：字符型C=数值型B，系统会自动帮你进行类型转换，但是该方法只针对数字，反之亦可。
2。通过input或put，通过INPUT可以将字符型日期、时间，如：input(date,yymmdd10.)或者字符型数字转行成数值型，如：input(var,best.).
3。改变表结构后，重新拼表也可以，系统套用的原理跟方法1类似。不过一般不这么做。
我知道的只有三种，如果有别的方法，也告诉下我吧。呵呵
Put on your sweater 穿上你的毛衣。
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
不明白请及时追问，满意敬请采纳，O(∩_∩)O谢谢
枝姿蛋氨： 答案是: put on your sweater.
安次区13477619248： put no your sweater改错 - ？
枝姿蛋氨： 你好.句子应该是:put on your sweater.译为:穿上你的毛线衫.希望对你有帮助.
安次区13477619248： 英语祈使句的三种方法.如:put on you coat - ？
枝姿蛋氨： 祈使句的肯定句式常见的有三种形式,即1)Do型(以行为动词原形开头),例如: Sit down 坐下! Stand up 起立! 2)Be型(以be开头),例如: Be quiet 安静! 3)Let型 (以let开头),含有let的祈使句可分为两种类型: 一种是“Let+名词/代词+动...
安次区13477619248： 6 .Put no your sweater？
枝姿蛋氨： 6. Put ( on ) your sweater.put on : 穿上
安次区13477619248： put on your coat 与put your coat on 有什么区别 - ？
枝姿蛋氨： put on your coat 强调穿的动作,而put your coat on 强调穿的状态,就是穿着外套
安次区13477619248： put on your shirt该怎么读 - ？
枝姿蛋氨： put on your shirt 穿上你的衬衫 put on [pʊt ɒn] v.穿上;上演;增加;假装;使…上场 例句:She slipped her coat off and put on her blouse. 她一下子脱掉了外衣,然后穿上了罩衫. your [jɔː; jʊə] pron. 你的,你们的 shirt [ʃɜːt] n. 衬衫;汗衫,内衣
安次区13477619248： put on yourcoat,the wind () (blow) hard outside now. - ？
枝姿蛋氨： is blowing 有个 now
安次区13477619248： lt s oold outside.please put noyour 什么意思 - ？
枝姿蛋氨： lt s oold outside.please put noyour 中文译作:外面天气很冷,请穿上大衣.句中由于出现笔误较多,给理解句子造成很大影响.lt s 应该是lt' s ,是主语加系动词结构,在该句中意思是＂天气是......＂.oold应该是cold ,表示寒冷;put no 应该是 put on 意思是“穿上”.最后根据句意判断原句还少了coat,意思是“大衣”.修改后的句子应该是:lt 's cold outside.please put on your coat.意思是“外面天气很冷,请穿上大衣.”
安次区13477619248： No sweat 是什么意思？
枝姿蛋氨： no sweat adv. 不费力地 例句: No sweat, I'm happy to change shifts with you if you want Friday afternoon off. 没有麻烦,如果你想星期五下午休息,我很高兴同你换班. no sweat 【1. 不出汗】 no sweat不出汗没什么大不了 not dealing with a full ...
安次区13477619248： 改错:Put you sweater on.Don't take off it.？
枝姿蛋氨： 是take it off it,him,her只能放在动词短语的之间
