加密、解密 | ExcelOffice

如何用vba批量加密保护excel工作表?

2018年4月7日作者：exceloffice

暂无评论

通过保护excel工作表，可以防止他人修改工作表内容。

在vba中可以使用Worksheet对象的Protect方法保护工作表。

它的语法如下：

expression . Protect( Password , DrawingObjects , Contents , Scenarios , UserInterfaceOnly , AllowFormattingCells , AllowFormattingColumns , AllowFormattingRows , AllowInsertingColumns , AllowInsertingRows , AllowInsertingHyperlinks , AllowDeletingColumns , AllowDeletingRows , AllowSorting , AllowFiltering , AllowUsingPivotTables )

expression . Protect( Password , DrawingObjects , Contents , Scenarios , UserInterfaceOnly , AllowFormattingCells , AllowFormattingColumns , AllowFormattingRows , AllowInsertingColumns , AllowInsertingRows , AllowInsertingHyperlinks , AllowDeletingColumns , AllowDeletingRows , AllowSorting , AllowFiltering , AllowUsingPivotTables )

Protect方法的所有参数都是可选的，连Password参数也可以不提[……]

阅读全文

如何在忘记密码的情况下撤销excel工作表保护？

2017年4月14日作者：exceloffice

暂无评论

excel可以通过设置密码来保护工作表，防止他人修改工作表单元格的内容。

当工作表保护密码忘记时，可以通过以下的vba代码来解除excel工作表的保护密码。

Sub QQ1722187970()
    '撤销工作表保护密码
    Dim oWK As Worksheet
    Dim oWB As Workbook
    Set oWB = ActiveWorkbook
    For Each oWK In oWB.Worksheets
        oWK.Protect AllowFiltering:=True
        oWK.Unprotect
    Next
End Sub

Sub QQ1722187970()

'撤销工作表保护密码

Dim oWK As Worksheet

Dim oWB As Workbook

Set oWB = ActiveWorkbook

For Each oWK In oWB.Worksheets

oWK.Protect AllowFiltering:=True

oWK.Unprotect

End Sub

如何用vba批量加密保护excel工作表?

如何在忘记密码的情况下撤销excel工作表保护？

分类目录

近期文章

功能

如何用vba批量加密保护excel工作表?

如何在忘记密码的情况下撤销excel工作表保护？

分类目录

近期文章

标签

功能