閱: 4709 | 回: 9
發(fā)表于2015/12/31 21:16:20
樓主
等級:初學(xué)者
-
積分:0
-
財(cái)富值:0.00
-
身份:普通用戶
1、E列默認(rèn)值為“NO”,E列的更新只能在C列時(shí)間之前,超期不管有沒有完成,E列將鎖定不能操作
2、c列計(jì)劃時(shí)間輸入,保存之后將不能修改
2、c列計(jì)劃時(shí)間輸入,保存之后將不能修改
我的個(gè)性簽名
等級:初學(xué)者-
積分:0 -
財(cái)富值:0 -
身份:普通用戶
回復(fù):7樓
就第二個(gè)功能我錄制了一個(gè)宏,每次打開文件,自動(dòng)執(zhí)行這個(gè)宏,先解除表格保護(hù),然后對Cl列進(jìn)行不為空的篩選,設(shè)置不為空的單元格為鎖定狀態(tài),然后再篩選回來,再給表格加上保護(hù),但是現(xiàn)在有個(gè)問題是,如果保護(hù)工作表設(shè)密碼每次打開文件都必須先輸入密碼才能執(zhí)行宏,能不能再在宏里加一句代碼,讓他自動(dòng)輸入密碼?
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
我的個(gè)性簽名

等級:傳說級人物