Lines Matching refs:aWB
139 Dim aWB As Workbook
163 Set aWB = Workbooks.Open(fileName:=fileName, _
171 Analyze_Password_Protection aWB
172 Analyze_Workbook_Protection aWB
175 SetDocProperties mAnalysis, aWB, fso
177 Analyze_SheetLimits aWB
178 Analyze_SheetDisplay aWB
179 Analyze_SheetIssues aWB
180 Analyze_SheetCharts aWB
181 Analyze_WorkbookVersion aWB
182 Analyze_Macros mAnalysis, userFormTypesDict, aWB
194 If IsOldVersion(aWB.FileFormat) Then
195 aWB.SaveAs fileName:=preparedFullPath, FileFormat:=xlExcel9795
197 aWB.SaveAs preparedFullPath
204 If Not aWB Is Nothing Then
205 aWB.Close (False)
208 Set aWB = Nothing
235 Sub Analyze_SheetCharts(aWB As Workbook)
242 For Each myChartSheet In aWB.Charts
981 Sub Analyze_SheetDisplay(aWB As Workbook)
986 If aWB.Sheets.count = 1 Then Exit Sub
996 For Each ws In aWB.Sheets
1021 Sub Analyze_SheetLimits(aWB As Workbook)
1027 If aWB.Sheets.count < CWORKBOOK_SHEETS_LIMIT + 1 Then Exit Sub
1035 .SubLocation = aWB.name
1042 .Values.Add aWB.Sheets.count
1061 Sub Analyze_SheetIssues(aWB As Workbook)
1068 For Each myWrkSheet In aWB.Worksheets
1207 Sub Analyze_WorkbookVersion(aWB As Workbook)
1215 If IsOldVersion(aWB.FileFormat) Then
1227 .Values.Add aWB.FileFormat
1234 …DoPreparation(mAnalysis, myIssue, RID_STR_EXCEL_NOTE_OLD_OLDWORKBOOKVERSION_PREPARABLE, aProp, aWB)
1537 Sub Analyze_Password_Protection(aWB As Workbook)
1544 If aWB.HasPassword Or aWB.WriteReserved Then
1556 If aWB.HasPassword Then
1560 If aWB.WriteReserved Then
1650 Sub Analyze_Workbook_Protection(aWB As Workbook)
1664 If Not WorkbookProtectTest(aWB, bProtectSharing, bProtectStructure, bProtectWindows) Then
1709 Private Function WorkbookProtectTest(aWB As Workbook, bProtectSharing As Boolean, _
1718 aWB.UnprotectSharing sharingPassword:=" "
1727 aWB.Unprotect Password:=""
1729 If aWB.ProtectStructure = True Then
1732 If aWB.ProtectWindows = True Then