标签 ‘ excel

[Excel VBA] 破解Excel工作簿保护

同事工作簿保护密码忘记了,正好找到一个,亲测有效,Excel2007通过。记录一下,以备不时之需。

Sub 破解工作薄保护()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
False, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Unprotect
End Sub
  • [Excel VBA] 破解Excel工作簿保护已关闭评论

[Excel VBA]单元格更改后自动排序

项目正好用到,记录一下,excel 2007 测试通过。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
i = Selection.Row
j = Selection.Column

Range("A6").Select
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
Cells(i, j).Select
End If
End Sub

  • [Excel VBA]单元格更改后自动排序已关闭评论

Excel-vlookup 逆向查询公式

Vlookup 逆向查询

  • Excel-vlookup 逆向查询公式已关闭评论

VBA 隐含模块中的编译错误 解决办法

在Office 2003下面编的小程序,在office 2000下无法正常运行,提示:隐含模块中的编译错误:MainForm。程序无法运行,自动退出。调试发现,一些内置函数都会报相同错误,莫名啊。
  阅读全文

  • VBA 隐含模块中的编译错误 解决办法已关闭评论

return top