常用VBA语句.docx

统一图片尺寸的 VBA 语句: Sub 统一图片尺寸() Dim oInlineShape As InlineShape For Each oInlineShape In With oInlineShape .LockAspectRatio = msoFalse .Height = MillimetersToPoints(23) .Width = MillimetersToPoints(31) End With Next 工作表保护密码破解 Public Sub 工作表保护密码破解() Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine &_ " 作者:McCormick JE McGimpsey " Const HEADER As String =" 工作表保护密码破解" Const VERSION As String = DBLSPACE &" 版本 Version " Const REPBACK As String = DBLSPACE & "" Const ZHENGLI As String = DBLSPACE &" hfhzi3 —戊冥整理" Const ALLCLEAR As String = DBLSPACE &" 该工作簿中的工作表密码保护已全部解除!!"& DBLSPACE &" 请记得另保存"_ & DBLSPACE &" 注意:不要用在不当地方,要尊重他人的劳动成果! " Const MSGNOPWORDS1 As String =" 该文件工作表中没有加密" Const MSGNOPWORDS2 As String =" 该文件工作表中没有加密 2" Const MSGTAKETIME As String =" 解密需花费一定时间, 请耐心等候!"& DBLSPACE &" 按确定开始破解!" Const MSGPWORDFOUND1 As String =" 密码重新组合为:"& DBLSPACE & "$$" & DBLSPACE &_ " 如果该文件工作表有不同密码, 将搜索下一组密码并修改清除" Const MSGPWORDFOUND2 As String =" 密码重新组合为:"& DBLSPACE & "$$" & DBLSPACE &_ " 如果该文件工作表有不同密码, 将搜索下一组密码并解除" Const MSGONLYONE As String =" 确保为唯一的?" 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