怎么判断一个工作簿是加密工作簿？

3m-cat

如题

plxmm

试试：

   If ActiveWorkbook.ProtectStructure Then

lotustower

如果确定要如何保护工作簿或工作表

http://support.microsoft.com/kb/161245/zh-cn

示例 1： 确定是否是保护工作簿

Dim X As Boolean

   Sub Test_Workbook_Protection()

       X = False

       If ActiveWorkbook.ProtectWindows Then X = True
       If ActiveWorkbook.ProtectStructure Then X = True

       If X = False Then
           MsgBox "The workbook is not protected."
       Else
           MsgBox "The workbook is protected."
       End If

   End Sub

例 2： 确定是否工作表被保护

Sub Test_Worksheet_Protection()

       X = False

       If ActiveSheet.ProtectContents Then X = True
       If ActiveSheet.ProtectDrawingObjects Then X = True
       If ActiveSheet.ProtectScenarios Then X = True

       If X = False Then
           MsgBox "The worksheet is not protected."
       Else
           MsgBox "The worksheet is protected."
       End If

   End Sub

HUNGCHILIN

GOOD

TKS

3m-cat

thanks