UserForm LogIn

Salve a tutti,
Allora ho un quesito spigoloso da sottoporvi, ho creato un DataBase in Excel, con diversi fogli di lavoro all' interno della stessa cartella.
Ora dato che il DataBase e condiviso nell'utilizzo con altri due miei colleghi (che non fanno altro che combinare Danni ) vorrei creare una userform di accesso con utente Admin che avra possibilita' di accesso a tutti I Fogli e tutte le opzioni, e un utente Users con accesso limitato solo ad alcuni fogli e la sola possibilita' di inserire dati.
Ora so che molti mi suggeriranno di proteggere I fogli con una password, ma il problema e' che I fogli sono molti e molti di loro anno delle macro registrate che con la protezzione attivata vanno in debug, quindi per operare ogni volta devo rimuovere la protezione e poi a fine lavoro riproteggere il tutto.
Allora al momento ho gia' creato una Userform di LogIn con Nome Utente e Password che funziona, ma mi sono arenato non riesco a procedure con le abilitazioni.
Qualcuno Sa aiutarmi
Appena posso postero il codice Vba che ho scopiazzato e sistemato alle mie esigenze.

Ecco Il codice
Private Sub CommandButton1_Click()
Dim Username, Password As String
Username = TextBox1.Text
Password = TextBox2.Text
If Username = "Pippo" And Password = "Pippo" Then
MsgBox "UserName e Password Corretti", vbInformation
Sheets("Home").Select
Unload Me 'Apri il form

Else
MsgBox "Username e Password non corretti", vbCritical
End If
End Sub

allega un file di esempio indicando quali fogli devono essere accessibili agli utenti

Ecco Il file
In pratica all'accesso, l'utente Admin deve poter operare su tutti fogli, metre l'utente Users deve poter accedere al foglio Home, se si puo al foglio1 accesso limitato solo all'inserimento dei dati, mentre gli altri fogli non devono essere accessibili.
In alternativa, si puo' procedere in questo modo?
Se mi logo come amministratore, disabilita in automatico tutte le protezioni sui fogli, se invecie mi logo come user rimuovi solo la protezione del foglio1

Ti allego il file dove sto sperimendo le possibili soluzioni
Le credenziali di accesso al file sono Utente Pippo Password Pippo

NON MI CARICA IL FILE

devi zipparlo, altrimenti caricalo su un sito di share e posta il link

http://ge.tt/5cRX7lK1/v/0?c

Eccolo Spero d'aver fatto tutto nel modo corretto

non mi pare, non so come scaricarlo

Ma io lo provato cosi:
Copio il il link lo incollo nella barra degli indirizzi di Internet Explorer e mi si apre la pagina del limk e faccio clik su Donwload.

con Firefox non riuscivo a scaricarlo, con IE sì
Mi sembra che funzioni bene, qual'è il problema ?
Io eliminerei la userform1 e lascerei solo la 2 che limita l'accesso al foglio1, vedi allegato

allegato

Si In Effetti funziona, ma non come vorrei io!
Mi spiego.
Con questo codice ho creato due variabili alle quali ho assegnato I valori delle textbox1 e textbox2.
Dopo di che ho creato una condizione If che non fa altro che verificare le condizioni contenute nelle due textbox, che se sono vere mi fa logare, se non lo sono no.
Fin qui ci siamo.
Cio' che vorrei ottnere invecie, e un codice un po' piu' complesso, nel senso che, Vorrei creare due utenti diversi con due password diverse, con possibilita' di accesso diverso.
Come procedo in questo senso?
Devo creare delle variabili per ogni singolo utente?
Devo creare delle variabili per ogni password?
Come devo impostare la condizione If per fargli verificare le condizioni.
Come faccio a stabilire che l'utente Admin a accesso a tutti I fogli, mentre l'utente users no.

Si In effetti anche io avevevo pensanto a questa possibilita', ma mi piacerebbe riuscire a capire come implementare la prima ipostesi e cioe' quella della LogIn.
Tu che ne pensi?
E molto complicato da realizzare, sai mi appassionando al Vba.
Puoi darmi qualche suggerimento.

Grazie
Giorgio

prova questo allegato, gli utenti consentiti sono
Pippo,giorgio,admin

Grazie
E' stato un vero piacere

Ottimo Articolo bravi

Salve a tutti, nonostante abbiate pubblicato la discussione tanti anni fa la trovo utile e ricca di consigli.