class module retrieval Free Excel Macros (VBA) | Excel Programs

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php

Option Explicit

Private mcolUndoObjects As Collection
Private mUndoObject As clsUndoObject

Public Function AddAndProcessObject(oObj As Object, sProperty As String, vValue As Variant) As Boolean
    Set mUndoObject = New clsUndoObject
    With mUndoObject
        Set .ObjectToChange = oObj
        .NewValue = vValue
        .PropertyToChange = sProperty
        mcolUndoObjects.Add mUndoObject
        If .ExecuteCommand = True Then
            AddAndProcessObject = True
        Else
            AddAndProcessObject = False
        End If
    End With
End Function

Private Sub Class_Initialize()
    Set mcolUndoObjects = New Collection
End Sub

Private Sub Class_Terminate()
    ResetUndo
End Sub

Public Sub ResetUndo()
    While mcolUndoObjects.Count > 0
        mcolUndoObjects.Remove (1)
    Wend
    Set mUndoObject = Nothing
End Sub

Public Sub UndoAll()
    Dim lCount As Long
    '    On Error Resume Next
    For lCount = mcolUndoObjects.Count To 1 Step -1
        Set mUndoObject = mcolUndoObjects(lCount)
        mUndoObject.UndoChange
        Set mUndoObject = Nothing
    Next
    ResetUndo
End Sub

Public Sub UndoLast()
    Dim lCount As Long
    '    On Error Resume Next
    If mcolUndoObjects.Count >= 1 Then
        Set mUndoObject = mcolUndoObjects(mcolUndoObjects.Count)
        mUndoObject.UndoChange
        mcolUndoObjects.Remove mcolUndoObjects.Count
        Set mUndoObject = Nothing
    Else
        ResetUndo
    End If
End Sub

Public Function UndoCount() As Long
    UndoCount = mcolUndoObjects.Count
End Function

No	Macro Name
1	class module retrieval
2	excel operators hk
3	Using a Class Module to Capture Events in Excel
4	learning the message with classmodule2
5	calculator on / off
6	Define format for all textboxes
7	learning with classmodule
8	find-delete-change-save codes2
9	Coloring the inside of the textbox with the mouse
10	add time as menu (most reliable)
11	creates a copy of the book by deleting userformmodulclass
12	informs which button is pressed (commandbutton)
13	Listing Subprograms in a Workbook
14	dialog box without userform
15	userform full screen2
16	userform on top right
17	a1: a30 class name b1-b30 class 2 notation
18	userform auto sizing
19	to the code section of the userform
20	The title of your userform is +

Excel Free Macros (VBA)

Class Module Retrieval

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords