excelvbaproject保护密码破解查看见过较详细的操作
EXCEL VBA Project密码破解
过程可能有些繁琐，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
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version
' 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 2003-Apr-04"
Const REPBACK As String = DBLSPACE & "Please report failure " & _
"to the 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
= False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or
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 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 (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
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
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
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 (MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
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
如何破解VBAProject属性的保护密码
1、打开任一excel文件
2、在宏里粘贴下面的代码
3、运行下面的代码
4、选择需要破解密码的文件
5、点击“打开”
'移除VBA编码保护
Sub MoveProtect()
Dim FileName As String
FileName = ("Excel文件（*.xls & *.xla&*.xlsx）,*.xls;*.xla;*.xlsx", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, False
End If
End Sub
'设置VBA编码保护
Sub SetProtect()
Dim FileName As String
FileName = ("Excel文件（*.xls & *.xla&*.xlsx）,*.xls;*.xla;*.xlsx", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, True
End If
End Sub
Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)
If Dir(FileName) = "" Then
Exit Function
Else
FileCopy FileName, FileName & ".bak"
End If
Dim GetData As String * 5
Open FileName For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
Next
If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
Exit Function
End If
If Protect = False Then
Dim St As String * 2
Dim s20 As String * 1
'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St
'取得一个20十六制字串
Get #1, DPBo + 16, s20
'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next
'加入不配对符号
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成功......", 32, "提示"
Else
Dim MMs As String * 5
MMs = "DPB="""
Put #1, CMGs, MMs
MsgBox "对文件特殊加密成功......", 32, "提示"
End If
Close #1
End Function
如果你是要破解EXCEL工作表保护密码，请按“EXCEL工作表保护密码破解”操作，若在录制宏时，要求输入VBAProject密码，请先按后面的“如何破解VBAProject属性的保护密码”
破解VBAProject密码，然后再按“EXCEL工作表保护密码破解”操作即可。
如果你是要破解VBAProject属性的保护密码，请直接按后面的“如何破解VBAProject属性的保护密码”的步骤操作。
强力破解EXCEL工作表保护密码
强力破解EXCEL工作表保护 在日常工作中，您是否遇到过这样的情况：您用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从网上下载的Excel格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办？您只要按照以下步骤操作，Excel工作表保护密码瞬间即破！ 1、打开您需要破解保护密码的Excel文件； 2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字 如:aa； 3、停止录制(这样得到一个空宏)； 4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮； 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 " &
如何破解EXCEL工作表保护密码忘记密
如何破解EXCEL工作表保护密码忘记密码怎么办 1.新建一个EXCEL工作表，而后点击另存为，讲表格保存为启用宏的工作表 2.一次点击开发工具---录制新宏，在弹出的对话框内修改宏名称而后确定 3.依次点击开发工具----停止录制宏，宏录制完成 4.依次点击开发工具，---宏----在弹出的对话框找到我们刚才录制的宏名称而后进入VBA界面 5.在VBA界面，全选里面的代码，而后删除，讲里面的代码全部删除完 6.代码复制到VBA编辑窗口内 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 ' Modified 2003-Apr-04 by JEM: All msgs to constants, and ' eliminate one Exit Sub (Version ' 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"
(完整word版)庄家亲自解密操盘手法
庄家亲自解密操盘手法！ 某朋友非常有幸的与一位国内股票界饶有名气的主操盘手做了一次私访，借此机会和大家一起深入了解一下这些投资者平日无法接触到的坐庄内幕和坐庄手法，希望可以让大家通过此知道一些股票屏幕背后的故事并从中得到一点启示。 笔者：大家知道，一般认为对于持有较多股票的人会成为清洗对象，为什么？ 被访者：庄家在拉升前必须要做到自己的持仓成本要低于市场平均持仓成本，所以洗盘和震仓尤为重要。 笔者：在研究筹码分布的情况下，庄家还需要关注什么呢？ 被访者：你要控制个股的盘面，同时必须密切关注大盘的走势。大盘的走势有时需要分秒不落地时刻关注。 笔者：只有利用好大势才能达到事半功倍的效果。 被访者：对。当大盘趋势明朗时，最重要的是个股的目标价位和对盘面的控制。在任何时候，需要解套盘和获利盘有一个固有的比率，我们需要看盘时并不着重于散户的举动，构成威胁的是较大资金的中长线投资者，他尝到甜头后，还会吸引更多的跟风，一定的跟风是我们需要的，但绝不希望他们在底位跟风，必须控制大资金长时间的连续性动作，必须让长线投资者和短线投资者在相对高位形成换手，提高市场平均成本，我们的底仓才会在以后的高点获利。跟风盘的一举一动，直接关系到成败 笔者：你们是不是在前一天就要计划好第二日的走势？ 被访者：事实上，坐庄需要一个非常详细的计划。早在坐庄之前就应该把完整的计划做好，包括计划达到多高的价位，在什么位置需要整理洗盘，有可能出现什么情况，应如何应对，回调的幅度有多大，在每一个关键位置重要的技术指标会达到多少等等。在拉升阶段，可能每天收市后都要开会研究。 笔者：看来坐庄不光风光，也是很累的。 被访者：坐庄非常辛苦，尤其是坐大庄。只有一种情况例外，那就是坐快庄，只需要几个操盘手就够了，也不需要定计划，因为盘面也不好控制，完全靠随机应变，相机行事，前提是资金实力非常雄厚。 笔者：我们经常听到“洗盘”这个词，什么时候需要洗盘，有没有洗不出去的筹码。 被访者：查觉到较大资金进来，或在低位有大量的跟风盘时是要洗盘的，但庄家受资金和时间的限制，也有无法完成洗盘的情况。例如正当要开始大幅拉升时，突然发现有大
破解excel保护密码的宏代码
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: " & _
股价运行的内在规律 大资金坐庄手法大揭秘
股价运行的内在规律大资金坐庄手法大揭秘 目前大资金做庄基本上都是顺着吸筹、洗盘、拉升、出货四个步骤，然而很少有人知道到这四个流程背后运作的原理本质问题，如何在主力出货阶段不去高位接盘？如何在主力拉升前的洗盘不被洗出局外？今天特约大智慧策略研究员为您探讨， 我们在投资中会经常研究一些投资书籍，而这些投资书籍中有很多归纳了对于主力坐庄的流程，大道至简基本上都是顺着吸筹、洗盘、拉升、出货四个步骤，然而很少有谈到这四个流程背后运作的原理本质问题。今天我跟大家讲的内容对于散户投资者了解庄家的运作过程及手法，对每个投资者识别个股运作的阶段，识破庄家的诡计，从而在主力拉升前的洗盘不被洗出局外，在主力出货阶段不去高位接盘，增加投资收益率，会有很大帮助。 概括地讲：一只股票在一次主力完整运作中经过以下几个阶段：（建仓—洗盘—拉升—出货）
我们先来讨论讨论什么是庄 坐庄是指某些资金体量较大的机构或者个人，通过低价买入大量的流通股，实现了可以操控该股价格的效果，然后通过运作在高位将筹码全部出掉套现的行为。 由于这种行为违背了市场的公平原则，故而被监管机构所打击，是市场禁止的行为。但是从资本上来讲，大资金运作的话，也是这么个道理。而且我还要再加一个流程，就是“准备”，其中准备工作是重中之重。 一，准备 准备分为好几个阶段 1. 资金
想坐庄必须得有钱，现在由于股票的流通市值越来越大，所以现在很少有独自拿钱出来坐庄的机构。目前普遍的做法要么是几个机构合资一起做、要么是理财机构拿客户的钱出来做、要么是配合上市公司大股东一起做。如果想坐庄最起码要准备该股流通市值额的60%的资金，当然越多越好。 一只老虎 (基金) 带一群狼（游资） 2. 宏观形势判断 宏观形势包括经济形势、政策形势，主要分析整体的宏观经济和宏观经济下的行业判断。 主力判断这些的主要目的是确定未来整个市场行情的趋势，也就是未来的行情究竟是向上的牛市还是向下的熊市。一般最理想的建仓时间点是熊市末期，等建仓结束后可以从容的从牛市初期拉升到末期，这样整个坐庄的操作遇到的阻力是非常小的。相反如果在牛市末期建仓，不但价格高
Excel—“撤销工作表保护密码”的破解并获取原始密码
Excel—“撤销工作表保护密码”的破解并获取原始密码 在日常工作中，您是否遇到过这样的情况：您用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从网上下载的Excel格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办？您只要按照以下步骤操作，Excel工作表保护密码瞬间即破！ 1、打开您需要破解保护密码的Excel文件； 2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa； 3、停止录制(这样得到一个空宏)； 4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮； 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 " & _
EXCEL密码保护破解2010
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
破解EXCEL工作表保护密码的简单方法
破解EXCEL工作表保护密码的简单方法 你是否给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
庄家通常惯用的炒作手法
庄家通常惯用的炒作手法 1．在低位建仓时，一般会控制当日的涨升幅度，而不愿在每天的涨跌幅排行榜上亮相，以便引起市场注目，同时会严密封锁消息，不让外界获知进庄秘密。 2．在拉升阶段时，喜欢在涨幅榜上"金榜题名"，以便吸引市场的跟风盘，并显示庄家的实力，此时经常有意"泄露"消息。 3．善于运用逆向思维，往往在高位轧空诱多，而在低位轧多诱空。 4．如欲建仓吸货，往往利用手中筹码制造卖压，一旦散户大量抛空，便迅速撤掉原挂卖单吞吃廉价筹码，即假卖真买。 5．如欲拉高出货，往往挂出大笔买单，制造表面繁荣的假象，一且散户大量追涨，便迅速撤掉原挂买单套住跟进筹码，即假买真卖。 6．喜欢炒朦胧，一旦消息明朗之时则往往是出货之机。 7．经常利用手中已有的筹码进行"T＋O"对冲操作。 8．往往在技术上制造假突破，或进行骗线。 9．在派发末期，经常刻意砸盘，以放大恐慌效果。 10．轻仓时往往顺势而为。比如借利空出货，此时损失也不会大。重仓时则往往逆势而动。比如对利空消息滞后反映，由于此时仓位较重，一下子出不完货，故经常先向上拉升，然后再反手做空。 11．经常刻意抬拉，打压大盘指标股或制造涨跌停板，以掩护自己出货或建仓。 12．通谋买卖或联手做庄。往往在不同的营业网点开立若干个帐户互相转帐，或进行分仓操作。 13．虚买虚卖（对倒、对敲）。即在买入、卖出的同时，让约定的合伙人以商定的价格实施相反方向的操作。比如散户在某一个营业部发现某只个股有大买单吃进而盲目跟进，但庄家有可能在另一个营业部又以相同的数量大举卖出，而实际上庄家的持仓量并没有发生变化。通常在盘整时运用此手法。
庄家炒作的题材与时机各类庄家的划分与区别 庄家通常惯用的炒作手法如何判断和选择"庄股" 中小投资者如何成功跟庄看量追庄 炒"消息"与跟庄的学问坐庄的原理 庄家炒作的题材与时机 庄家通常惯用的炒作手法 1．在低位建仓时，一般会控制当日的涨升幅度，而不愿在每天的涨跌幅排行榜上亮相，以便引起市场注目，同时会严密封锁消息，不让外界获知进庄秘密。 2．在拉升阶段时，喜欢在涨幅榜上"金榜题名"，以便吸引市场的跟风盘，并显示庄家的实力，此时经常有意"泄露"消息。 3．善于运用逆向思维，往往在高位轧空诱多，而在低位轧多诱空。 4．如欲建仓吸货，往往利用手中筹码制造卖压，一旦散户大量抛空，便迅速撤掉原挂卖单吞吃廉价筹码，即假卖真买。 5．如欲拉高出货，往往挂出大笔买单，制造表面繁荣的假象，一且散户大量追涨，便迅速撤掉原挂买单套住跟进筹码，即假买真卖。 6．喜欢炒朦胧，一旦消息明朗之时则往往是出货之机。 7．经常利用手中已有的筹码进行"T＋O"对冲操作。 8．往往在技术上制造假突破，或进行骗线。 9．在派发末期，经常刻意砸盘，以放大恐慌效果。 10．轻仓时往往顺势而为。比如借利空出货，此时损失也不会大。重仓时则往往逆势而动。比如对利空消息滞后反映，由于此时仓位较重，一下子出不完货，故经常先向上拉升，然后再反手做空。 11．经常刻意抬拉，打压大盘指标股或制造涨跌停板，以掩护自己出货或建仓。 12．通谋买卖或联手做庄。往往在不同的营业网点开立若干个帐户互相转帐，或进行分仓操作。 13．虚买虚卖（对倒、对敲）。即在买入、卖出的同时，让约定的合伙人以商定的价格实施相反方向的操作。比如散户在某一个营业部发现某只个股有大买单吃进而盲目跟进，但庄家有可能在另一个营业部又以相同的数量大举卖出，而实际上庄家的持仓量并没有发生变化。通常在盘整时运用此手法。
破解EXCEL系列文件保护密码的方法
破解EXCEL系列文件保护密码的方法,好用(转载) 2008-06-04 16:30:48 业界| 评论(39) | 浏览(3403) 财务部重要的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 " & _
Office 2007 Excel工作表保护密码忘记之解决办法
Office 2007 Excel工作表保护密码忘记之解决办法 从网上搜集资料，以下是自己操作实践！ 1、打开受保护的Excel工作表（此步骤打开其他Excel文件也行，因为这里是要启用宏）： 在打开的Excel文件菜单栏空白处，右键单击鼠标，选择“自定义快速访问工具栏···”，打开Excel选项窗口，如上图所示。 2、在打开的Excel选项窗口中，选择“常用”一栏，再在右边框中勾中“在功能区显示”开 发工具”选项卡”，如图所示： 3、点击“确定”按钮后，返回Excel工作表，这时可以在Excel工作表菜单栏中出现“开发 工具”菜单项，选择“开发工具”菜单项中的“宏安全性”，如图所示：
4、打开“信任中心”窗口，选择左边栏中的“宏设置”一项，再在右边栏目中，选中“启 用所有宏···”及勾中“信任对VBA工程对象模型的访问”一项，点击“确定”按钮： 5、返回到Excel工作表，在“开发工具”菜单下，选择“录制宏”一项，如图： 6、在打开的“录制新宏”窗口中，在“宏名”一栏的文本框中输入名字（可以任取，这里 以test为例），在“保存在”一栏的下拉列表框中，选择“当前工作簿”（其实也是可以不用选择的，但为了慎重起见还是选择），最后点击“确定”按钮：
7、再返回到Excel工作表，此时，“开发工具“菜单项下原先的“录制宏”变为了“停止录 制”，现在就点击“停止录制”，结束宏的录制，这样就可以创建一个空宏test。如图： 8、停止录制宏之后，再选择“宏”选项： 9、在打开的“宏”窗口中，就会出现刚才创建的test宏，“位置”一栏选择“当前工作簿” （为了与前面相对应），然后在“宏名”下选择刚才创建的test宏，再点击右边栏目中的“编辑“选项，如：
坐庄内幕和坐庄手法
国内私募界知名的操盘手刘文文在开通博客之后，接受了某财经记者的专访。讲叙了一些普通投资者平日无法接触到的坐庄内幕和坐庄手法。看完之后相信会让散户受益匪浅。 记者：大家知道，一般认为对于持有较多股票的人会成为清洗对象，为什么？ 刘文文：庄家在拉升前必须要做到自己的持仓成本要低于市场平均持仓成本，所以洗盘和震仓尤为重要。记者：刘文文股票博客现在访问量怎么样，上面的操盘手法适合操盘手还是散户？ 刘文文：博客上主要是我的实盘，还讲一些主力陷进，和庄家的伎俩，是面向散户的。 记者：面向散户的。那么在研究筹码分布的情况下，庄家需要关注什么呢？ 刘文文：你要控制个股的盘面，同时必须密切关注大盘的走势。大盘的走势有时需要分秒不落地时刻关注。 记者：只有利用好大势才能达到事半功倍的效果。 刘文文：对。当大盘趋势明朗时，最重要的是个股的目标价位和对盘面的控制。在任何时候，需要解套盘和获利盘有一个固有的比率，我们需要看盘时并不着重于散户的举动，构成威胁的是较大资金的中长线投资者，他尝到甜头后，还会吸引更多的跟风，一定的跟风是我们需要的，但绝不希望他们在底位跟风，必须控制大资金长时间的连续性动作，必须让长线投资者和短线投资者在相对高位形成换手，提高市场平均成本，我们的底仓才会在以后的高点获利。跟风盘的一举一动，直接关系到成败。 记者：你们是不是在前一天就要计划好第二日的走势？ 刘文文：事实上，坐庄需要一个非常详细的计划。早在坐庄之前就应该把完整的计划做好，包括计划达到多高的价位，在什么位置需要整理洗盘，有可能出现什么情况，应如何应对，回调的幅度有多大，在每一个关键位置重要的技术指标会达到多少等等。在拉升阶段，可能每天收市后都要开会研究。 记者：您在自己的博客上说，坐庄不光风光，也是很累的。为什么？ 刘文文：坐庄非常辛苦，尤其是坐大庄。只有一种情况例外，那就是坐快庄，只需要几个操盘手就够了，也不需要定计划，因为盘面也不好控制，完全靠随机应变，相机行事，前提是资金实力非常雄厚。 记者：我们经常听到“洗盘”这个词，什么时候需要洗盘，有没有洗不出去的筹码。 刘文文：查觉到较大资金进来，或在低位有大量的跟风盘时是要洗盘的，但庄家受资金和时间的限制，也有无法完成洗盘的情况。例如正当要开始大幅拉升时，突然发现有大资金进场，此时庄家也会感到为难。有时会调查资金的来历，并主动找对方联系希望达成默契。 记者：遇到难以达成默契的时候怎么办？ 刘文文：如果外来资金进场仅仅是为了分一杯羹，一般庄家也会容忍它。就怕它是进来捣乱的，它不服从你的安排，而且干扰你的操作。对于这样的角色，庄家对付你可能会不择手段。 记者：不择手段？！能举个例子吗？ 刘文文：我在博客上举了一些例子。在市场上很多较量就是在为生存而战，有些故事还是不说为好。