VBA一些零碎知识

1，动态创建空间

 ActiveSheet.OLEObjects.Add ClassType:="Forms.CheckBox.1", Link:=False, DisplayAsIcon:=False, Left:=300, top:=topnum, Width:=80, Height:=30

2，得到当前选中单元的行数

ActiveCell.Row

 3，设置工作表保护

先取消工作表保护（工具－保护－保护工作表），再作操作，再保护工作表。具体代码可以录制宏看看。