pudelosha

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call UnloadCustomRibbon

End Sub
Private Sub Workbook_Open()

Call LoadCustomRibbon

pudelosha

Option Explicit
Private strUser As String
Private strProvider As String
Private strPath As String
Private strProperties As String
Private strSQL As String
Private strPassword As String
Private con As ADODB.Connection
Property Let ConnProvider(strCPR As String)

pudelosha

Option Explicit
Private db As DAO.Database
Private rst As DAO.Recordset
Private strName As String
Private blnOptions As Boolean
Private blnReadOnly As Boolean
Private strConnect As String
'
' required libraries
' Microsoft Office xx.x Access database engine Objects

pudelosha

Option Explicit
Private PPTApp As PowerPoint.Application
Private PPTPreso As PowerPoint.Presentation
Private PPTPresoReport As PowerPoint.Presentation
Private PPTSlide As PowerPoint.Slide
Private objObjectToExport As Object
Private objNewShape As Object
Private strPresoPath As String
Enum ResizeRescale
    Resize = 1

pudelosha

Option Explicit
Private pvt As PivotTable
Private blnUpdate As Boolean
Private varPivotTables As Variant
Enum OrientationType
    RowField = 1
    ColumnField = 2
    PageField = 3
    DataField = 4
End Enum

pudelosha

Option Explicit
Private objChart As ChartObject
Enum AxisType
    Primary = 1
    Secondary = 2
End Enum
Enum BorderType
    Hairline = 1
    Thin = 2
    Medium = -4138

pudelosha

Option Explicit
Private OTapp As Outlook.Application
Private OTemail As Outlook.MailItem
Private strTo As String
Private strSubject As String
Private strAttachmentPath As String
Private strBodyHTML As String
Private Sub Class_Initialize()

On Error Resume Next

pudelosha

'  ############################ FUNCTION / PROCEDURE LIST ############################
'  ###################################################################################
'
'  1. ListNamedRanges
'        The function lists all custom named ranges. It is possible to provide optional parameter so that the function checks if validated text string contains this value
'  2. ListPivotTableDataSources
'        The procedures lists all pivot tables and their data sources
'  3. NamedRangeHeaders
'        This function returns header names for particular named range
'  4. GetFilePath

pudelosha

Option Explicit
Private Const strToolbarName = "SQL_Tool"
Public Sub ShowToolbar()

On Error Resume Next
Application.CommandBars(strToolbarName).Delete
On Error GoTo 0

Application.CommandBars.Add strToolbarName, , , True

pudelosha

Option Explicit

Private strLVControlName As String
Private WithEvents lv As ListView
Private frm As UserForm
Private strToOpenOnClick As String
Private enItemClick As OnItemClick
Private frmForm As UserForm

Private Enum OnItemClick