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
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
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
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
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
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
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
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
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
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" a écrit dans le message de news: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
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" <FFO@discussions.microsoft.com> a écrit dans le message de news:
2655AFCD-40CA-46A6-B315-5B2DE9577901@microsoft.com...
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
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" a écrit dans le message de news: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
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 attentesMerci 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" a écrit dans le message de news: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
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" <FFO@discussions.microsoft.com> a écrit dans le message de news:
2655AFCD-40CA-46A6-B315-5B2DE9577901@microsoft.com...
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
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 attentesMerci 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" a écrit dans le message de news: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
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" a écrit dans le message de news: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 attentesMerci 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" a écrit dans le message de news: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
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" <FFO@discussions.microsoft.com> a écrit dans le message de news:
F00CE5F3-F1D7-4AF2-A116-21B0913F1055@microsoft.com...
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" <FFO@discussions.microsoft.com> a écrit dans le message de news:
2655AFCD-40CA-46A6-B315-5B2DE9577901@microsoft.com...
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
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" a écrit dans le message de news: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 attentesMerci 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" a écrit dans le message de news: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
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" a écrit dans le message de news: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 attentesMerci 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" a écrit dans le message de news: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
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" <FFO@discussions.microsoft.com> a écrit dans le message de news:
F00CE5F3-F1D7-4AF2-A116-21B0913F1055@microsoft.com...
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" <FFO@discussions.microsoft.com> a écrit dans le message de news:
2655AFCD-40CA-46A6-B315-5B2DE9577901@microsoft.com...
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
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" a écrit dans le message de news: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 attentesMerci 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" a écrit dans le message de news: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
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" a écrit dans le message de news: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 attentesMerci 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" a écrit dans le message de news: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
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" <FFO@discussions.microsoft.com> a écrit dans le message de news:
F00CE5F3-F1D7-4AF2-A116-21B0913F1055@microsoft.com...
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" <FFO@discussions.microsoft.com> a écrit dans le message de news:
2655AFCD-40CA-46A6-B315-5B2DE9577901@microsoft.com...
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
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" a écrit dans le message de news: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 attentesMerci 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" a écrit dans le message de news: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
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" a écrit dans le message de news: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" a écrit dans le message de news: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 attentesMerci 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" a écrit dans le message de news: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
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" <ffo@discussions.microsoft.com> a écrit dans le message de news:
D08F620B-096A-4703-BC3B-D412CD956BF1@microsoft.com...
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" <FFO@discussions.microsoft.com> a écrit dans le message de news:
F00CE5F3-F1D7-4AF2-A116-21B0913F1055@microsoft.com...
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" <FFO@discussions.microsoft.com> a écrit dans le message de news:
2655AFCD-40CA-46A6-B315-5B2DE9577901@microsoft.com...
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
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" a écrit dans le message de news: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" a écrit dans le message de news: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 attentesMerci 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" a écrit dans le message de news: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
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 êtreJ'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" a écrit dans le message de news: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" a écrit dans le message de news: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 attentesMerci 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" a écrit dans le message de news: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
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" <ffo@discussions.microsoft.com> a écrit dans le message de news:
D08F620B-096A-4703-BC3B-D412CD956BF1@microsoft.com...
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" <FFO@discussions.microsoft.com> a écrit dans le message de news:
F00CE5F3-F1D7-4AF2-A116-21B0913F1055@microsoft.com...
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" <FFO@discussions.microsoft.com> a écrit dans le message de news:
2655AFCD-40CA-46A6-B315-5B2DE9577901@microsoft.com...
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
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 êtreJ'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" a écrit dans le message de news: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" a écrit dans le message de news: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 attentesMerci 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" a écrit dans le message de news: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