VBA - GeneralSettings Module

*Source: *

Contents

• Declarations
• GetGeneralSettings Function
• SaveGeneralSettings Function
• Appendix: Links

Declarations

Public Const AppName = "OptimizeExcel"
Public Const SettingsName = "General Settings"
Public Const Setting_MaximumRunningTime = "Maximum running time [seconds]"
Dim GeneralSettingsDict As Object

GetGeneralSettings Function

Function GetGeneralSettings() As Object
    If GeneralSettingsDict Is Nothing Then
        Set GeneralSettingsDict = CreateObject("Scripting.Dictionary")
        GeneralSettingsDict.Add Setting_MaximumRunningTime, GetSetting(AppName, SettingsName, Setting_MaximumRunningTime, 10 * 60)
    End If
    Set GetGeneralSettings = GeneralSettingsDict
End Function

SaveGeneralSettings Function

Sub SaveGeneralSettings()
    Dim key
    For Each key In GeneralSettingsDict.Keys
       Call SaveSetting(GeneralSettings.AppName, SettingsName, key, GeneralSettingsDict(key))
    Next key
End Sub

---

Appendix: Links

• Code
• Development
• Excel
• Microsoft Office
• Excel - VBA

Backlinks:

list from [[VBA - GeneralSettings Module]] AND -"Changelog"