Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Protection reseau sur classeur entier

Protection reseau sur classeur entier

15 réponses
Avatar
Véver
Ma question est la suivante :

Comment puis-je protéger mon classeur pour que seuls les utilisateurs
autorisé (logon ou mot de passe) puissent y accéder ??

J'ai tenté le "Protection de classeur" mais je ne pense pas m'y être pris
correctement car ça ne fonctionne pas.

Merci pour votre aide.

Cordialement,

Véver
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
JB
Bonsoir,

1-Visualise la(les) feuille(s) de l'utilisateur en fonction du mot de
passe

Dans la feuille Admin
Mot passe Feuille
Jacques Boisgontier
Jacques Boisgontier2
Jean Dupont
Invité TouLeMonde

Dans le UserForm

Private Sub B_ok_Click()
If Me.motpasse <> "" Then
For i = 1 To Range("MotPasse").Count
If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) Then
temp = Range("feuille")(i)
Sheets(temp).Visible = True
End If
Next i
End If
Unload Me
End Sub

Dans un Module

Sub auto_open()
UserForm1.Show
End Sub

http://boisgontierjacques.free.fr/fichiers/Protection/ProtectionOngletMulti FeuillesMP.xls


2- Visualise la feuille de l'utilisateur(nom réseau)
Private Sub Workbook_Open()
Sheets(Environ("username")).Visible = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
For s = 2 To Sheets.Count ' on masque les feuilles
Sheets(s).Visible = xlVeryHidden
Next s
End Sub

http://boisgontierjacques.free.fr/fichiers/Protection/ProtectionOngletSimpl e.xls

Cordialement JB

On 16 avr, 19:01, "Véver" wrote:
Ma question est la suivante :

Comment puis-je protéger mon classeur pour que seuls les utilisateurs
autorisé (logon ou mot de passe) puissent y accéder ??

J'ai tenté le "Protection de classeur" mais je ne pense pas m'y être pris
correctement car ça ne fonctionne pas.

Merci pour votre aide.

Cordialement,

Véver


Avatar
Véver
"JB" a écrit dans le message de news:

Bonsoir,

1-Visualise la(les) feuille(s) de l'utilisateur en fonction du mot de
passe

Dans la feuille Admin
Mot passe Feuille
Jacques Boisgontier
Jacques Boisgontier2
Jean Dupont
Invité TouLeMonde

Dans le UserForm

Private Sub B_ok_Click()
If Me.motpasse <> "" Then
For i = 1 To Range("MotPasse").Count
If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) Then
temp = Range("feuille")(i)
Sheets(temp).Visible = True
End If
Next i
End If
Unload Me
End Sub

Dans un Module

Sub auto_open()
UserForm1.Show
End Sub

http://boisgontierjacques.free.fr/fichiers/Protection/ProtectionOngletMultiFeuillesMP.xls


2- Visualise la feuille de l'utilisateur(nom réseau)
Private Sub Workbook_Open()
Sheets(Environ("username")).Visible = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
For s = 2 To Sheets.Count ' on masque les feuilles
Sheets(s).Visible = xlVeryHidden
Next s
End Sub

http://boisgontierjacques.free.fr/fichiers/Protection/ProtectionOngletSimple.xls

Cordialement JB
**************************************************************
Bonjour JB,

Merci pour ta solution, je la mets au chaud mais là je me suis penché sur
celle de MichDenis et ai travaillé avec.
Je joins ci-dessous une capture d'écran de ce que j'ai eu comme message
d'erreur une fois la manip réalisée et le code installé.

Il existe 3 Modules et j'en ai créé un 4ème. La 1ère partie du code dans
"Thisworkbook" et la seconde dans "Module4".

http://img83.imageshack.us/img83/9017/vbaerrsynth2ig3.jpg

Une idée sur ce que j'ai mal fait ?

Cdt,

Hervé
***************************************************************
Avatar
MichDenis
Un fichier exemple là : http://cjoint.com/?erutoGRRzR
Pour ouvrir le fichier, tu dois utiliser un des login suivant: fifi
et le mot de passe associé :

"fifi" -> 10
"riri" -> 20
"loulou" -> 30
"zaza" -> 40

à toi de choisir le nom des usagers et leur mots de passe.
Si l'usager fait plus de 3 erreurs, le classeur se ferme.




"Véver" a écrit dans le message de news:
4624edf9$0$27410$

"JB" a écrit dans le message de news:

Bonsoir,

1-Visualise la(les) feuille(s) de l'utilisateur en fonction du mot de
passe

Dans la feuille Admin
Mot passe Feuille
Jacques Boisgontier
Jacques Boisgontier2
Jean Dupont
Invité TouLeMonde

Dans le UserForm

Private Sub B_ok_Click()
If Me.motpasse <> "" Then
For i = 1 To Range("MotPasse").Count
If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) Then
temp = Range("feuille")(i)
Sheets(temp).Visible = True
End If
Next i
End If
Unload Me
End Sub

Dans un Module

Sub auto_open()
UserForm1.Show
End Sub

http://boisgontierjacques.free.fr/fichiers/Protection/ProtectionOngletMultiFeuillesMP.xls


2- Visualise la feuille de l'utilisateur(nom réseau)
Private Sub Workbook_Open()
Sheets(Environ("username")).Visible = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
For s = 2 To Sheets.Count ' on masque les feuilles
Sheets(s).Visible = xlVeryHidden
Next s
End Sub

http://boisgontierjacques.free.fr/fichiers/Protection/ProtectionOngletSimple.xls

Cordialement JB
**************************************************************
Bonjour JB,

Merci pour ta solution, je la mets au chaud mais là je me suis penché sur
celle de MichDenis et ai travaillé avec.
Je joins ci-dessous une capture d'écran de ce que j'ai eu comme message
d'erreur une fois la manip réalisée et le code installé.

Il existe 3 Modules et j'en ai créé un 4ème. La 1ère partie du code dans
"Thisworkbook" et la seconde dans "Module4".

http://img83.imageshack.us/img83/9017/vbaerrsynth2ig3.jpg

Une idée sur ce que j'ai mal fait ?

Cdt,

Hervé
***************************************************************
Avatar
Véver
"MichDenis" a écrit dans le message de news:

Un fichier exemple là : http://cjoint.com/?erutoGRRzR
Pour ouvrir le fichier, tu dois utiliser un des login suivant: fifi
et le mot de passe associé :

"fifi" -> 10
"riri" -> 20
"loulou" -> 30
"zaza" -> 40

à toi de choisir le nom des usagers et leur mots de passe.
Si l'usager fait plus de 3 erreurs, le classeur se ferme.
*********************************************


Bo,soir,

Merci beaucoup je vais utiliser ceci mais surtout essayer de comprendre. Je
vais avant tout comencer par me familiariser avec tout ça car à mon humble
avis je vais devoir (dans le futur) realiser des classeurs divers.

Je ne sais pas si tu connais mais je viens de trouver celà :
http://www.excel-downloads.com/weblinks/vba-cours-et-tutoriaux.html

Je vais egalement chercher un bouquin sur le net traitant du sujet et ainsi
me permettre de m'en sortir correctement. Ce language me passionne comme
tout ce qui est prog.

Bonne soiree et encore merci MichDenis

Cdt,

Hervé

Ps : merci egalement à JB pour son intervention..

Avatar
MichDenis
| Je ne sais pas si tu connais mais je viens de trouver celà :
| http://www.excel-downloads.com/weblinks/vba-cours-et-tutoriaux.html


Je te conseille ce site, la liste de tous les MVP Excel et l'adresse de leur site
internet. Ça devrait occuper quelques unes de tes soirées.
(La plupart de ces sites sont écrits en anglais) et certains des auteurs de ces
sites ont déjà publiés des volumes sur le sujet ....
http://www.mvps.org/links.html#Excel
1 2