Test if the workbook is protected with XLS Padlock

 

Purpose: test if the workbook is protected with XLS Padlock

In a module, insert the following code:

Public Function XLSPadlockAvailable() As Boolean

Dim XLSPadlock As Object

On Error Resume Next

Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object

XLSPadlockAvailable = XLSPadlock.IsProtected()

End Function

 

You can then call the function:

Sub Test_Protected()

 If XLSPadlockAvailable() Then

  MsgBox "Protected"

 Else

  MsgBox "Not Protected"

 End If

End Sub

 


Copyright © 2021 G.D.G. Software