Fichier protégé avec mot de passe

Bonjour Patrick

J'ai essayé de mettre Protege au début mais ça ne marche pas j'ai le même
message .
Voir fichier http://cjoint.com/?jDgPRSKqqG

voir également VERTICAL2 qui plante

@+ j'espère et merci encore

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?

@+

Bonjour Patick

Au bureau je n'est pas le même problème à l'ouverture du fichier il demande
le mot de passe pour déprotéger .
Ceci avec dans this worksheet :
Private Sub Workbook_Open()
Protege
ActiveWindow.FreezePanes = False
Application.ScreenUpdating = False
' Sheets("Note de Frais").Select
' Range("VERTICAL").Select
' ActiveWindow.Zoom = True
' Sheets("Recommandations").Select
' Range("A1:A50").Select
' ActiveWindow.Zoom = 100
' Range("A1").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
Next

End Sub

et dans module

Sub RetourNoteDeFrais()
Range("A1").Select
Range("D1").Select
Sheets("Note de Frais").Select
Range("A1").Select
Range("home").Select
ActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = True
End Sub

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?

@+

Bonjour, *Jean-Paul V*

Supprime le mot de passe sur Férié.


--
Bien amicordialement,
P. Bastard

Bonjour Patick

Au bureau je n'est pas le même problème à l'ouverture du fichier il
demande le mot de passe pour déprotéger .
Ceci avec dans this worksheet :
Private Sub Workbook_Open()
Protege
ActiveWindow.FreezePanes = False
Application.ScreenUpdating = False
' Sheets("Note de Frais").Select
' Range("VERTICAL").Select
' ActiveWindow.Zoom = True
' Sheets("Recommandations").Select
' Range("A1:A50").Select
' ActiveWindow.Zoom = 100
' Range("A1").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 Next

End Sub

et dans module

Sub RetourNoteDeFrais()
Range("A1").Select
Range("D1").Select
Sheets("Note de Frais").Select
Range("A1").Select
Range("home").Select
ActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = True
End Sub

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?

@+

Bonjour Patrick

Effectivement en supprimant le mot de passe sur Fériés ça marche mais la
feuille Fériés n'est plus protégée ce qui est facheux.
la partie VERTICAL2 refuse de marcher alors que la partie VERTICAL
fonctionne ?

@+ merci

Bonjour, *Jean-Paul V*

Supprime le mot de passe sur Férié.


--
Bien amicordialement,
P. Bastard

Bonjour Patick

Au bureau je n'est pas le même problème à l'ouverture du fichier il
demande le mot de passe pour déprotéger .
Ceci avec dans this worksheet :
Private Sub Workbook_Open()
Protege
ActiveWindow.FreezePanes = False
Application.ScreenUpdating = False
' Sheets("Note de Frais").Select
' Range("VERTICAL").Select
' ActiveWindow.Zoom = True
' Sheets("Recommandations").Select
' Range("A1:A50").Select
' ActiveWindow.Zoom = 100
' Range("A1").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 Next

End Sub

et dans module

Sub RetourNoteDeFrais()
Range("A1").Select
Range("D1").Select
Sheets("Note de Frais").Select
Range("A1").Select
Range("home").Select
ActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = True
End Sub

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?

@+

Bonjour Céline

J'ai résolu mon Pb de casse avec la solution olitoto .
Mon mot de passe était en minuscules et ds la macro je mettais des majuscules.
J'aimerais bien voir votre fichier car je crois comprendre que vous vous
avez plusieurs niveau de sécurités,s'il n'y a rien de
cofidentiel,pourriez-vous le mettre dans ci-joint.

Bon week-end

as-tu résolu ton pb ?

Bonjour JP_V

toutes mes excuses je n'avais pas gardé ce fil sur les protections
donc je n'ai vu que maintenant votre requete pour récupérer mon
classeur;
En avez-vous encore besoin ?
Bonne fin de journée

Bonjour Patrick

Effectivement en supprimant le mot de passe sur Fériés ça marche ma is la
feuille Fériés n'est plus protégée ce qui est facheux.
la partie VERTICAL2 refuse de marcher alors que la partie VERTICAL
fonctionne ?

@+ merci

Bonjour, *Jean-Paul V*

Supprime le mot de passe sur Férié.


--
Bien amicordialement,
P. Bastard

Bonjour Patick

Au bureau je n'est pas le même problème à l'ouverture du fichie r il
demande le mot de passe pour déprotéger .
Ceci avec dans this worksheet :
Private Sub Workbook_Open()
Protege
ActiveWindow.FreezePanes = False
Application.ScreenUpdating = False
' Sheets("Note de Frais").Select
' Range("VERTICAL").Select
' ActiveWindow.Zoom = True
' Sheets("Recommandations").Select
' Range("A1:A50").Select
' ActiveWindow.Zoom = 100
' Range("A1").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 Next

End Sub

et dans module

Sub RetourNoteDeFrais()
Range("A1").Select
Range("D1").Select
Sheets("Note de Frais").Select
Range("A1").Select
Range("home").Select
ActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = True
End Sub

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ége r 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 Céline

Mon Pb est résolu sans casse mais il me reste le problème du visa
électronique de ma note de frais.C'est pour cela que je voulais explorer
votre fichier qui semble avoir plusieurs niveau de protection.

J'ai dans mon fichier une liste du personnel, pour chaque personne on
connaît le supérieur hiérarchique, comment résoudre le problème du visa
électronique de la note de frais. Comment avoir une cellule protégée, en fait
3 cellules fusionnées ( où doit figurer le visa ( par un mot de passe lié au
nom du supérieur hiérarchique ou plus exactement le couple émetteur Note de
Frais ,Supérieur Hiérarchique).

Je vais poser cette question pour ce sujet sur le site.(Problème visa
électronique)

@+ j'espère Bonne Journée

as-tu résolu ton pb ?