tUX4#{)q(j
6、Sub pro_cell()'将此代码放入sheet1,则me=sheet1,主要是认识me Me.Unprotect Cells.Locked = FalseRange("D11:E11").Locked = True Me.Protect End Sub 7、Application.CommandBars("Ply").Enabled = False'工作表标签上快捷菜单失效 8、Sub aa()'把B1到B12单元格的数据填入c1到c12For i = 1 To 12 Range("C" & i) = Range("B" & i)Next i End Sub 9、ActiveCell.AddCommentSelection.Font.Size = 12'在点选的单元格插入批注，字体为12号 10、Private SubWorksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel =True End Sub 11、ScrollArea 属性 参阅应用于示例特性以 A1 样式的区域引用形式返回或设置允许滚动的区域。用户不能选定滚动区域之外的单元格。String类型，可读写。 说明 可将本属性设置为空字符串 ("") 以允许对整张工作表内所有单元格的选定。示例 本示例设置第一张工作表的滚动区域。 Worksheets(1).ScrollArea ="a1:f10" 12\if application.max([a1:e1])=10 then msgbox""commandbutton1.enabled=false 'A1—E1最大的数值达到10时，自动弹出对话框，并冻结按钮 12、本示例将更改的单元格的颜色设为蓝色。 Private SubWorksheet_Change(ByVal Target as Range) Target.Font.ColorIndex = 5 End Sub
