阅: 3720 | 回: 9
发表于2015/12/31 21:16:20
楼主

-
积分:0
-
财富值:0.0
-
身份:普通用户

-
积分:0
-
财富值:0
-
身份:普通用户
回复:7楼
就第二个功能我录制了一个宏,每次打开文件,自动执行这个宏,先解除表格保护,然后对Cl列进行不为空的筛选,设置不为空的单元格为锁定状态,然后再筛选回来,再给表格加上保护,但是现在有个问题是,如果保护工作表设密码每次打开文件都必须先输入密码才能执行宏,能不能再在宏里加一句代码,让他自动输入密码?
Sub main()
'
' main
'
'
ActiveSheet.Unprotect
ActiveSheet.Range("$A$1:$F$626").AutoFilter Field:=3, Criteria1:="<>"
Range("C2:C643").Select
Selection.Locked = False
Selection.FormulaHidden = False
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Range("$A$1:$F$626").AutoFilter Field:=3
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
Range("D7").Select
End Sub
我的个性签名