CountOfLines If nLines 0 Then sMod = VBMod. CodeModule Dim nLines As Long, sMod As String 'get each module one at a time For Each VBComp In wb. 'Set reference to Microsoft VBA Extensibility 5.5 Dim VBComp As VBIDE. Count On Error GoTo 0 If nComp = - 1 Then IsProtectedVBProject = True Else IsProtectedVBProject = False End If End Function Private Function WbkHasVBA ( ByVal wb As Workbook ) As Boolean 'returns true if workbook contains VBA, else false. Close End Sub Function IsProtectedVBProject ( ByVal wb As Workbook ) As Boolean 'returns TRUE if VBA is password protected, else false Dim nComp As Integer nComp = - 1 On Error Resume Next nComp = wb. FullName & vbCrLf & _ "DOES NOT contain VBA code structure." End If Else MsgBox "The VBA Project is LOCKED " & vbCrLf & _ "might have VBA but unable to confirm." End If 'close the test workbook wb. FullName & vbCrLf & _ "CONTAINS VBA code structure." Else MsgBox "Workbook " & wb. Open ( "Book2.xlsm" ) 'check for code if project is not locked If IsProtectedVBProject ( wb ) = False Then 'check for vba code If WbkHasVBA ( wb ) = True Then MsgBox "Workbook " & wb. Option Explicit Sub CheckForVBA () 'Run this procedure to know whether a specified workbook has VBA code 'Assumes that workbook to test is in same folder and called Book2.xlsm 'Set reference to Microsoft VBA Extensibility 5.5 Dim wb As Workbook, nL As Long, bR As Boolean 'set full address of workbook to test here 'if just file name then same folder is assumed Set wb = Workbooks.
0 kommentar(er)
