Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
'Aktiverer arket Grunnlag-Støtte. Det er her info om den gjeldende sammenhengen mellom<br />
støttestruktur og operativ struktur er lagret<br />
Sheets("Grunnlag-Støtte").Activate<br />
'Sjekker hvilken sammenheng som er gjeldene for deretter å markere det rette alternativet i<br />
skjemaet<br />
If Range("O2").Value = "F" Then '100% fast er gjeldende alternativt<br />
optFast.Value = True<br />
ElseIf Range("O2").Value = "V" Then '100% variabel er gjeldende alternativ<br />
optVariabel = True<br />
Else<br />
optNormal.Value = True 'Opprinnelige verdier er gjeldende alternativ<br />
End If<br />
26<br />
'Aktiverer arket Forsvaret og slår på skjermoppdateringen<br />
Sheets("Forsvaret").Activate<br />
Application.ScreenUpdating = True<br />
A.2 Skjemaet frmLogin<br />
A.2.1 Hensikt<br />
For å begrense tilgangen til grunnlagsdataene som ligger i modellen er arkene som inneholder<br />
disse dataene beskyttet med en enkel innloggingsfunksjon. Når brukeren trykker på et av disse<br />
arkene vil skjemaet frmLogin dukke opp dersom brukeren ikke allerede er logget inn. Under<br />
vises skjemaet slik det ser ut i Excel<br />
Figur A.2 Skjemaet frmLogin i MORSK<br />
A.2.2 Kildekode<br />
A.2.2.1 Prosedyren cmdAvbryt_Click()<br />
'Avbryter innloggingen ved å lukke skjemaet og sender brukeren til skjemaet Forsvaret<br />
Unload frmLogin
Change language