Aller dans Fichier / enregistrer sous / menu outils.
Nico
"clguillet" a écrit dans le message de news: #
Bonsoir à tous je voudrais interdire l'ouverture d'un fichier excel,avec un mot de passe ;
la manipe a faire SVP merci Claude
Hervé
Bonsoir, Tu peux essayer ce qui suit en le mettant dans le module du classeur et en protégeant le projet VBA (Outils|Propriétés de VBAProject... onglet "Protection") mais si ton utilisateur n'active pas les macros, et bien il verra tes feuilles. Tu peux cacher les feuilles qu'il ne doit pas voir (laisse en une avec un message d'explication de toute façon, Excel n'accepte pas d'avoir toutes les feuilles cachées) puis protéger ton classeur avec un mot de passe. Une fois que ton utilisateur (après avoir activé les macros) a saisi le mot de passe (pas celui du classeur mais tiré de l'exemple ci dessous), avec une macro tu déprotège le classeur puis affiche tes feuilles qui seront ensuite à nouveau cachées à la fermeture avec protection du classeur, de cette manière, si il n'active pas les macros, les feuilles lui seront invisibles puisque le classeur est protégé. Enfin, c'est une idée comme une autre...
Private Sub Workbook_Open() Dim MotDePasse As String On Error GoTo LigneErreur Reprise: MotDePasse = InputBox("Saisir le mot de passe !", _ "Mot de passe.") If MotDePasse <> "" Then If MotDePasse <> "Mon Mot" Then Err.Raise 10000 End If Else ThisWorkbook.Close True End If Exit Sub LigneErreur: MsgBox "Mot de passe non valide !" Resume Reprise End Sub
Hervé.
"clguillet" a écrit dans le message news: #
Bonsoir à tous je voudrais interdire l'ouverture d'un fichier excel,avec un mot de passe ;
la manipe a faire SVP merci Claude
Bonsoir,
Tu peux essayer ce qui suit en le mettant dans le module du classeur et en
protégeant le projet VBA (Outils|Propriétés de VBAProject... onglet
"Protection") mais si ton utilisateur n'active pas les macros, et bien il
verra tes feuilles. Tu peux cacher les feuilles qu'il ne doit pas voir
(laisse en une avec un message d'explication de toute façon, Excel n'accepte
pas d'avoir toutes les feuilles cachées) puis protéger ton classeur avec un
mot de passe. Une fois que ton utilisateur (après avoir activé les macros) a
saisi le mot de passe (pas celui du classeur mais tiré de l'exemple ci
dessous), avec une macro tu déprotège le classeur puis affiche tes feuilles
qui seront ensuite à nouveau cachées à la fermeture avec protection du
classeur, de cette manière, si il n'active pas les macros, les feuilles lui
seront invisibles puisque le classeur est protégé. Enfin, c'est une idée
comme une autre...
Private Sub Workbook_Open()
Dim MotDePasse As String
On Error GoTo LigneErreur
Reprise:
MotDePasse = InputBox("Saisir le mot de passe !", _
"Mot de passe.")
If MotDePasse <> "" Then
If MotDePasse <> "Mon Mot" Then
Err.Raise 10000
End If
Else
ThisWorkbook.Close True
End If
Exit Sub
LigneErreur:
MsgBox "Mot de passe non valide !"
Resume Reprise
End Sub
Hervé.
"clguillet" <clguillet@wanadoo.fr> a écrit dans le message news:
#ZuyFgH4EHA.1564@TK2MSFTNGP09.phx.gbl...
Bonsoir à tous
je voudrais interdire l'ouverture d'un fichier excel,avec un mot de passe
;
Bonsoir, Tu peux essayer ce qui suit en le mettant dans le module du classeur et en protégeant le projet VBA (Outils|Propriétés de VBAProject... onglet "Protection") mais si ton utilisateur n'active pas les macros, et bien il verra tes feuilles. Tu peux cacher les feuilles qu'il ne doit pas voir (laisse en une avec un message d'explication de toute façon, Excel n'accepte pas d'avoir toutes les feuilles cachées) puis protéger ton classeur avec un mot de passe. Une fois que ton utilisateur (après avoir activé les macros) a saisi le mot de passe (pas celui du classeur mais tiré de l'exemple ci dessous), avec une macro tu déprotège le classeur puis affiche tes feuilles qui seront ensuite à nouveau cachées à la fermeture avec protection du classeur, de cette manière, si il n'active pas les macros, les feuilles lui seront invisibles puisque le classeur est protégé. Enfin, c'est une idée comme une autre...
Private Sub Workbook_Open() Dim MotDePasse As String On Error GoTo LigneErreur Reprise: MotDePasse = InputBox("Saisir le mot de passe !", _ "Mot de passe.") If MotDePasse <> "" Then If MotDePasse <> "Mon Mot" Then Err.Raise 10000 End If Else ThisWorkbook.Close True End If Exit Sub LigneErreur: MsgBox "Mot de passe non valide !" Resume Reprise End Sub
Hervé.
"clguillet" a écrit dans le message news: #
Bonsoir à tous je voudrais interdire l'ouverture d'un fichier excel,avec un mot de passe ;
la manipe a faire SVP merci Claude
clguillet
Merci à vous Claude
"clguillet" a écrit dans le message de news: %
Bonsoir à tous je voudrais interdire l'ouverture d'un fichier excel,avec un mot de passe ; la manipe a faire SVP merci Claude
Merci à vous
Claude
"clguillet" <clguillet@wanadoo.fr> a écrit dans le message de news:
%23ZuyFgH4EHA.1564@TK2MSFTNGP09.phx.gbl...
Bonsoir à tous
je voudrais interdire l'ouverture d'un fichier excel,avec un mot de passe
; la manipe a faire SVP
merci
Claude
