Možes broj da upisuje i da ga citas iz Registar baze, kljuc (HKEY_CURRENT_USER\Software\VB and VBA Program Settings)
Code:
Private Sub Workbook_Open()
On Error GoTo hmgreska
Dim brojOt As Integer
Dim ZaGresku As Integer
Dim Ponovi As Integer
Dim Procitaj As Variant
'Citanje prethodne vrednosti iz registar baze (HKEY_CURRENT_USER\Software\VB and VBA Program Settings)
Procitaj = GetAllSettings(appname:="Predracun", section:="Vrednost")
brojOt = Procitaj(Ponovi, 1) + 1
'Pretpostavka je da ti je taj broj potreban u celiji A2,
'a sam prikaz u formatu 000 podesi iz menija format cells ili iskombinuj sa prethodnim primerom
Cells(2, 1).Value = brojOt
' Upis nove vrednosti u registar bazu
SaveSetting appname:="Predracun", section:="Vrednost", _
key:="Broj otvaranja", setting:=brojOt
Exit Sub
hmgreska:
MsgBox "Nije postavljena pocetna vrednost ili je kljuc izbrisan iz Registar baze", vbOKOnly, "GRESKA"
ZaGresku = InputBox("Unesite novu pocetnu vrednost", "Unosenje inicijalne vrednosti brojaca", 0)
SaveSetting appname:="Predracun", section:="Vrednost", _
key:="Broj otvaranja", setting:=ZaGresku
End Sub
Možda je tačno da je sve već rečeno, samo nisu svi sve čuli i razumeli ...