固化清单的破解

恒智天成破解版1使用恒智天成破解版，将面临数据自动被删除的风险:恒智天成软件具有自保护功能，将定期检查用户使用的是否本公司正版授权的加密锁，一旦检测到是盗版复制锁或者无加密锁的破解版，将根据不同软件做出不同的反映:恒智天成资料管理软件:自动删除用户所建工程数据，对于存在自动计算的表格，提供计算错误的数据;恒智天成安全计算软件:自动干扰计算过程，提供计算错误的数据恒智天成快速投标软件:自动删除用户所建工程数据，您所绘制的网络图、平面图不能正常保存，或丢失部分数据恒智天成清单计价软件:自动干扰计算过程，提供计算错误的数据【注意】恒智天成软件没有对破解版提供数据恢复功能，一旦数据丢失，即使找到本公司也无法恢复!2我们如何找到破解版?软件公司不是对盗版没有办法也许您会说，恒智天成怎么这么小气，AutoCAD、Office都有盗版，人家怎么没有搞"数据删除"这一套?微软公司和Autodesk公司(产品AutoCAD)承认盗版的存在，可以说一开始这些软件巨头的产品进中国都是靠的破解版，这些公司采用的是盗版营销策略:先是对盗版听之任之，然后，打击采用破解版的政府机关、企事业单位，要求购买正版。

恒智天成公司是一家小规模的软件公司，如果对盗版听之任之，则无法维持公司的正常运行，所以，我们采用了软件自保护策略，自动对破解版数据进行删除等操作。

不要认为软件公司对盗版没有办法!采用盗版windows的电脑自动弹出黑屏提示，微软公司提示:"您可能是破解版的受害者!";采用盗版AutoCAD的用户，Autodesk公司都有办法知道您采用的是否盗版，只是他认为没有到找您索赔的时候而已!通过这些例子，我们看到，软件公司都可以对自己的产品进行干预。

恒智天成干预破解版的办法主要有3个:第一，检测软件采用的是否是经过授权的正版加密锁，然后，对其进行干预;第二，如果用户联网，可以自动发送采用破解版的用户IP地址，通过这个地址，可以轻松找到使用破解版者，然后，第三，委托各地办事处或代理商打击盗版。

固化清单破解EXCEL工作表保护密码破解方法1: 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) ' Modified2021-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 & _Const HEADER As String = Const VERSION As String = DBLSPACE & Const REPBACK As String = DBLSPACE &Const ALLCLEAR As String = DBLSPACE & DBLSPACE & DBLSPACE & DBLSPACE &Const MSGNOPWORDS1 As String = Const MSGNOPWORDS2 As String =Const MSGTAKETIME As String =Const MSGPWORDFOUND1 As String =Const MSGPWORDFOUND2 As String = DBLSPACE &Const MSGONLYONE As String = ALLCLEAR & AUTHORS & VERSION & REPBACK Dim w1 As Worksheet, w2 As WorksheetDim 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 StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = False With ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindows End With ShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContents Next w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADER Exit Sub End IfMsgBox MSGTAKETIME, vbInformation, HEADER If Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADER ElseOn Error Resume Next Do 'dummy do loopFor 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 ThenPWord1 = 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, _ Exit Do 'Bypass all for...nexts End If End WithNext: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADER Exit Sub End IfOn Error Resume Next For Each w1 In Worksheets 'Attempt clearance with PWord1 w1.Unprotect PWord1 Next w1 On Error GoTo 0 ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not. ShTag = ShTag Orw1.ProtectContents Next w1 If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents Then On Error Resume Next Do 'Dummy do loopFor 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 ThenPWord1 = 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, _ 'leverage finding Pword by trying on other sheets For Each w2 In Worksheets w2.Unprotect PWord1 Next w2Exit Do 'Bypass all for...nexts End IfNext: 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 IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER End Sub方法2: （破解密码） 1\打开文件2\工具---宏----录制新宏---输入名字如:aa 3\停止录制(这样得到一个空宏) 4\工具---宏----宏,选aa,点编辑按钮5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧) 6\关闭编辑窗口7\运行内容如下：Public Sub 工作表保护密码破解()Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ 作者:McCormick JE McGimpseyConst HEADER As String = 工作表保护密码破解Const VERSION As String = DBLSPACE & 版本 Version 1.1.1Const REPBACK As String = DBLSPACE &Const ZHENGLI As String = DBLSPACE & —戊冥整理Const ALLCLEAR As String = DBLSPACE & 该工作簿中的工作表密码保护已全部解除!!& DBLSPACE & 请记得另保存& DBLSPACE & 注意：不要用在不当地方，要尊重他人的劳动成果！Const MSGNOPWORDS1 As String = 该文件工作表中没有加密Const MSGNOPWORDS2 As String = 该文件工作表中没有加密2Const MSGTAKETIME As String = 解密需花费一定时间,请耐心等候!按确定开始破解!Const MSGPWORDFOUND1 As String = 密码重新组合为: & _如果该文件工作表有不同密码,将搜索下一组密码并修改清除Const MSGPWORDFOUND2 As String = 密码重新组合为: & _如果该文件工作表有不同密码,将搜索下一组密码并解除Const MSGONLYONE AsString = 确保为唯一的?Dim w1 As Worksheet, w2 As WorksheetDim 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感谢您的阅读，祝您生活愉快。

清单计价鹏业预算通i9操作技巧（一）1. 预览导出报表出错小伙伴有时候在导出报表，或者预览单位工程汇总表提示运行错误PrintSource Error(XXXXX):表达式错误？答：如果是遇见这种错误，首先检查下措施项目是不是正确的，正常来说，措施项目只有两个总层级（总价措施项目清单和单价措施项目清单），多一个或者少一个层级都不行。

这个就是有三个层级，把脚手架层级删了就行了。

如果是少层级可以新建工程后把正确的粘贴过来。

如果多的层级删不掉，可以点到这个层级右键解除删除保护，然后再删。

2. 合并、拆分工程合并：经常会遇见一个问题，同一个工程里面张三做了土建的部分，李四做了安装的部分，怎么能快速的合并在一起呢？答：除了常规的两个工程直接的复制粘贴外，鹏业还有一个一键合并工程的功能，具体操作如下:首先必须保证两个工程的工程总项目名称是一样的，然后随便打开一个工程，点右键合并其他工程，勾选需要合并的单位工程，合并即可。

拆分：同一个工程里面有很多个单项工程，每个单项里面有很多单位工程，现需要将每个单项工程中的土建工程单独拆分出来作为一个独立的单位工程。

工程上点击鼠标右键选择拆分工程，在弹出的窗口中勾选需要拆分的工程点确定。

弹出另存工程的窗口，另存后打开工程。

3. 历史清单组价为了更快、更准的完成相似、相近项目复用定额，预算通i9能快速的将历史工程的清单组价数据复用应用到当前工程中，或将当前工程的组价数据复用到同一工程的其他清单项目；自动按条件进行准确匹配，支持对特征项目、组价内容进行选择性同步。

案例：王工接收了某项目的投标报价工作，开始做组价等工作，已经做好A单项工程的单位工程，准备做B单项工程的组价等工作，在检查中发现有些相同清单组价内容是一样的，感觉像是在做重复的工作，太郁闷了。

怎么办呢？答：可以使用历史组价的功能解决这个问题。

选中已经组合价的清单，点击软件上方常用里面历史清单选择应用组价到其他工程清单，右上方选择指定需要组价到的单位工程，左下方勾选自动组价的匹配依据勾选后点自动匹配，然后勾选需要同步的内容，确定即可。

固化优化制度机制清单一、制度机制概述制度是企业内部管理的重要手段，是保障企业长期稳定发展的基础。

固化优化制度机制清单旨在规范企业内部运作流程，明确各项管理职责和权利，提高组织效率和员工工作积极性，确保企业的长期稳定发展。

二、人事管理制度1.招聘制度：明确招聘程序和标准，实行公开招聘。

2.薪酬福利制度：建立科学合理的薪酬福利体系，根据员工工作表现进行评估和调整。

3.绩效考核制度：建立科学有效的绩效考核体系，以激励员工积极性和创造力。

4.培训发展制度：建立健全的培训计划和体系，为员工提供多元化的培训机会。

三、财务管理制度1.预算管理制度：建立年度预算计划，并按照计划执行。

2.成本控制制度：严格控制成本支出，合理分配资源。

3.资金管理制度：确保资金使用合法合规，并建立完善的资金监管机构。

四、采购管理制度1.采购程序制度：建立规范的采购流程，确保采购公开透明。

2.供应商管理制度：建立供应商评估体系，定期对供应商进行评估和监督。

3.库存管理制度：建立科学的库存管理体系，提高库存周转率。

五、市场营销制度1.市场调研制度：定期进行市场调研和分析，了解市场需求和竞争情况。

2.销售管理制度：建立有效的销售渠道和销售团队，提高销售业绩。

3.客户服务制度：建立完善的客户服务机制，提高客户满意度。

六、生产运营制度1.生产计划制度：建立科学合理的生产计划系统，确保生产进程顺利进行。

2.品质管理制度：建立严格的品质控制体系，确保产品质量符合标准。

3.安全环保制度：建立安全环保意识，并加强安全防范措施。

七、信息化管理制度1.信息安全管理制度：确保企业信息安全，并加强对敏感信息的保护。

2.IT设备管理制度：定期检查IT设备使用情况，确保设备正常运行。

3.网络管理制度：建立科学的网络管理体系，确保网络安全稳定。

八、知识产权管理制度1.专利申请制度：建立专利申请流程，保护企业知识产权。

2.商标注册制度：建立商标注册程序，确保企业商标权益受到保护。

一、概论壳出于程序作者想对程序资源压缩、注册保护的目的，把壳分为压缩壳和加密壳两种顾名思义，压缩壳只是为了减小程序体积对资源进行压缩，加密壳是程序输入表等等进行加密保护。

当然加密壳的保护能力要强得多！二、常见脱壳方法预备知识1.PUSHAD （压栈）代表程序的入口点,2.POPAD （出栈）代表程序的出口点，与PUSHAD想对应，一般找到这个OEP就在附近3.OEP：程序的入口点，软件加壳就是隐藏了OEP（或者用了假的OEP/FOEP），只要我们找到程序真正的OEP，就可以立刻脱壳。

方法一：单步跟踪法1.用OD载入，点“不分析代码！”2.单步向下跟踪F8，实现向下的跳。

也就是说向上的跳不让其实现！（通过F4）3.遇到程序往回跳的（包括循环），我们在下一句代码处按F4（或者右健单击代码，选择断点——>运行到所选）4.绿色线条表示跳转没实现，不用理会，红色线条表示跳转已经实现！5.如果刚载入程序，在附近就有一个CALL的，我们就F7跟进去，不然程序很容易跑飞，这样很快就能到程序的OEP6.在跟踪的时候，如果运行到某个CALL程序就运行的，就在这个CALL中F7进入7.一般有很大的跳转（大跨段），比如jmp XXXXXX 或者JE XXXXXX 或者有RETN的一般很快就会到程序的OEP。

Btw:在有些壳无法向下跟踪的时候，我们可以在附近找到没有实现的大跳转，右键-->“跟随”,然后F2下断，Shift+F9运行停在“跟随”的位置，再取消断点，继续F8单步跟踪。

一般情况下可以轻松到达OEP！方法二：ESP定律法ESP定理脱壳（ESP在OD的寄存器中，我们只要在命令行下ESP的硬件访问断点，就会一下来到程序的OEP了！）1.开始就点F8，注意观察OD右上角的寄存器中ESP有没突现（变成红色）。

（这只是一般情况下，更确切的说我们选择的ESP值是关键句之后的第一个ESP值）2.在命令行下：dd XXXXXXXX(指在当前代码中的ESP地址，或者是hr XXXXXXXX)，按回车！3.选中下断的地址，断点--->硬件访--->WORD断点。

固化清单破解方法Is the eternal love the truth. December 22, 2021一、导入固化量清单一般的固化清单,可以直接用复制粘贴的方法粘贴到一个新建的excel表中,再导入软件；如果不能直接复制,可以试着用excel2007打开固化清单,然后另存为excel97-2003兼容格式,再导入软件；还有一种固化得更好的,另存成2003兼容格式也无法再编辑的,那么请另存为.csv格式,然后再编辑,导入软件;二、破解excele工作表密码保护Excel工作表保护密码破解超级无敌有用方法:1\打开文件2\工具---宏----录制新宏---输入名字如:aa3\停止录制这样得到一个空宏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' Reveals hashed passwords NOT original passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst 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 " & _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 & VERSIONConst 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 & VERSIONConst 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 & VERSIONConst MSGONLYONE As String = "Only structure / windows " & _ "protected with the password that was just found." & _ ALLCLEAR & AUTHORS & VERSION & REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim 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 StringDim ShTag As Boolean, WinTag As Boolean= FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag OrNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADERElseOn Error Resume NextDo 'dummy do loopFor 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 Chri & Chrj & Chrk & _Chrl & Chrm & Chri1 & Chri2 & _Chri3 & Chri4 & Chri5 & Chri6 & ChrnIf .ProtectStructure = False And _.ProtectWindows = False ThenPWord1 = Chri & Chrj & Chrk & Chrl & _Chrm & Chri1 & Chri2 & Chri3 & _Chri4 & Chri5 & Chri6 & ChrnMsgBox MSGPWORDFOUND1, _"$$", PWord1, vbInformation, HEADERExit Do 'Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not. ShTag = ShTag OrNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo 'Dummy do loopFor 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 Chri & Chrj & Chrk & _Chrl & Chrm & Chri1 & Chri2 & Chri3 & _Chri4 & Chri5 & Chri6 & ChrnIf Not .ProtectContents ThenPWord1 = Chri & Chrj & Chrk & Chrl & _Chrm & Chri1 & Chri2 & Chri3 & _Chri4 & Chri5 & Chri6 & ChrnMsgBox MSGPWORDFOUND2, _"$$", PWord1, vbInformation, HEADER'leverage finding Pword by trying on other sheetsFor Each w2 In WorksheetsPWord1 Next w2 Exit Do 'Bypass all for...nexts End If Next: Next: Next: Next: Next: N ext 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 E nd Sub。

破解加密表格的方法取决于加密的类型和强度。

以下是一些可能的方法：
1. 密码破解：如果表格是使用密码加密的，可以尝试使用密码破解工具或技术来猜测或计算密码。

这可能包括暴力破解（尝试所有可能的密码组合）、字典攻击（尝试常见的密码）或彩虹表攻击（预先计算的密码哈希值数据库）。

2. 漏洞利用：如果加密软件存在漏洞或弱点，可以利用这些漏洞来解密表格。

这可能需要对加密软件进行深入分析和研究，以找到可以利用的漏洞。

3. 社会工程学：有时，通过社会工程学技巧可以获取加密表格的密码。

这可能包括假装成可信任的人或组织，欺骗目标透露密码。

4. 量子计算机：对于某些加密算法，理论上可以使用量子计算机来进行快速破解。

然而，这目前还处于实验阶段，并且需要特殊的硬件和软件。

请注意，破解加密表格可能是非法的，并且可能会导致严重的法律后果。

在尝试任何破解活动之前，请确保您了解当地的法律法规，并遵守道德准则。

关于三轴搅拌桩水泥掺量变更争议思考以某项目类港式模拟清单施工预算编制固化为例1.案例概况本项目位于南京市江北新区,项目占地面积约104360m2，规划建筑面积约498094.59m2，其中基坑面积约64115.90m2、基坑周长约1063.70m，地下室2层。

项目的招采形式采用类港式清单模拟招标，造价的管理形式为出具正式施工蓝图后甲乙双方进行施工图预算编制核对后签署补充协议，确定实际固定包干合同价。

工作内容主要包含支护灌注桩、支护高压旋喷桩、支护三轴搅拌桩及坑中坑三轴搅拌土体加固等支护形式。

1.案例背景模拟招标清单特征中已具体描述了支护形式、施工工艺、尺寸、水泥掺量及清单工程量计算规则等便于投标人准确报价的各项因素。

其中清单“三轴搅拌桩”特征描述中明确“φ650@900三轴深搅桩；桩身采用套接一孔施工工艺；采用42.5普通硅酸盐水泥，水泥设计掺入量为14%；清单工程量是以三根为一幅的有效总长”，报价144.83元/m。

清单“三轴坑中坑”特征描述中明确“φ650@1350三轴深搅桩；采用42.5普通硅酸盐水泥，水泥设计掺入量为14%；清单工程量是以三根为一幅的有效总长”，报价209.38元/m。

从这两项三轴搅拌桩的报价情况看，规格、水泥强度、水泥掺量、计算规则均一致，仅施工工艺不一致，即“套打一孔”和“部分叠打”两种施工工艺会导致报价不一致，主要原因是实际的水泥掺量不一致。

本项目在实施过程中，实际地质情况与地勘报告存在部分差异，经各参建方多次会商，决定变更支护方案，将“三轴搅拌桩”及“三轴坑中坑”水泥掺量均变更为20%，与清单报价产生变更，需重新洽商单价。

1.争议焦点施工图预算固化过程中，如何重新组价、变更后价格需要考虑的组价因素形成了本工程的争议焦点，经总结，具体如下：1.因本工程为类港式清单报价，报价组成明细仅明确材料费、施工费，无法具体分析报价的工料机组成明细，参照投标价修正单价没有可操作性，如何合理组价形成本案第一个争议点；2.经过比对原清单报价中“三轴搅拌桩”和“三轴坑中坑”两项清单报价仅因施工工艺不同，即实际水泥掺量不同，施工方的报价相差约64.55元/m，可见实际水泥掺量也应作为重新组价的考虑因素。

147、问：固化清单如何转换导入WECOST里？答：1、一般的固化清单，可以直接用复制粘贴的方法粘贴到一个新建的excel表中，再导入软件；2、如果不能直接复制，可以试着用excel2007打开固化清单，然后另存为excel97-2003兼容格式，再导入软件；3、还有一种固化得更好的，另存成2003兼容格式也无法再编辑及复制的，那么请另存为.csv 格式，然后再编辑复制转入新建excel表中，导入软件；4、直接破解法。

方法如下:1）打开文件2）工具---宏----录制新宏---输入名字如:aa3）停止录制(这样得到一个空宏)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 passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst 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 & VERSIONConst 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 & VERSIONConst 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 & VERSIONConst MSGONL YONE As String = "Only structure / windows " & _ "protected with the password that was just found." & _ALLCLEAR & AUTHORS & VERSION & REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADER ElseOn Error Resume NextDo 'dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For 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 ThenPWord1 = 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, HEADERExit Do 'Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONL YONE, vbInformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not.ShTag = ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo 'Dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For 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 ThenPWord1 = 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 sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do 'Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER End Sub。

1．工程量清单说明1.1本工程量清单是根据招标文件中包括的、有合同约束力的图纸以及有关工程量清单的国家标准、行业标准、合同条款中约定的工程量计算规则编制。

约定计量规则中没有的子目，其工程量按照有合同约束力的图纸所标示尺寸的理论净量计算。

计量采用中华人民共和国法定计量单位。

1.2本工程量清单应与招标文件中的投标人须知、通用合同条款、专用合同条款、技术规范及图纸等一起阅读和理解。

1.3本工程量清单中所列工程数量是估算的或设计的预计数量，仅作为投标报价的共同基础，不能作为最终结算与支付的依据。

实际支付应按实际完成的工程量，由承包人按技术规范规定的计量方法，以监理人认可的尺寸、断面计量，按本工程量清单的单价和总额价计算支付金额；或者，根据具体情况，按合同条款第15.4款的规定，由监理人确定的单价或总额价计算支付额。

1.4工程量清单各章是按第七章“技术规范”的相应章次编号的，因此，工程量清单中各章的工程子目的范围与计量等应与“技术规范”相应章节的范围、计量与支付条款结合起来理解或解释。

1.5对作业和材料的一般说明或规定，未重复写入工程量清单内，在给工程量清单各子目标价前，应参阅第七章“技术规范”的有关内容。

1.6工程量清单中所列工程量的变动，丝毫不会降低或影响合同条款的效力，也不免除承包人按规定的标准进行施工和修复缺陷的责任。

1.7图纸中所列的工程数量表及数量汇总表仅是提供资料，不是工程量清单的外延。

当图纸与工程量清单所列数量不一致时，以工程量清单所列数量作为报价的依据。

对于符合要求的投标文件，在签订合同协议前，如发现工程量清单中有计算方面的算术性差错，按投标须知相关条款进行修正。

2．投标报价说明2.1工程量清单中的每一子目须填入单价或价格，且只允许有一个报价。

2.2本工程的投标报价采用综合清单单价的方式进行报价，除非合同另有规定，工程量清单中有标价的单价和总额价均已包括了为实施和完成合同工程所需的苗木费、其他材料费、劳务、机械、质检（自检）、安装、缺陷修复、管理、保险、税费、利润等一切费用，以及合同明示或暗示的所有责任、义务和一般风险。