Lines Matching refs:xl
291 Public Function CheckForAccesToExcelVBProject1(xl As Excel.application, RestoreValue As Long) As Bo…
295 If val(xl.Version) < 10# Then Exit Function
298 displayAlerts = xl.displayAlerts
299 xl.displayAlerts = False
300 Set myProject = xl.ActiveWorkbook.VBProject
303 If GiveAccessToMacroProject(APP_EXCEL, xl.Version, RegValue) Then
310 xl.displayAlerts = displayAlerts
313 Public Function CheckForAccesToExcelVBProject(xl As Excel.application) As Boolean
316 If val(xl.Version) < 10# Then Exit Function
319 displayAlerts = xl.displayAlerts
320 xl.displayAlerts = False
321 Set myProject = xl.ActiveWorkbook.VBProject
325 xl.displayAlerts = displayAlerts