Mot de passe

Le
Thierry
Bonjour,

j'ai un fichier excel a qui j'ai donné lors de l'enregistrement deux mots de
passes :

- un pour la lecture
- un pour la mise à jour

Ma question est la suivante lors de l'ouverture de ce classeur je voudrais
qu'automatiquement dans le cas d'une ouverture avec le mot de passe en
lecture :

- verrouiller tout le classeur (aucun accés aux
cellules, aucun accés au macro et code des modules, rendre invisible une
feuille qui s'appelle Paramètres)

Dans le cas d'une ouverture en mise à jour pouvoir automatiquement accéder à
tout.

Est ce possible ?

Merci.

--
Ne pas répondre à l'adresse anti-spam.






Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 15:57:55
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 3
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JP25
Le #4511461
Bonjour,
Il faut une procèdure VBA style Sub auto_open, qui ouvre une userform, puis
tester le mot de passe et ecrire les 2 proc de protèction
Protèger également le code VBA
JP25
"Thierry"
Bonjour,

j'ai un fichier excel a qui j'ai donné lors de l'enregistrement deux mots
de passes :

- un pour la lecture
- un pour la mise à jour

Ma question est la suivante lors de l'ouverture de ce classeur je voudrais
qu'automatiquement dans le cas d'une ouverture avec le mot de passe en
lecture :

- verrouiller tout le classeur (aucun accés aux
cellules, aucun accés au macro et code des modules, rendre invisible une
feuille qui s'appelle Paramètres)

Dans le cas d'une ouverture en mise à jour pouvoir automatiquement accéder
à tout.

Est ce possible ?

Merci.

--
Ne pas répondre à l'adresse anti-spam.





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 15:57:55
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





FFO
Le #4511331
Salut Thierry
Je te propose ce code à mettre dans ThisWorkbook

Private Sub Workbook_Open()
Identité = InputBox("veuillez saisir le mot de passe", "Mot de passe", "")
If Identité = "Lecture" Then
Sheets("Paramètres").Select
ActiveWindow.SelectedSheets.Visible = False
For I = 1 To Sheets.Count
Sheets(I).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(I).EnableSelection = xlNoSelection
Next
ActiveWorkbook.Protect Structure:=True, Windows:úlse
Else
If Identité = "Mise à jour" Then
For J = 1 To Sheets.Count
Sheets(J).Unprotect
Next
ActiveWorkbook.Protect Structure:úlse, Windows:úlse
Sheets("Paramètres").Visible = True
Else
ThisWorkbook.Close
Application.Quit
End If
End If
End Sub

Tu n'as plus qu'à l'actualiser des mots de passe :

Pour la lecture uniquement la ligne
If Identité = "Lecture" Then
Pour la mise à jour la ligne :
If Identité = "Mise à jour" Then


Je pense que celà devrait faire

Dis moi !!!


Bonjour,

j'ai un fichier excel a qui j'ai donné lors de l'enregistrement deux mots de
passes :

- un pour la lecture
- un pour la mise à jour

Ma question est la suivante lors de l'ouverture de ce classeur je voudrais
qu'automatiquement dans le cas d'une ouverture avec le mot de passe en
lecture :

- verrouiller tout le classeur (aucun accés aux
cellules, aucun accés au macro et code des modules, rendre invisible une
feuille qui s'appelle Paramètres)

Dans le cas d'une ouverture en mise à jour pouvoir automatiquement accéder à
tout.

Est ce possible ?

Merci.

--
Ne pas répondre à l'adresse anti-spam.





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 15:57:55
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






Thierry
Le #4510981
Merci pour ce code.

Je vais le tester demain.

Est ce que ce code marche aussi pour interdire l'accès a VBA ? Je voudrais
aussi bloquer cette possibilité.

"FFO"
Salut Thierry
Je te propose ce code à mettre dans ThisWorkbook

Private Sub Workbook_Open()
Identité = InputBox("veuillez saisir le mot de passe", "Mot de passe", "")
If Identité = "Lecture" Then
Sheets("Paramètres").Select
ActiveWindow.SelectedSheets.Visible = False
For I = 1 To Sheets.Count
Sheets(I).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(I).EnableSelection = xlNoSelection
Next
ActiveWorkbook.Protect Structure:=True, Windows:úlse
Else
If Identité = "Mise à jour" Then
For J = 1 To Sheets.Count
Sheets(J).Unprotect
Next
ActiveWorkbook.Protect Structure:úlse, Windows:úlse
Sheets("Paramètres").Visible = True
Else
ThisWorkbook.Close
Application.Quit
End If
End If
End Sub

Tu n'as plus qu'à l'actualiser des mots de passe :

Pour la lecture uniquement la ligne
If Identité = "Lecture" Then
Pour la mise à jour la ligne :
If Identité = "Mise à jour" Then


Je pense que celà devrait faire

Dis moi !!!


Bonjour,

j'ai un fichier excel a qui j'ai donné lors de l'enregistrement deux mots
de
passes :

- un pour la lecture
- un pour la mise à jour

Ma question est la suivante lors de l'ouverture de ce classeur je
voudrais
qu'automatiquement dans le cas d'une ouverture avec le mot de passe en
lecture :

- verrouiller tout le classeur (aucun accés aux
cellules, aucun accés au macro et code des modules, rendre invisible une
feuille qui s'appelle Paramètres)

Dans le cas d'une ouverture en mise à jour pouvoir automatiquement
accéder à
tout.

Est ce possible ?

Merci.

--
Ne pas répondre à l'adresse anti-spam.





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 15:57:55
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 19:50:22
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 19:54:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


FFO
Le #4510631
Re bonjour Thierry
Je n'ai pas inclu la protection du VBA dans ce code
Si tu souhaites le protéger je te propose une fois installé de l'activer
manuellement :
Click droit sur ThisWorkbook/Proprièté de VBAProject icone Protection
Cocher Verrouiller le projet pour l'affichage
Saisir un mot de passe
le confirmer
enregistrer
A l'ouverture suivante le VBA sera inaccessible sauf en le déverrouillant
avec le mot de passe

J'ai légèrement modifié le code pour inclure les protections avec mot de
passe du classeur et des feuilles
Ce qui avait l'inconvénient d'accéder à leur activation et desactivation de
manière libre
Afin de ne pas demander 2 fois le même mot de passe notamment pour l'option
mise à jour (une fois pour faire fonctionner le code l'autre fois pour
permettre la déprotection) j'ai intégré la saisie à l'ouverture du document
dans l'instruction de déprotection
Le code corrigé :

Private Sub Workbook_Open()
Identité = InputBox("veuillez saisir le mot de passe", "Mot de passe", "")
If Identité = "Lecture" Then
If Sheets("Paramètres").Visible = True Then
Sheets("Paramètres").Select
ActiveWindow.SelectedSheets.Visible = False
End If
For I = 1 To Sheets.Count
Sheets(I).Protect "Mise à jour", DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets(I).EnableSelection = xlNoSelection
Next
ActiveWorkbook.Protect "Mise à jour", Structure:=True, Windows:úlse
Else
If Identité = "Mise à jour" Then
For J = 1 To Sheets.Count
Sheets(J).Unprotect Identité
Next
ActiveWorkbook.Protect Identité, Structure:úlse, Windows:úlse
Sheets("Paramètres").Visible = True
Else
ThisWorkbook.Close
Application.Quit
End If
End If
End Sub

Tu n'as plus qu'à l'actualiser des mots de passe :

Pour la lecture uniquement les lignes
If Identité = "Lecture" Then (le mot Lecture)
et
Sheets(I).Protect "Mise à jour", DrawingObjects:=True, Contents:=True,
Scenarios:=True (le mot Mise à jour)
et
ActiveWorkbook.Protect "Mise à jour", Structure:=True, Windows:úlse (le
mot Mise à jour)

Pour la mise à jour la ligne :
If Identité = "Mise à jour" Then (le mot Mise à jour)

Espérant avoir répondu à tes attentes


Merci pour ce code.

Je vais le tester demain.

Est ce que ce code marche aussi pour interdire l'accès a VBA ? Je voudrais
aussi bloquer cette possibilité.

"FFO"
Salut Thierry
Je te propose ce code à mettre dans ThisWorkbook

Private Sub Workbook_Open()
Identité = InputBox("veuillez saisir le mot de passe", "Mot de passe", "")
If Identité = "Lecture" Then
Sheets("Paramètres").Select
ActiveWindow.SelectedSheets.Visible = False
For I = 1 To Sheets.Count
Sheets(I).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(I).EnableSelection = xlNoSelection
Next
ActiveWorkbook.Protect Structure:=True, Windows:úlse
Else
If Identité = "Mise à jour" Then
For J = 1 To Sheets.Count
Sheets(J).Unprotect
Next
ActiveWorkbook.Protect Structure:úlse, Windows:úlse
Sheets("Paramètres").Visible = True
Else
ThisWorkbook.Close
Application.Quit
End If
End If
End Sub

Tu n'as plus qu'à l'actualiser des mots de passe :

Pour la lecture uniquement la ligne
If Identité = "Lecture" Then
Pour la mise à jour la ligne :
If Identité = "Mise à jour" Then


Je pense que celà devrait faire

Dis moi !!!


Bonjour,

j'ai un fichier excel a qui j'ai donné lors de l'enregistrement deux mots
de
passes :

- un pour la lecture
- un pour la mise à jour

Ma question est la suivante lors de l'ouverture de ce classeur je
voudrais
qu'automatiquement dans le cas d'une ouverture avec le mot de passe en
lecture :

- verrouiller tout le classeur (aucun accés aux
cellules, aucun accés au macro et code des modules, rendre invisible une
feuille qui s'appelle Paramètres)

Dans le cas d'une ouverture en mise à jour pouvoir automatiquement
accéder à
tout.

Est ce possible ?

Merci.

--
Ne pas répondre à l'adresse anti-spam.





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 15:57:55
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 19:50:22
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 19:54:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








Thierry
Le #4510531
Bonjour,

J'ai testé ton code le premier et le second et j'ai toujours le même
problème :

Lorsque je rentre le mot de passe de la Mise à jour j'ai un plantage erreur
d'execution 1004 Mot de passe non valide vérifier que la touche Verr.Maj
n'est pas activée et que vous respectez la bonne casse.

Pour le profil de lecture je n'ai jamais de souci.

Je ne comprends pas ????

"FFO"
Re bonjour Thierry
Je n'ai pas inclu la protection du VBA dans ce code
Si tu souhaites le protéger je te propose une fois installé de l'activer
manuellement :
Click droit sur ThisWorkbook/Proprièté de VBAProject icone Protection
Cocher Verrouiller le projet pour l'affichage
Saisir un mot de passe
le confirmer
enregistrer
A l'ouverture suivante le VBA sera inaccessible sauf en le déverrouillant
avec le mot de passe

J'ai légèrement modifié le code pour inclure les protections avec mot de
passe du classeur et des feuilles
Ce qui avait l'inconvénient d'accéder à leur activation et desactivation
de
manière libre
Afin de ne pas demander 2 fois le même mot de passe notamment pour
l'option
mise à jour (une fois pour faire fonctionner le code l'autre fois pour
permettre la déprotection) j'ai intégré la saisie à l'ouverture du
document
dans l'instruction de déprotection
Le code corrigé :

Private Sub Workbook_Open()
Identité = InputBox("veuillez saisir le mot de passe", "Mot de passe", "")
If Identité = "Lecture" Then
If Sheets("Paramètres").Visible = True Then
Sheets("Paramètres").Select
ActiveWindow.SelectedSheets.Visible = False
End If
For I = 1 To Sheets.Count
Sheets(I).Protect "Mise à jour", DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets(I).EnableSelection = xlNoSelection
Next
ActiveWorkbook.Protect "Mise à jour", Structure:=True, Windows:úlse
Else
If Identité = "Mise à jour" Then
For J = 1 To Sheets.Count
Sheets(J).Unprotect Identité
Next
ActiveWorkbook.Protect Identité, Structure:úlse, Windows:úlse
Sheets("Paramètres").Visible = True
Else
ThisWorkbook.Close
Application.Quit
End If
End If
End Sub

Tu n'as plus qu'à l'actualiser des mots de passe :

Pour la lecture uniquement les lignes
If Identité = "Lecture" Then (le mot Lecture)
et
Sheets(I).Protect "Mise à jour", DrawingObjects:=True, Contents:=True,
Scenarios:=True (le mot Mise à jour)
et
ActiveWorkbook.Protect "Mise à jour", Structure:=True, Windows:úlse (le
mot Mise à jour)

Pour la mise à jour la ligne :
If Identité = "Mise à jour" Then (le mot Mise à jour)

Espérant avoir répondu à tes attentes


Merci pour ce code.

Je vais le tester demain.

Est ce que ce code marche aussi pour interdire l'accès a VBA ? Je
voudrais
aussi bloquer cette possibilité.

"FFO"
Salut Thierry
Je te propose ce code à mettre dans ThisWorkbook

Private Sub Workbook_Open()
Identité = InputBox("veuillez saisir le mot de passe", "Mot de passe",
"")
If Identité = "Lecture" Then
Sheets("Paramètres").Select
ActiveWindow.SelectedSheets.Visible = False
For I = 1 To Sheets.Count
Sheets(I).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(I).EnableSelection = xlNoSelection
Next
ActiveWorkbook.Protect Structure:=True, Windows:úlse
Else
If Identité = "Mise à jour" Then
For J = 1 To Sheets.Count
Sheets(J).Unprotect
Next
ActiveWorkbook.Protect Structure:úlse, Windows:úlse
Sheets("Paramètres").Visible = True
Else
ThisWorkbook.Close
Application.Quit
End If
End If
End Sub

Tu n'as plus qu'à l'actualiser des mots de passe :

Pour la lecture uniquement la ligne
If Identité = "Lecture" Then
Pour la mise à jour la ligne :
If Identité = "Mise à jour" Then


Je pense que celà devrait faire

Dis moi !!!


Bonjour,

j'ai un fichier excel a qui j'ai donné lors de l'enregistrement deux
mots
de
passes :

- un pour la lecture
- un pour la mise à jour

Ma question est la suivante lors de l'ouverture de ce classeur je
voudrais
qu'automatiquement dans le cas d'une ouverture avec le mot de passe en
lecture :

- verrouiller tout le classeur (aucun accés
aux
cellules, aucun accés au macro et code des modules, rendre invisible
une
feuille qui s'appelle Paramètres)

Dans le cas d'une ouverture en mise à jour pouvoir automatiquement
accéder à
tout.

Est ce possible ?

Merci.

--
Ne pas répondre à l'adresse anti-spam.





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 15:57:55
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 19:50:22
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 19:54:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 16/05/2007 09:21:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 16/05/2007 09:34:18
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com




ffo
Le #4510491
Rebonjour
Avant tout met ton document manuellement en déprotection total avec les mots
de passe approprié comme un utilisateur qui a la possibilité de le modifier
Enregistre
Actualise le code scrupuleusement comme je te l'ai écrit sans oublier une
seule lignes de commande à mettre à jour
Enregistre
Et refait un essais

Dis moi !!!


Bonjour,

J'ai testé ton code le premier et le second et j'ai toujours le même
problème :

Lorsque je rentre le mot de passe de la Mise à jour j'ai un plantage erreur
d'execution 1004 Mot de passe non valide vérifier que la touche Verr.Maj
n'est pas activée et que vous respectez la bonne casse.

Pour le profil de lecture je n'ai jamais de souci.

Je ne comprends pas ????

"FFO"
Re bonjour Thierry
Je n'ai pas inclu la protection du VBA dans ce code
Si tu souhaites le protéger je te propose une fois installé de l'activer
manuellement :
Click droit sur ThisWorkbook/Proprièté de VBAProject icone Protection
Cocher Verrouiller le projet pour l'affichage
Saisir un mot de passe
le confirmer
enregistrer
A l'ouverture suivante le VBA sera inaccessible sauf en le déverrouillant
avec le mot de passe

J'ai légèrement modifié le code pour inclure les protections avec mot de
passe du classeur et des feuilles
Ce qui avait l'inconvénient d'accéder à leur activation et desactivation
de
manière libre
Afin de ne pas demander 2 fois le même mot de passe notamment pour
l'option
mise à jour (une fois pour faire fonctionner le code l'autre fois pour
permettre la déprotection) j'ai intégré la saisie à l'ouverture du
document
dans l'instruction de déprotection
Le code corrigé :

Private Sub Workbook_Open()
Identité = InputBox("veuillez saisir le mot de passe", "Mot de passe", "")
If Identité = "Lecture" Then
If Sheets("Paramètres").Visible = True Then
Sheets("Paramètres").Select
ActiveWindow.SelectedSheets.Visible = False
End If
For I = 1 To Sheets.Count
Sheets(I).Protect "Mise à jour", DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets(I).EnableSelection = xlNoSelection
Next
ActiveWorkbook.Protect "Mise à jour", Structure:=True, Windows:úlse
Else
If Identité = "Mise à jour" Then
For J = 1 To Sheets.Count
Sheets(J).Unprotect Identité
Next
ActiveWorkbook.Protect Identité, Structure:úlse, Windows:úlse
Sheets("Paramètres").Visible = True
Else
ThisWorkbook.Close
Application.Quit
End If
End If
End Sub

Tu n'as plus qu'à l'actualiser des mots de passe :

Pour la lecture uniquement les lignes
If Identité = "Lecture" Then (le mot Lecture)
et
Sheets(I).Protect "Mise à jour", DrawingObjects:=True, Contents:=True,
Scenarios:=True (le mot Mise à jour)
et
ActiveWorkbook.Protect "Mise à jour", Structure:=True, Windows:úlse (le
mot Mise à jour)

Pour la mise à jour la ligne :
If Identité = "Mise à jour" Then (le mot Mise à jour)

Espérant avoir répondu à tes attentes


Merci pour ce code.

Je vais le tester demain.

Est ce que ce code marche aussi pour interdire l'accès a VBA ? Je
voudrais
aussi bloquer cette possibilité.

"FFO"
Salut Thierry
Je te propose ce code à mettre dans ThisWorkbook

Private Sub Workbook_Open()
Identité = InputBox("veuillez saisir le mot de passe", "Mot de passe",
"")
If Identité = "Lecture" Then
Sheets("Paramètres").Select
ActiveWindow.SelectedSheets.Visible = False
For I = 1 To Sheets.Count
Sheets(I).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(I).EnableSelection = xlNoSelection
Next
ActiveWorkbook.Protect Structure:=True, Windows:úlse
Else
If Identité = "Mise à jour" Then
For J = 1 To Sheets.Count
Sheets(J).Unprotect
Next
ActiveWorkbook.Protect Structure:úlse, Windows:úlse
Sheets("Paramètres").Visible = True
Else
ThisWorkbook.Close
Application.Quit
End If
End If
End Sub

Tu n'as plus qu'à l'actualiser des mots de passe :

Pour la lecture uniquement la ligne
If Identité = "Lecture" Then
Pour la mise à jour la ligne :
If Identité = "Mise à jour" Then


Je pense que celà devrait faire

Dis moi !!!


Bonjour,

j'ai un fichier excel a qui j'ai donné lors de l'enregistrement deux
mots
de
passes :

- un pour la lecture
- un pour la mise à jour

Ma question est la suivante lors de l'ouverture de ce classeur je
voudrais
qu'automatiquement dans le cas d'une ouverture avec le mot de passe en
lecture :

- verrouiller tout le classeur (aucun accés
aux
cellules, aucun accés au macro et code des modules, rendre invisible
une
feuille qui s'appelle Paramètres)

Dans le cas d'une ouverture en mise à jour pouvoir automatiquement
accéder à
tout.

Est ce possible ?

Merci.

--
Ne pas répondre à l'adresse anti-spam.





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 15:57:55
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 19:50:22
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 19:54:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 16/05/2007 09:21:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 16/05/2007 09:34:18
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com










ffo
Le #4510461
Dans la procédure manuelle de déprotection pense à réaliser l'opération sur
toutes les feuilles y compris celles éventuellement cachées
Déprotection à réaliser avec
Outil/Protection icone Oter la protection de la feuille et Oter la
protection du classeur

Dis moi !!!

Bonjour,

J'ai testé ton code le premier et le second et j'ai toujours le même
problème :

Lorsque je rentre le mot de passe de la Mise à jour j'ai un plantage erreur
d'execution 1004 Mot de passe non valide vérifier que la touche Verr.Maj
n'est pas activée et que vous respectez la bonne casse.

Pour le profil de lecture je n'ai jamais de souci.

Je ne comprends pas ????

"FFO"
Re bonjour Thierry
Je n'ai pas inclu la protection du VBA dans ce code
Si tu souhaites le protéger je te propose une fois installé de l'activer
manuellement :
Click droit sur ThisWorkbook/Proprièté de VBAProject icone Protection
Cocher Verrouiller le projet pour l'affichage
Saisir un mot de passe
le confirmer
enregistrer
A l'ouverture suivante le VBA sera inaccessible sauf en le déverrouillant
avec le mot de passe

J'ai légèrement modifié le code pour inclure les protections avec mot de
passe du classeur et des feuilles
Ce qui avait l'inconvénient d'accéder à leur activation et desactivation
de
manière libre
Afin de ne pas demander 2 fois le même mot de passe notamment pour
l'option
mise à jour (une fois pour faire fonctionner le code l'autre fois pour
permettre la déprotection) j'ai intégré la saisie à l'ouverture du
document
dans l'instruction de déprotection
Le code corrigé :

Private Sub Workbook_Open()
Identité = InputBox("veuillez saisir le mot de passe", "Mot de passe", "")
If Identité = "Lecture" Then
If Sheets("Paramètres").Visible = True Then
Sheets("Paramètres").Select
ActiveWindow.SelectedSheets.Visible = False
End If
For I = 1 To Sheets.Count
Sheets(I).Protect "Mise à jour", DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets(I).EnableSelection = xlNoSelection
Next
ActiveWorkbook.Protect "Mise à jour", Structure:=True, Windows:úlse
Else
If Identité = "Mise à jour" Then
For J = 1 To Sheets.Count
Sheets(J).Unprotect Identité
Next
ActiveWorkbook.Protect Identité, Structure:úlse, Windows:úlse
Sheets("Paramètres").Visible = True
Else
ThisWorkbook.Close
Application.Quit
End If
End If
End Sub

Tu n'as plus qu'à l'actualiser des mots de passe :

Pour la lecture uniquement les lignes
If Identité = "Lecture" Then (le mot Lecture)
et
Sheets(I).Protect "Mise à jour", DrawingObjects:=True, Contents:=True,
Scenarios:=True (le mot Mise à jour)
et
ActiveWorkbook.Protect "Mise à jour", Structure:=True, Windows:úlse (le
mot Mise à jour)

Pour la mise à jour la ligne :
If Identité = "Mise à jour" Then (le mot Mise à jour)

Espérant avoir répondu à tes attentes


Merci pour ce code.

Je vais le tester demain.

Est ce que ce code marche aussi pour interdire l'accès a VBA ? Je
voudrais
aussi bloquer cette possibilité.

"FFO"
Salut Thierry
Je te propose ce code à mettre dans ThisWorkbook

Private Sub Workbook_Open()
Identité = InputBox("veuillez saisir le mot de passe", "Mot de passe",
"")
If Identité = "Lecture" Then
Sheets("Paramètres").Select
ActiveWindow.SelectedSheets.Visible = False
For I = 1 To Sheets.Count
Sheets(I).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(I).EnableSelection = xlNoSelection
Next
ActiveWorkbook.Protect Structure:=True, Windows:úlse
Else
If Identité = "Mise à jour" Then
For J = 1 To Sheets.Count
Sheets(J).Unprotect
Next
ActiveWorkbook.Protect Structure:úlse, Windows:úlse
Sheets("Paramètres").Visible = True
Else
ThisWorkbook.Close
Application.Quit
End If
End If
End Sub

Tu n'as plus qu'à l'actualiser des mots de passe :

Pour la lecture uniquement la ligne
If Identité = "Lecture" Then
Pour la mise à jour la ligne :
If Identité = "Mise à jour" Then


Je pense que celà devrait faire

Dis moi !!!


Bonjour,

j'ai un fichier excel a qui j'ai donné lors de l'enregistrement deux
mots
de
passes :

- un pour la lecture
- un pour la mise à jour

Ma question est la suivante lors de l'ouverture de ce classeur je
voudrais
qu'automatiquement dans le cas d'une ouverture avec le mot de passe en
lecture :

- verrouiller tout le classeur (aucun accés
aux
cellules, aucun accés au macro et code des modules, rendre invisible
une
feuille qui s'appelle Paramètres)

Dans le cas d'une ouverture en mise à jour pouvoir automatiquement
accéder à
tout.

Est ce possible ?

Merci.

--
Ne pas répondre à l'adresse anti-spam.





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 15:57:55
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 19:50:22
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 19:54:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 16/05/2007 09:21:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 16/05/2007 09:34:18
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com










Thierry
Le #4510381
J'ai fait tout ce que tu m'a dit mais en repartant d'une sauvegarde car je
n'arrivais pas à m'en sortir avec celui qui avait été modifier.

Un Grand merci car tout marche impec :) :)

Question subsidiaire : Dans le cas du profil de lecture est il possible
d'interdire l'enregistrement ?

a +

"ffo"
Dans la procédure manuelle de déprotection pense à réaliser l'opération
sur
toutes les feuilles y compris celles éventuellement cachées
Déprotection à réaliser avec
Outil/Protection icone Oter la protection de la feuille et Oter la
protection du classeur

Dis moi !!!

Bonjour,

J'ai testé ton code le premier et le second et j'ai toujours le même
problème :

Lorsque je rentre le mot de passe de la Mise à jour j'ai un plantage
erreur
d'execution 1004 Mot de passe non valide vérifier que la touche Verr.Maj
n'est pas activée et que vous respectez la bonne casse.

Pour le profil de lecture je n'ai jamais de souci.

Je ne comprends pas ????

"FFO"
Re bonjour Thierry
Je n'ai pas inclu la protection du VBA dans ce code
Si tu souhaites le protéger je te propose une fois installé de
l'activer
manuellement :
Click droit sur ThisWorkbook/Proprièté de VBAProject icone Protection
Cocher Verrouiller le projet pour l'affichage
Saisir un mot de passe
le confirmer
enregistrer
A l'ouverture suivante le VBA sera inaccessible sauf en le
déverrouillant
avec le mot de passe

J'ai légèrement modifié le code pour inclure les protections avec mot
de
passe du classeur et des feuilles
Ce qui avait l'inconvénient d'accéder à leur activation et
desactivation
de
manière libre
Afin de ne pas demander 2 fois le même mot de passe notamment pour
l'option
mise à jour (une fois pour faire fonctionner le code l'autre fois pour
permettre la déprotection) j'ai intégré la saisie à l'ouverture du
document
dans l'instruction de déprotection
Le code corrigé :

Private Sub Workbook_Open()
Identité = InputBox("veuillez saisir le mot de passe", "Mot de passe",
"")
If Identité = "Lecture" Then
If Sheets("Paramètres").Visible = True Then
Sheets("Paramètres").Select
ActiveWindow.SelectedSheets.Visible = False
End If
For I = 1 To Sheets.Count
Sheets(I).Protect "Mise à jour", DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets(I).EnableSelection = xlNoSelection
Next
ActiveWorkbook.Protect "Mise à jour", Structure:=True, Windows:úlse
Else
If Identité = "Mise à jour" Then
For J = 1 To Sheets.Count
Sheets(J).Unprotect Identité
Next
ActiveWorkbook.Protect Identité, Structure:úlse, Windows:úlse
Sheets("Paramètres").Visible = True
Else
ThisWorkbook.Close
Application.Quit
End If
End If
End Sub

Tu n'as plus qu'à l'actualiser des mots de passe :

Pour la lecture uniquement les lignes
If Identité = "Lecture" Then (le mot Lecture)
et
Sheets(I).Protect "Mise à jour", DrawingObjects:=True, Contents:=True,
Scenarios:=True (le mot Mise à jour)
et
ActiveWorkbook.Protect "Mise à jour", Structure:=True, Windows:úlse
(le
mot Mise à jour)

Pour la mise à jour la ligne :
If Identité = "Mise à jour" Then (le mot Mise à jour)

Espérant avoir répondu à tes attentes


Merci pour ce code.

Je vais le tester demain.

Est ce que ce code marche aussi pour interdire l'accès a VBA ? Je
voudrais
aussi bloquer cette possibilité.

"FFO"
Salut Thierry
Je te propose ce code à mettre dans ThisWorkbook

Private Sub Workbook_Open()
Identité = InputBox("veuillez saisir le mot de passe", "Mot de
passe",
"")
If Identité = "Lecture" Then
Sheets("Paramètres").Select
ActiveWindow.SelectedSheets.Visible = False
For I = 1 To Sheets.Count
Sheets(I).Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets(I).EnableSelection = xlNoSelection
Next
ActiveWorkbook.Protect Structure:=True, Windows:úlse
Else
If Identité = "Mise à jour" Then
For J = 1 To Sheets.Count
Sheets(J).Unprotect
Next
ActiveWorkbook.Protect Structure:úlse, Windows:úlse
Sheets("Paramètres").Visible = True
Else
ThisWorkbook.Close
Application.Quit
End If
End If
End Sub

Tu n'as plus qu'à l'actualiser des mots de passe :

Pour la lecture uniquement la ligne
If Identité = "Lecture" Then
Pour la mise à jour la ligne :
If Identité = "Mise à jour" Then


Je pense que celà devrait faire

Dis moi !!!


Bonjour,

j'ai un fichier excel a qui j'ai donné lors de l'enregistrement
deux
mots
de
passes :

- un pour la lecture
- un pour la mise à jour

Ma question est la suivante lors de l'ouverture de ce classeur je
voudrais
qu'automatiquement dans le cas d'une ouverture avec le mot de passe
en
lecture :

- verrouiller tout le classeur (aucun
accés
aux
cellules, aucun accés au macro et code des modules, rendre
invisible
une
feuille qui s'appelle Paramètres)

Dans le cas d'une ouverture en mise à jour pouvoir automatiquement
accéder à
tout.

Est ce possible ?

Merci.

--
Ne pas répondre à l'adresse anti-spam.





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 15:57:55
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 19:50:22
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 19:54:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 16/05/2007 09:21:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 16/05/2007 09:34:18
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 16/05/2007 10:42:52
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 16/05/2007 11:14:46
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






ffo
Le #4510331
Rebonjour
Trés heureux que celà te convienne !!!!
Pour interdir l'enregistrement on atteint là les possibilité d'excel
Mais si aucune modification n'a pu être réalisée du fait des conditions
instaurées par le profile lecture un enregistrement éventuel ne serait pas
dommageable et ne porterait à aucune conséquence
Est ce donc bien utile
Toute fois tu as la possibilité de mettre le fichier concerné en lecture
seule :
click droit sur le document puis Propriétés et cocher Lecture seule
Cette option malheureusement touchera tous les utlisateurs y compris ceux
habilités à des modifications
Ils pourront toutefois l'enregistrer sous un autre nom
A toi de voir

A bientôt peut être


J'ai fait tout ce que tu m'a dit mais en repartant d'une sauvegarde car je
n'arrivais pas à m'en sortir avec celui qui avait été modifier.

Un Grand merci car tout marche impec :) :)

Question subsidiaire : Dans le cas du profil de lecture est il possible
d'interdire l'enregistrement ?

a +

"ffo"
Dans la procédure manuelle de déprotection pense à réaliser l'opération
sur
toutes les feuilles y compris celles éventuellement cachées
Déprotection à réaliser avec
Outil/Protection icone Oter la protection de la feuille et Oter la
protection du classeur

Dis moi !!!

Bonjour,

J'ai testé ton code le premier et le second et j'ai toujours le même
problème :

Lorsque je rentre le mot de passe de la Mise à jour j'ai un plantage
erreur
d'execution 1004 Mot de passe non valide vérifier que la touche Verr.Maj
n'est pas activée et que vous respectez la bonne casse.

Pour le profil de lecture je n'ai jamais de souci.

Je ne comprends pas ????

"FFO"
Re bonjour Thierry
Je n'ai pas inclu la protection du VBA dans ce code
Si tu souhaites le protéger je te propose une fois installé de
l'activer
manuellement :
Click droit sur ThisWorkbook/Proprièté de VBAProject icone Protection
Cocher Verrouiller le projet pour l'affichage
Saisir un mot de passe
le confirmer
enregistrer
A l'ouverture suivante le VBA sera inaccessible sauf en le
déverrouillant
avec le mot de passe

J'ai légèrement modifié le code pour inclure les protections avec mot
de
passe du classeur et des feuilles
Ce qui avait l'inconvénient d'accéder à leur activation et
desactivation
de
manière libre
Afin de ne pas demander 2 fois le même mot de passe notamment pour
l'option
mise à jour (une fois pour faire fonctionner le code l'autre fois pour
permettre la déprotection) j'ai intégré la saisie à l'ouverture du
document
dans l'instruction de déprotection
Le code corrigé :

Private Sub Workbook_Open()
Identité = InputBox("veuillez saisir le mot de passe", "Mot de passe",
"")
If Identité = "Lecture" Then
If Sheets("Paramètres").Visible = True Then
Sheets("Paramètres").Select
ActiveWindow.SelectedSheets.Visible = False
End If
For I = 1 To Sheets.Count
Sheets(I).Protect "Mise à jour", DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets(I).EnableSelection = xlNoSelection
Next
ActiveWorkbook.Protect "Mise à jour", Structure:=True, Windows:úlse
Else
If Identité = "Mise à jour" Then
For J = 1 To Sheets.Count
Sheets(J).Unprotect Identité
Next
ActiveWorkbook.Protect Identité, Structure:úlse, Windows:úlse
Sheets("Paramètres").Visible = True
Else
ThisWorkbook.Close
Application.Quit
End If
End If
End Sub

Tu n'as plus qu'à l'actualiser des mots de passe :

Pour la lecture uniquement les lignes
If Identité = "Lecture" Then (le mot Lecture)
et
Sheets(I).Protect "Mise à jour", DrawingObjects:=True, Contents:=True,
Scenarios:=True (le mot Mise à jour)
et
ActiveWorkbook.Protect "Mise à jour", Structure:=True, Windows:úlse
(le
mot Mise à jour)

Pour la mise à jour la ligne :
If Identité = "Mise à jour" Then (le mot Mise à jour)

Espérant avoir répondu à tes attentes


Merci pour ce code.

Je vais le tester demain.

Est ce que ce code marche aussi pour interdire l'accès a VBA ? Je
voudrais
aussi bloquer cette possibilité.

"FFO"
Salut Thierry
Je te propose ce code à mettre dans ThisWorkbook

Private Sub Workbook_Open()
Identité = InputBox("veuillez saisir le mot de passe", "Mot de
passe",
"")
If Identité = "Lecture" Then
Sheets("Paramètres").Select
ActiveWindow.SelectedSheets.Visible = False
For I = 1 To Sheets.Count
Sheets(I).Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets(I).EnableSelection = xlNoSelection
Next
ActiveWorkbook.Protect Structure:=True, Windows:úlse
Else
If Identité = "Mise à jour" Then
For J = 1 To Sheets.Count
Sheets(J).Unprotect
Next
ActiveWorkbook.Protect Structure:úlse, Windows:úlse
Sheets("Paramètres").Visible = True
Else
ThisWorkbook.Close
Application.Quit
End If
End If
End Sub

Tu n'as plus qu'à l'actualiser des mots de passe :

Pour la lecture uniquement la ligne
If Identité = "Lecture" Then
Pour la mise à jour la ligne :
If Identité = "Mise à jour" Then


Je pense que celà devrait faire

Dis moi !!!


Bonjour,

j'ai un fichier excel a qui j'ai donné lors de l'enregistrement
deux
mots
de
passes :

- un pour la lecture
- un pour la mise à jour

Ma question est la suivante lors de l'ouverture de ce classeur je
voudrais
qu'automatiquement dans le cas d'une ouverture avec le mot de passe
en
lecture :

- verrouiller tout le classeur (aucun
accés
aux
cellules, aucun accés au macro et code des modules, rendre
invisible
une
feuille qui s'appelle Paramètres)

Dans le cas d'une ouverture en mise à jour pouvoir automatiquement
accéder à
tout.

Est ce possible ?

Merci.

--
Ne pas répondre à l'adresse anti-spam.





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 15:57:55
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 19:50:22
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 19:54:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 16/05/2007 09:21:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 16/05/2007 09:34:18
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 16/05/2007 10:42:52
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 16/05/2007 11:14:46
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com












Misange
Le #4510281
La ficelle a été longue et productive, si vous voulez remettre in
extenso le code, voire en faire un classeur exemple et me l'envoyer sur
excelabo, je le mettrai avec plaisir à la disposition de tous, c'est une
demande susceptible d'intéresser pas mal d'excelliens ;-)

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Rebonjour
Trés heureux que celà te convienne !!!!
Pour interdir l'enregistrement on atteint là les possibilité d'excel
Mais si aucune modification n'a pu être réalisée du fait des conditions
instaurées par le profile lecture un enregistrement éventuel ne serait pas
dommageable et ne porterait à aucune conséquence
Est ce donc bien utile
Toute fois tu as la possibilité de mettre le fichier concerné en lecture
seule :
click droit sur le document puis Propriétés et cocher Lecture seule
Cette option malheureusement touchera tous les utlisateurs y compris ceux
habilités à des modifications
Ils pourront toutefois l'enregistrer sous un autre nom
A toi de voir

A bientôt peut être


J'ai fait tout ce que tu m'a dit mais en repartant d'une sauvegarde car je
n'arrivais pas à m'en sortir avec celui qui avait été modifier.

Un Grand merci car tout marche impec :) :)

Question subsidiaire : Dans le cas du profil de lecture est il possible
d'interdire l'enregistrement ?

a +

"ffo"
Dans la procédure manuelle de déprotection pense à réaliser l'opération
sur
toutes les feuilles y compris celles éventuellement cachées
Déprotection à réaliser avec
Outil/Protection icone Oter la protection de la feuille et Oter la
protection du classeur

Dis moi !!!

Bonjour,

J'ai testé ton code le premier et le second et j'ai toujours le même
problème :

Lorsque je rentre le mot de passe de la Mise à jour j'ai un plantage
erreur
d'execution 1004 Mot de passe non valide vérifier que la touche Verr.Maj
n'est pas activée et que vous respectez la bonne casse.

Pour le profil de lecture je n'ai jamais de souci.

Je ne comprends pas ????

"FFO"
Re bonjour Thierry
Je n'ai pas inclu la protection du VBA dans ce code
Si tu souhaites le protéger je te propose une fois installé de
l'activer
manuellement :
Click droit sur ThisWorkbook/Proprièté de VBAProject icone Protection
Cocher Verrouiller le projet pour l'affichage
Saisir un mot de passe
le confirmer
enregistrer
A l'ouverture suivante le VBA sera inaccessible sauf en le
déverrouillant
avec le mot de passe

J'ai légèrement modifié le code pour inclure les protections avec mot
de
passe du classeur et des feuilles
Ce qui avait l'inconvénient d'accéder à leur activation et
desactivation
de
manière libre
Afin de ne pas demander 2 fois le même mot de passe notamment pour
l'option
mise à jour (une fois pour faire fonctionner le code l'autre fois pour
permettre la déprotection) j'ai intégré la saisie à l'ouverture du
document
dans l'instruction de déprotection
Le code corrigé :

Private Sub Workbook_Open()
Identité = InputBox("veuillez saisir le mot de passe", "Mot de passe",
"")
If Identité = "Lecture" Then
If Sheets("Paramètres").Visible = True Then
Sheets("Paramètres").Select
ActiveWindow.SelectedSheets.Visible = False
End If
For I = 1 To Sheets.Count
Sheets(I).Protect "Mise à jour", DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets(I).EnableSelection = xlNoSelection
Next
ActiveWorkbook.Protect "Mise à jour", Structure:=True, Windows:úlse
Else
If Identité = "Mise à jour" Then
For J = 1 To Sheets.Count
Sheets(J).Unprotect Identité
Next
ActiveWorkbook.Protect Identité, Structure:úlse, Windows:úlse
Sheets("Paramètres").Visible = True
Else
ThisWorkbook.Close
Application.Quit
End If
End If
End Sub

Tu n'as plus qu'à l'actualiser des mots de passe :

Pour la lecture uniquement les lignes
If Identité = "Lecture" Then (le mot Lecture)
et
Sheets(I).Protect "Mise à jour", DrawingObjects:=True, Contents:=True,
Scenarios:=True (le mot Mise à jour)
et
ActiveWorkbook.Protect "Mise à jour", Structure:=True, Windows:úlse
(le
mot Mise à jour)

Pour la mise à jour la ligne :
If Identité = "Mise à jour" Then (le mot Mise à jour)

Espérant avoir répondu à tes attentes


Merci pour ce code.

Je vais le tester demain.

Est ce que ce code marche aussi pour interdire l'accès a VBA ? Je
voudrais
aussi bloquer cette possibilité.

"FFO"
Salut Thierry
Je te propose ce code à mettre dans ThisWorkbook

Private Sub Workbook_Open()
Identité = InputBox("veuillez saisir le mot de passe", "Mot de
passe",
"")
If Identité = "Lecture" Then
Sheets("Paramètres").Select
ActiveWindow.SelectedSheets.Visible = False
For I = 1 To Sheets.Count
Sheets(I).Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets(I).EnableSelection = xlNoSelection
Next
ActiveWorkbook.Protect Structure:=True, Windows:úlse
Else
If Identité = "Mise à jour" Then
For J = 1 To Sheets.Count
Sheets(J).Unprotect
Next
ActiveWorkbook.Protect Structure:úlse, Windows:úlse
Sheets("Paramètres").Visible = True
Else
ThisWorkbook.Close
Application.Quit
End If
End If
End Sub

Tu n'as plus qu'à l'actualiser des mots de passe :

Pour la lecture uniquement la ligne
If Identité = "Lecture" Then
Pour la mise à jour la ligne :
If Identité = "Mise à jour" Then


Je pense que celà devrait faire

Dis moi !!!


Bonjour,

j'ai un fichier excel a qui j'ai donné lors de l'enregistrement
deux
mots
de
passes :

- un pour la lecture
- un pour la mise à jour

Ma question est la suivante lors de l'ouverture de ce classeur je
voudrais
qu'automatiquement dans le cas d'une ouverture avec le mot de passe
en
lecture :

- verrouiller tout le classeur (aucun
accés
aux
cellules, aucun accés au macro et code des modules, rendre
invisible
une
feuille qui s'appelle Paramètres)

Dans le cas d'une ouverture en mise à jour pouvoir automatiquement
accéder à
tout.

Est ce possible ?

Merci.

--
Ne pas répondre à l'adresse anti-spam.





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 15:57:55
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 19:50:22
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 15/05/2007 19:54:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 16/05/2007 09:21:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 16/05/2007 09:34:18
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 16/05/2007 10:42:52
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-1, 15/05/2007
Analyse le : 16/05/2007 11:14:46
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com














Publicité
Poster une réponse
Anonyme