Using classes to store user credentials

Hi,

I consider using a class to store if the user has been authorized.
Something like:
Dim thisUser as new clsUser
thisUser.IsAuthorized = True

But I don't know how to preserve this instance of the class, together with
it's properties, throughout the life of the application.

Could you help me?

Thank's in advance

Philippe

Create a Collection object as a global variable (declared outside
of and prior to any procedure in the module), and then use
Set/New to create an instance of your class, then store that
instance in the collection. E.g.,


Dim MyUsers As New Collection

Sub MySub()
Dim thisUser As clsUser
Set thisUser = New clsUser
MyUsers.Add thisUser
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Philippe Pons" <[email protected]> wrote in
message news:[email protected]...
> Hi,
>
> I consider using a class to store if the user has been
> authorized.
> Something like:
> Dim thisUser as new clsUser
> thisUser.IsAuthorized = True
>
> But I don't know how to preserve this instance of the class,
> together with
> it's properties, throughout the life of the application.
>
> Could you help me?
>
> Thank's in advance
>
> Philippe
>
>

Thank you Chip,

A further question if you mind.
How can I get to the thisUser properties later on, I mean during execution
of a diffrent procedure.
If I write: MyUsers.thisUser.someProp, I get an error that MyUsers is
undefined!

TIA,
Philippe

"Chip Pearson" <[email protected]> a écrit dans le message de
news:%[email protected]...
> Create a Collection object as a global variable (declared outside
> of and prior to any procedure in the module), and then use
> Set/New to create an instance of your class, then store that
> instance in the collection. E.g.,
>
>
> Dim MyUsers As New Collection
>
> Sub MySub()
> Dim thisUser As clsUser
> Set thisUser = New clsUser
> MyUsers.Add thisUser
> End Sub
>
>
> --
> Cordially,
> Chip Pearson
> Microsoft MVP - Excel
> Pearson Software Consulting, LLC
> www.cpearson.com
>
>
>
>
> "Philippe Pons" <[email protected]> wrote in
> message news:[email protected]...
> > Hi,
> >
> > I consider using a class to store if the user has been
> > authorized.
> > Something like:
> > Dim thisUser as new clsUser
> > thisUser.IsAuthorized = True
> >
> > But I don't know how to preserve this instance of the class,
> > together with
> > it's properties, throughout the life of the application.
> >
> > Could you help me?
> >
> > Thank's in advance
> >
> > Philippe
> >
> >
>
>

You need to access the Collection item. E.g.,

MyUsers(1).SomeProp


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Philippe Pons" <[email protected]> wrote in
message news:[email protected]...
> Thank you Chip,
>
> A further question if you mind.
> How can I get to the thisUser properties later on, I mean
> during execution
> of a diffrent procedure.
> If I write: MyUsers.thisUser.someProp, I get an error that
> MyUsers is
> undefined!
>
> TIA,
> Philippe
>
> "Chip Pearson" <[email protected]> a écrit dans le message de
> news:%[email protected]...
>> Create a Collection object as a global variable (declared
>> outside
>> of and prior to any procedure in the module), and then use
>> Set/New to create an instance of your class, then store that
>> instance in the collection. E.g.,
>>
>>
>> Dim MyUsers As New Collection
>>
>> Sub MySub()
>> Dim thisUser As clsUser
>> Set thisUser = New clsUser
>> MyUsers.Add thisUser
>> End Sub
>>
>>
>> --
>> Cordially,
>> Chip Pearson
>> Microsoft MVP - Excel
>> Pearson Software Consulting, LLC
>> www.cpearson.com
>>
>>
>>
>>
>> "Philippe Pons" <[email protected]> wrote in
>> message news:[email protected]...
>> > Hi,
>> >
>> > I consider using a class to store if the user has been
>> > authorized.
>> > Something like:
>> > Dim thisUser as new clsUser
>> > thisUser.IsAuthorized = True
>> >
>> > But I don't know how to preserve this instance of the class,
>> > together with
>> > it's properties, throughout the life of the application.
>> >
>> > Could you help me?
>> >
>> > Thank's in advance
>> >
>> > Philippe
>> >
>> >
>>
>>
>
>