Microsoft Office Access
uređuje Branislav Mihaljev, MVP

Forsiranje automatskog makroa

Nivo:
NIVO 3 - Prilozi na ovom nivou su namenjeni naprednim korisnicima, onima koji se već dobro snalaze u programima i onima koji već imaju iskustva u naprednim tehnikama. Ovom nivou pripadaju preporuke i trikovi koje bi trebalo da savlada svako ko teži dugotrajnom i efikasnom radu u Office programima.

Kada se pri otvaranju baze drži pritisnut taster SHIFT,
automatske procedure pri otvaranju se neće izvršiti.
Šta uraditi ako se na ovaj način može ugroziti stanje aplikacije?

Početni automatski makroi u Office aplikacijama (Autoexec, Auto_Open, Startup, itd.) mogu da posluže u razne svrhe, od otvaranja špice aplikacije, preko programiranja događaja, pa do inicijalizacije parametara sistema važnih za rad aplikacije. U nekim slučajevima ove pripreme mogu biti kritične po integritet aplikacije ili bezbednost podataka i ne bi trebalo dozvoliti korisniku da ih zaobiđe držanjem tastera SHIFT pri otvaranju.

U prilogu vam dajem VBA modul koji će sprečiti ili ponovo dozvoliti zaobilaženje modula Startup u Accessu 95/97/2000. Ove verzije Accessa sadrže svojstva za startovanje objekta tipa Database; postavićemo svojstvo PreskociShift, koje je logičkog tipa. Ako je vrednost postavljena na False, korisnik neće moći zaobići proceduru Startup.

' makroi za sprečavanje zaobilaska
' automatskih makroa tasterom Shift
' Access 95, Access 97

Global Const NemaSvojstva = 3270

Sub ShiftRadi(dozvola As Boolean)

On Error GoTo ShiftRadi_Err
Dim Baza As Database
Set Baza = CurrentDb

Baza.Properties!PreskociShift = dozvola

ShiftRadi_Exit:
Exit Sub

ShiftRadi_Err:

Select Case Err
    Case NemaSvojstva
        ' svojstvo se inicijalizuje prvi put
        Baza.Properties.Append _
          Baza.CreateProperty("PreskociShift", _
          dbBoolean, dozvola)
        Resume Next
    Case Else
        Resume ShiftRadi_Exit
End Select

End Sub