Pcces 工作表密碼解鎖

by chijanzen on 八月 22nd, 2009 | View: 3,893 views

Tags

No Tags

Comments (0)

索引	H0075
主題	Pcces 工作表密碼解鎖
版本	>= 11.0(Office 2003)
說明	工作上經常接觸標案，電子領標下來的excel檔幾乎都會加設密碼，每次下載來的檔案都要做解除密碼的動作還真是麻煩，於是寫了這個小工具來用。其實Pcces轉出的excel檔案密碼都是一樣的 "RATSWVNXYRCMPIZ"，不用這個小工具一樣可以自以手動解除密碼。這個工具只專門用來解Pcces檔案的，其他的密碼一概不能解，要解其他工作表密碼的可以參考移除Excel工作簿及工作表密碼
參考

Code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.CommandBars("Standard").Controls("cmd_PCCES").Delete
    Application.CommandBars("Standard").Controls("cmd_SCTC").Delete
End Sub
　

Private Sub Workbook_Open()
    On Error Resume Next
    Dim TCSCButton As CommandBarButton
    Application.CommandBars("Standard").Controls("cmd_PCCES").Delete
    Set Std_Bar = Application.CommandBars("Standard")
    Set PCCE_Button = Std_Bar.Controls.Add(Type:=msoControlButton, Temporary:=True)
    With PCCE_Button
        .Caption = "cmd_PCCES"
        .OnAction = "xls_UnPcces"
        ThisWorkbook.Sheets("Sheet1").Shapes("PCCES").Copy
        .PasteFace
        .Style = msoButtonIcon
        .TooltipText = "Pcces 解鎖"
    End With
End Sub　

Code

Sub xls_UnPcces()
    Dim sht As Worksheet
    For Each sht In Worksheets
        If sht.ProtectContents Then
        On Error Resume Next
            sht.Unprotect ("RATSWVNXYRCMPIZ")
        End If
    Next
    MsgBox "Pcces 工作表保護已解除"
End Sub