[4] Excel VBA - zliczanie liczby otworzeń dokumentu

Tym razem chciałem przedstawić proste makro, którego zadaniem jest zliczanie liczby otworzeń dokumentu. 

Program

Makro tego typu musi być umieszczone w Microsoft Excel Object, ten skoroszyt (ang. ThisWorkbook). Nie tworzy się go poprzez dodanie nowego modułu w VBA, ponieważ w takim przypadku nie zadziała.

Private Sub Workbook_Open()
 
    Dim Licz As Long
    Licz = GetSetting("MyApp", "Settings", "Open", 0)
    Licz = Licz + 1
 
    SaveSetting "MyApp", "Settings", "Open", Licz
    MsgBox "Dokument został otwarty " & Licz & "razy"
 
End Sub

Makro wywołuje konkretne zdarzenie jakie jest zdefiniowane w jej nagłówku. W tym przypadku zostanie wywołane jak dokument zostanie otwarty. Następnie została zdefiniowana zmienna odpowiedzialna za przechowywanie liczby otwarć dokumentu. Dalej zostają pobrane ustawienie do zmiennej, w kolejnym kroku wartość zmiennej zostaje zmieniona. Następuje zapisanie ustawień i wyświetlenie okna z informacją dla użytkownika

Rys. 1.1. Działanie programu