Excel批量保护或者隐藏公式,这篇足够!



效果演示:批量保护

动画操作说明:
1、批量保护:可以自定义密码,是否隐藏公式
2、批量取消:使用同一个函数,需要原密码和Unpro设置为True
3、如何使用宏教程:如何使用写好的宏
保护和隐藏公式自定义函数源码:

'**************************************************'日期:2020年10月7日'**************************************************'日期:2020年10月7日'作者:Excel办公实战-小易'功能:保护工作表公式(隐藏)'参数: '1.ws-必选,需要保护的工作表对象 '2.NewPassword-可选,保护的密码 '3.OldPassword-可选,如果已保护,提供密码 '4.bHidden-可选,是否隐藏公式 '5.bUnPro-可选,取消保护'***************************************************Function ProSht(ByRef ws As Worksheet, _ Optional ByVal NewPassword, _ Optional ByVal OldPassword, _ Optional ByVal bHidden As Boolean = True, _ Optional ByVal bUnPro As Boolean = False)
On Error Resume Next With ws
'取消保护(如果已经保护过) If .ProtectContents Then If Not IsMissing(OldPassword) Then _ .Unprotect OldPassword Else .Unprotect End If 'bUnPro=True,取消保护-结束 If bUnPro Then GoTo sEnd '全表取消锁定 With .Cells .Locked = False .FormulaHidden = False End With '尝试定位公式并保护 With .Cells.SpecialCells(xlCellTypeFormulas, 23) .Locked = True .FormulaHidden = bHidden End With '保护工作表 If Err.Number > 0 Then Err.Clear Else .Protect NewPassword End WithsEnd:End Function 赞 (0)
