首先明确要覆盖的3类核心场景,必须100%覆盖:行政公文档案、业务专项档案、涉密特殊档案,每类档案对应责任人提前1个工作日提交《制度落实自查表》,可直接使用下方模板:
| 档案类别 | 归档总份数 | 按时归档份数 | 要件完整份数 | 存储合规份数 | 责任人签字 |
|---|---|---|---|---|---|
| 行政公文档案 | |||||
| 业务专项档案 | |||||
| 涉密特殊档案 |
所有工具均为免费可直接获取,无需额外采购:
第一步核对现有档案操作与已发布制度的匹配度,必须逐一核对以下3项核心规则:
抽样规则:按档案总量的15%抽取,不足100份的全量核验,抽样覆盖所有档案类别、所有归档责任人,可直接复制下方VBA代码到Excel宏编辑器运行,自动完成随机抽样: ``` Sub 档案随机抽样() Dim arr, brr, i As Long, k As Long, m As Long, rndNum As Long arr = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row) 'A列为所有档案编号 m = WorksheetFunction.RoundUp(UBound(arr) 0.15, 0) '抽取15%样本,向上取整 If m < 1 Then m = UBound(arr) '不足1份全量抽取 ReDim brr(1 To m, 1 To 1) With CreateObject("Scripting.Dictionary") Do While .Count < m Randomize rndNum = Int((UBound(arr) - LBound(arr) + 1) Rnd + LBound(arr)) If Not .exists(arr(rndNum, 1)) Then .Add arr(rndNum, 1), "" k = k + 1 brr(k, 1) = arr(rndNum, 1) End If Loop End With Range("C2").Resize(m) = brr 'C列输出抽样结果 End Sub ``` 运行后直接导出抽样名单,按名单逐一核验档案真实性,比对纸质档案与电子档案的内容、签章、日期是否完全一致。
所有核查出的问题必须按“问题类型-责任主体-整改时限”三个维度录入问题台账,台账必填字段:问题编号、档案编号、问题描述、责任人、整改时限(一般问题3个工作日,严重问题1个工作日)、整改验证人,不得缺项。

评分规则:满分100分,时效合规占30分,要件完整占40分,存储合规占30分,得分低于80分的判定为落实不合格,低于60分的判定为严重不合格,评分公式可直接复制到Excel对应单元格:
=IF(时效合规率=1,30,ROUND(30时效合规率,0))+IF(要件完整率=1,40,ROUND(40要件完整率,0))+IF(存储合规率=1,30,ROUND(30存储合规率,0))
其中时效合规率=按时归档份数/总归档份数,要件完整率=要件完整份数/总归档份数,存储合规率=存储合规份数/总归档份数。
责任人提交整改材料后,必须由非原核查人员进行交叉验证,验证通过后标记为闭环,未通过的重新下发整改通知,整改时限减半,同一问题连续2次整改未通过的,直接同步至人力资源部门纳入绩效考核。
设置固定监督周期,可直接在飞书日历中配置自动提醒规则:
1. 档案系统没有时间戳导出权限:直接提交权限申请,模板可直接复制:“因档案制度落实效果监督工作需要,申请档案系统入库时间戳、访问日志导出权限,使用期限3个工作日,申请人:XXX,申请日期:XXXX年XX月XX日”,一般1个工作日内可审批通过。
2. 抽样后找不到对应纸质档案:直接标记为“档案丢失”,按严重不合格处理,同时要求责任人24小时内提交书面说明,明确补全方案。
3. 责任人拒不整改:直接将问题台账同步给人力资源部门,对应扣分规则可直接套用:一般问题未整改扣2分/项,严重问题未整改扣5分/项,直接与当月绩效奖金挂钩。