Fichier protégé avec mot de passe

Bonjour à tous

J'ai protégé un classeur par un mot de passe.
Mais j'ai des macros qui ont besoin de dévérouiller temporairement le
classeur pour faire des modif.
Comment éviter que ces macros demande le mot de passe.
Y-a-t-il une instruction pour ce faire?

@+

Salut Jean-paul,

essaie ceci:


sub motdepasseautomatique()

ActiveSheet.Unprotect Password:="monmotdepasse"

' ici les modifs que tu veux faire

ActiveSheet.Protect Password:="monmotdepasse"
End Sub


olivier

bonjour

j'en profite pour m'insérer et parler de mon problème, et que JP-V va
peut-être rencontrer le même

je protège mes feuilles en VBA
activesheet.protect password = "tagadatsointsoin"
lorsque je ve déverouiller par l'interface Excel (entrez votre mot de
passe --> j'écris tagadatsointsoin), cet espère d'illétré me dit
que mon mot de passe n'est pas valide que je vérifie la casse et si
j'ai pas de touche MAJ activée.

A l'invers j'ai voulu tester pour répondre à JP-V
si tu vérouilles par l'interface Excel et déverouille en VBA,
ActiveSheet.Unprotect Password:="tagadatsointsoin"
l'erreur s'affiche pareillement !!

Cela vient-il que le niveau de protection n'est pas le même, ou du
fait que le mot de passe s'affiche en ***** ??? comment faire pour
esquiver ce problème ?

Dsl JP-V d'avoir investi ta question
Bonne journée
Céline

Bonjour à tous

J'ai protégé un classeur par un mot de passe.
Mais j'ai des macros qui ont besoin de dévérouiller temporairement le
classeur pour faire des modif.
Comment éviter que ces macros demande le mot de passe.
Y-a-t-il une instruction pour ce faire?

@+

Salut Jean-paul,

essaie ceci:


sub motdepasseautomatique()

ActiveSheet.Unprotect Password:="monmotdepasse"

' ici les modifs que tu veux faire

ActiveSheet.Protect Password:="monmotdepasse"
End Sub


olivier

as-tu résolu ton pb ?

Bonjour, *Jean-Paul V*

Si tu protèges ton fichier par macro avec le paramètre UserInterfaceOnly, il
n'est pas nécessaire de le déprotéger pour qu'une macro travaille sur la
zone protégée.

--
Bien amicordialement,
P. Bastard

Bonjour à tous

J'ai protégé un classeur par un mot de passe.
Mais j'ai des macros qui ont besoin de dévérouiller temporairement le
classeur pour faire des modif.
Comment éviter que ces macros demande le mot de passe.
Y-a-t-il une instruction pour ce faire?

@+

Bonjour

Merci ça marche ! formidable !

Bonjour à tous

J'ai protégé un classeur par un mot de passe.
Mais j'ai des macros qui ont besoin de dévérouiller temporairement le
classeur pour faire des modif.
Comment éviter que ces macros demande le mot de passe.
Y-a-t-il une instruction pour ce faire?

@+

Salut Jean-paul,

essaie ceci:


sub motdepasseautomatique()

ActiveSheet.Unprotect Password:="monmotdepasse"

' ici les modifs que tu veux faire

ActiveSheet.Protect Password:="monmotdepasse"
End Sub


olivier

Bonjour Patrick

C'est une autre piste mais comment protéger le fichier par une macro .
Est-ce une macro que l'on met dans this worksheet et qui commence par :
Private Sub Workbook_Open()

quelle est cette macro?

@+ j'espère

Bonjour, *Jean-Paul V*

Si tu protèges ton fichier par macro avec le paramètre UserInterfaceOnly, il
n'est pas nécessaire de le déprotéger pour qu'une macro travaille sur la
zone protégée.

--
Bien amicordialement,
P. Bastard

Bonjour à tous

J'ai protégé un classeur par un mot de passe.
Mais j'ai des macros qui ont besoin de dévérouiller temporairement le
classeur pour faire des modif.
Comment éviter que ces macros demande le mot de passe.
Y-a-t-il une instruction pour ce faire?

@+

Bonjour, *Jean-Paul V*


Private Sub Protege()

'Variables
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Sheets
Sh.Protect UserInterfaceOnly:=True, AllowFiltering:=True, _
AllowFormattingColumns:=True, AllowFormattingRows:=True,
AllowSorting:=True
End Sub
'*****************************
Protège toutes les feuilles de ton classeur (vis-à vis des utilisateurs),
mais autorisera les macros à agir sur les zones protégées.


--
Bien amicordialement,
P. Bastard

Bonjour Patrick

C'est une autre piste mais comment protéger le fichier par une macro .
Est-ce une macro que l'on met dans this worksheet et qui commence par
: Private Sub Workbook_Open()

quelle est cette macro?

@+ j'espère

Bonjour, *Jean-Paul V*

Si tu protèges ton fichier par macro avec le paramètre
UserInterfaceOnly, il n'est pas nécessaire de le déprotéger pour
qu'une macro travaille sur la zone protégée.

--
Bien amicordialement,
P. Bastard

Bonjour à tous

J'ai protégé un classeur par un mot de passe.
Mais j'ai des macros qui ont besoin de dévérouiller temporairement
le classeur pour faire des modif.
Comment éviter que ces macros demande le mot de passe.
Y-a-t-il une instruction pour ce faire?

@+

Bonjour, *Jean-Paul V*

En complément,

Private sub () à appeler par une autre macro.
Sinon sub()
Tu peux bien entendu ajouter ce code à ta sub Worbook_open()

--
Bien amicordialement,
P. Bastard

Bonjour Patrick

C'est une autre piste mais comment protéger le fichier par une macro .
Est-ce une macro que l'on met dans this worksheet et qui commence par
: Private Sub Workbook_Open()

quelle est cette macro?

@+ j'espère

Bonjour, *Jean-Paul V*

Si tu protèges ton fichier par macro avec le paramètre
UserInterfaceOnly, il n'est pas nécessaire de le déprotéger pour
qu'une macro travaille sur la zone protégée.

--
Bien amicordialement,
P. Bastard

Bonjour à tous

J'ai protégé un classeur par un mot de passe.
Mais j'ai des macros qui ont besoin de dévérouiller temporairement
le classeur pour faire des modif.
Comment éviter que ces macros demande le mot de passe.
Y-a-t-il une instruction pour ce faire?

@+

Bonjour Patrick

J'ai essayé votre macro en mettant dans this Worksheet :

Private Sub Workbook_Open()
ActiveWindow.FreezePanes = False
Application.ScreenUpdating = False
Sheets("Note de Frais").Select
Range("VERTICAL").Select
ActiveWindow.Zoom = True
Sheets("Recommandations").Select
' Range("VERTICAL2").Select
' ActiveWindow.Zoom = True
Application.ScreenUpdating = True
Protege
RetourNoteDeFrais
End Sub

Private Sub Protege()

'Variables
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Sheets
Sh.Protect UserInterfaceOnly:=True, Allowfiltering:=True,
AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowSorting:=True

End Sub

1 ) à l'ouverture la macro se plante sur Allowfiltering:=True
Erreur de compilation
Argument nommé introuvable

2 ) j'ai du neutraliser VERTICAL2 qui se plante et je ne comprends pas
pourquoi allors que le champ VERTICAL2 est bien défini.

@+ j'espère et merci encore

Bonjour, *Jean-Paul V*


Private Sub Protege()

'Variables
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Sheets
Sh.Protect UserInterfaceOnly:=True, AllowFiltering:=True, _
AllowFormattingColumns:=True, AllowFormattingRows:=True,
AllowSorting:=True
End Sub
'*****************************
Protège toutes les feuilles de ton classeur (vis-à vis des utilisateurs),
mais autorisera les macros à agir sur les zones protégées.


--
Bien amicordialement,
P. Bastard

Bonjour Patrick

C'est une autre piste mais comment protéger le fichier par une macro .
Est-ce une macro que l'on met dans this worksheet et qui commence par
: Private Sub Workbook_Open()

quelle est cette macro?

@+ j'espère

Bonjour, *Jean-Paul V*

Si tu protèges ton fichier par macro avec le paramètre
UserInterfaceOnly, il n'est pas nécessaire de le déprotéger pour
qu'une macro travaille sur la zone protégée.

--
Bien amicordialement,
P. Bastard

Bonjour à tous

J'ai protégé un classeur par un mot de passe.
Mais j'ai des macros qui ont besoin de dévérouiller temporairement
le classeur pour faire des modif.
Comment éviter que ces macros demande le mot de passe.
Y-a-t-il une instruction pour ce faire?

@+

Bonjour, *Jean-Paul V*

Et en mettant : "Protege" au début de la procédure Workbook_Open ?

car cette protection, permettant aux macros de s'exécuter, ne sera active
qu'une fois que "protege" aura été excuté.

En cas des soucis, dépose ton fichier, s'il n'est pas confidentiel, sur
cjoint.com, ou fais-le moi parvenir en bal perso (en otant les "pasdespam"
de l'adresse).


--
Bien amicordialement,
P. Bastard

Bonjour Patrick

J'ai essayé votre macro en mettant dans this Worksheet :

Private Sub Workbook_Open()
ActiveWindow.FreezePanes = False
Application.ScreenUpdating = False
Sheets("Note de Frais").Select
Range("VERTICAL").Select
ActiveWindow.Zoom = True
Sheets("Recommandations").Select
' Range("VERTICAL2").Select
' ActiveWindow.Zoom = True
Application.ScreenUpdating = True
Protege
RetourNoteDeFrais
End Sub

Private Sub Protege()

'Variables
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Sheets
Sh.Protect UserInterfaceOnly:=True, Allowfiltering:=True,
AllowFormattingColumns:=True, AllowFormattingRows:=True,
AllowSorting:=True

End Sub

1 ) à l'ouverture la macro se plante sur Allowfiltering:=True
Erreur de compilation
Argument nommé introuvable

2 ) j'ai du neutraliser VERTICAL2 qui se plante et je ne comprends pas
pourquoi allors que le champ VERTICAL2 est bien défini.

@+ j'espère et merci encore

Bonjour, *Jean-Paul V*


Private Sub Protege()

'Variables
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Sheets
Sh.Protect UserInterfaceOnly:=True, AllowFiltering:=True,
_ AllowFormattingColumns:=True, AllowFormattingRows:=True,
AllowSorting:=True
End Sub
'*****************************
Protège toutes les feuilles de ton classeur (vis-à vis des
utilisateurs), mais autorisera les macros à agir sur les zones
protégées.


--
Bien amicordialement,
P. Bastard

Bonjour Patrick

C'est une autre piste mais comment protéger le fichier par une
macro . Est-ce une macro que l'on met dans this worksheet et qui
commence par

Private Sub Workbook_Open()

quelle est cette macro?

@+ j'espère

Bonjour, *Jean-Paul V*

Si tu protèges ton fichier par macro avec le paramètre
UserInterfaceOnly, il n'est pas nécessaire de le déprotéger pour
qu'une macro travaille sur la zone protégée.

--
Bien amicordialement,
P. Bastard

Bonjour à tous

J'ai protégé un classeur par un mot de passe.
Mais j'ai des macros qui ont besoin de dévérouiller temporairement
le classeur pour faire des modif.
Comment éviter que ces macros demande le mot de passe.
Y-a-t-il une instruction pour ce faire?

@+