partons dans l'hypothese que A2 soit protégé par un mot de passe, est t'il
possible que lorsque je taperai et seulement si je tape 999 en A1 que A2 se
déprotege automatiquement ?
Merci
Manu
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FdeCourt
Salut,
Voila une macro que j'utilise lorsque je travaille sur des feuilles protégée :
Sub surprotect(x As Integer, Optional F As String) Dim mdp As String '<<<<Permet d'indiquer s'il faut proteger ou non. Permet de travailler en tant qu'administrateur>>>>> If Sheets("Index").Cells(1, 1).Value = "999" Then x = 0
If F = "" Then mdp = "MonMotDePasse" Else mdp = F Select Case x Case 0 ActiveSheet.Unprotect mdp Case 1 ActiveSheet.Protect mdp, AllowFiltering:=True ActiveSheet.EnableSelection = xlUnlockedCells End Select End Sub
Ainsi, si la cellule A1 de la feuille Index est egale à 999, alors le feuille est déprotégée
bonjour et bonne année à tous,
partons dans l'hypothese que A2 soit protégé par un mot de passe, est t'il possible que lorsque je taperai et seulement si je tape 999 en A1 que A2 se déprotege automatiquement ? Merci Manu
Salut,
Voila une macro que j'utilise lorsque je travaille sur des feuilles
protégée :
Sub surprotect(x As Integer, Optional F As String)
Dim mdp As String
'<<<<Permet d'indiquer s'il faut proteger ou non. Permet de travailler
en tant qu'administrateur>>>>>
If Sheets("Index").Cells(1, 1).Value = "999" Then x = 0
If F = "" Then mdp = "MonMotDePasse" Else mdp = F
Select Case x
Case 0
ActiveSheet.Unprotect mdp
Case 1
ActiveSheet.Protect mdp, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Select
End Sub
Ainsi, si la cellule A1 de la feuille Index est egale à 999, alors le
feuille est déprotégée
bonjour et bonne année à tous,
partons dans l'hypothese que A2 soit protégé par un mot de passe, est t'il
possible que lorsque je taperai et seulement si je tape 999 en A1 que A2 se
déprotege automatiquement ?
Merci
Manu
Voila une macro que j'utilise lorsque je travaille sur des feuilles protégée :
Sub surprotect(x As Integer, Optional F As String) Dim mdp As String '<<<<Permet d'indiquer s'il faut proteger ou non. Permet de travailler en tant qu'administrateur>>>>> If Sheets("Index").Cells(1, 1).Value = "999" Then x = 0
If F = "" Then mdp = "MonMotDePasse" Else mdp = F Select Case x Case 0 ActiveSheet.Unprotect mdp Case 1 ActiveSheet.Protect mdp, AllowFiltering:=True ActiveSheet.EnableSelection = xlUnlockedCells End Select End Sub
Ainsi, si la cellule A1 de la feuille Index est egale à 999, alors le feuille est déprotégée
bonjour et bonne année à tous,
partons dans l'hypothese que A2 soit protégé par un mot de passe, est t'il possible que lorsque je taperai et seulement si je tape 999 en A1 que A2 se déprotege automatiquement ? Merci Manu
Manu
Merci, mais je n'arrive pas à la faire fonctionner, est-ce du à ma version 2003. j'ai pourtant essayé de la mettre dans un module, puis dans workbook et dans la feuil1, mais rien n'y fait. Qu'ais je oublié ?
Manu
"FdeCourt" a écrit dans le message de news:
Salut,
Voila une macro que j'utilise lorsque je travaille sur des feuilles protégée :
Sub surprotect(x As Integer, Optional F As String) Dim mdp As String '<<<<Permet d'indiquer s'il faut proteger ou non. Permet de travailler en tant qu'administrateur>>>>> If Sheets("Index").Cells(1, 1).Value = "999" Then x = 0
If F = "" Then mdp = "MonMotDePasse" Else mdp = F Select Case x Case 0 ActiveSheet.Unprotect mdp Case 1 ActiveSheet.Protect mdp, AllowFiltering:=True ActiveSheet.EnableSelection = xlUnlockedCells End Select End Sub
Ainsi, si la cellule A1 de la feuille Index est egale à 999, alors le feuille est déprotégée
bonjour et bonne année à tous,
partons dans l'hypothese que A2 soit protégé par un mot de passe, est t'il possible que lorsque je taperai et seulement si je tape 999 en A1 que A2 se déprotege automatiquement ? Merci Manu
Merci, mais je n'arrive pas à la faire fonctionner, est-ce du à ma version
2003. j'ai pourtant essayé de la mettre dans un module, puis dans workbook
et dans la feuil1, mais rien n'y fait.
Qu'ais je oublié ?
Manu
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1167824821.734776.8860@k21g2000cwa.googlegroups.com...
Salut,
Voila une macro que j'utilise lorsque je travaille sur des feuilles
protégée :
Sub surprotect(x As Integer, Optional F As String)
Dim mdp As String
'<<<<Permet d'indiquer s'il faut proteger ou non. Permet de travailler
en tant qu'administrateur>>>>>
If Sheets("Index").Cells(1, 1).Value = "999" Then x = 0
If F = "" Then mdp = "MonMotDePasse" Else mdp = F
Select Case x
Case 0
ActiveSheet.Unprotect mdp
Case 1
ActiveSheet.Protect mdp, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Select
End Sub
Ainsi, si la cellule A1 de la feuille Index est egale à 999, alors le
feuille est déprotégée
bonjour et bonne année à tous,
partons dans l'hypothese que A2 soit protégé par un mot de passe, est t'il
possible que lorsque je taperai et seulement si je tape 999 en A1 que A2
se
déprotege automatiquement ?
Merci
Manu
Merci, mais je n'arrive pas à la faire fonctionner, est-ce du à ma version 2003. j'ai pourtant essayé de la mettre dans un module, puis dans workbook et dans la feuil1, mais rien n'y fait. Qu'ais je oublié ?
Manu
"FdeCourt" a écrit dans le message de news:
Salut,
Voila une macro que j'utilise lorsque je travaille sur des feuilles protégée :
Sub surprotect(x As Integer, Optional F As String) Dim mdp As String '<<<<Permet d'indiquer s'il faut proteger ou non. Permet de travailler en tant qu'administrateur>>>>> If Sheets("Index").Cells(1, 1).Value = "999" Then x = 0
If F = "" Then mdp = "MonMotDePasse" Else mdp = F Select Case x Case 0 ActiveSheet.Unprotect mdp Case 1 ActiveSheet.Protect mdp, AllowFiltering:=True ActiveSheet.EnableSelection = xlUnlockedCells End Select End Sub
Ainsi, si la cellule A1 de la feuille Index est egale à 999, alors le feuille est déprotégée
bonjour et bonne année à tous,
partons dans l'hypothese que A2 soit protégé par un mot de passe, est t'il possible que lorsque je taperai et seulement si je tape 999 en A1 que A2 se déprotege automatiquement ? Merci Manu
FdeCourt
Manu,
Normal, c'était un exemple; et non pas une solution définitive.
Regarde ce classeur : http://cjoint.com/?bdpdhZTwJH
Merci, mais je n'arrive pas à la faire fonctionner, est-ce du à ma ve rsion 2003. j'ai pourtant essayé de la mettre dans un module, puis dans workb ook et dans la feuil1, mais rien n'y fait. Qu'ais je oublié ?
Manu
"FdeCourt" a écrit dans le message de news:
Salut,
Voila une macro que j'utilise lorsque je travaille sur des feuilles protégée :
Sub surprotect(x As Integer, Optional F As String) Dim mdp As String '<<<<Permet d'indiquer s'il faut proteger ou non. Permet de travailler en tant qu'administrateur>>>>> If Sheets("Index").Cells(1, 1).Value = "999" Then x = 0
If F = "" Then mdp = "MonMotDePasse" Else mdp = F Select Case x Case 0 ActiveSheet.Unprotect mdp Case 1 ActiveSheet.Protect mdp, AllowFiltering:=True ActiveSheet.EnableSelection = xlUnlockedCells End Select End Sub
Ainsi, si la cellule A1 de la feuille Index est egale à 999, alors le feuille est déprotégée
bonjour et bonne année à tous,
partons dans l'hypothese que A2 soit protégé par un mot de passe, e st t'il possible que lorsque je taperai et seulement si je tape 999 en A1 que A2 se déprotege automatiquement ? Merci Manu
Manu,
Normal, c'était un exemple; et non pas une solution définitive.
Regarde ce classeur : http://cjoint.com/?bdpdhZTwJH
Merci, mais je n'arrive pas à la faire fonctionner, est-ce du à ma ve rsion
2003. j'ai pourtant essayé de la mettre dans un module, puis dans workb ook
et dans la feuil1, mais rien n'y fait.
Qu'ais je oublié ?
Manu
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1167824821.734776.8860@k21g2000cwa.googlegroups.com...
Salut,
Voila une macro que j'utilise lorsque je travaille sur des feuilles
protégée :
Sub surprotect(x As Integer, Optional F As String)
Dim mdp As String
'<<<<Permet d'indiquer s'il faut proteger ou non. Permet de travailler
en tant qu'administrateur>>>>>
If Sheets("Index").Cells(1, 1).Value = "999" Then x = 0
If F = "" Then mdp = "MonMotDePasse" Else mdp = F
Select Case x
Case 0
ActiveSheet.Unprotect mdp
Case 1
ActiveSheet.Protect mdp, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Select
End Sub
Ainsi, si la cellule A1 de la feuille Index est egale à 999, alors le
feuille est déprotégée
bonjour et bonne année à tous,
partons dans l'hypothese que A2 soit protégé par un mot de passe, e st t'il
possible que lorsque je taperai et seulement si je tape 999 en A1 que A2
se
déprotege automatiquement ?
Merci
Manu
Normal, c'était un exemple; et non pas une solution définitive.
Regarde ce classeur : http://cjoint.com/?bdpdhZTwJH
Merci, mais je n'arrive pas à la faire fonctionner, est-ce du à ma ve rsion 2003. j'ai pourtant essayé de la mettre dans un module, puis dans workb ook et dans la feuil1, mais rien n'y fait. Qu'ais je oublié ?
Manu
"FdeCourt" a écrit dans le message de news:
Salut,
Voila une macro que j'utilise lorsque je travaille sur des feuilles protégée :
Sub surprotect(x As Integer, Optional F As String) Dim mdp As String '<<<<Permet d'indiquer s'il faut proteger ou non. Permet de travailler en tant qu'administrateur>>>>> If Sheets("Index").Cells(1, 1).Value = "999" Then x = 0
If F = "" Then mdp = "MonMotDePasse" Else mdp = F Select Case x Case 0 ActiveSheet.Unprotect mdp Case 1 ActiveSheet.Protect mdp, AllowFiltering:=True ActiveSheet.EnableSelection = xlUnlockedCells End Select End Sub
Ainsi, si la cellule A1 de la feuille Index est egale à 999, alors le feuille est déprotégée
bonjour et bonne année à tous,
partons dans l'hypothese que A2 soit protégé par un mot de passe, e st t'il possible que lorsque je taperai et seulement si je tape 999 en A1 que A2 se déprotege automatiquement ? Merci Manu
Manu
Super, et merci
Ca fonctionne tres bien
Manu
"FdeCourt" a écrit dans le message de news:
Manu,
Normal, c'était un exemple; et non pas une solution définitive.
Regarde ce classeur : http://cjoint.com/?bdpdhZTwJH
Merci, mais je n'arrive pas à la faire fonctionner, est-ce du à ma version 2003. j'ai pourtant essayé de la mettre dans un module, puis dans workbook et dans la feuil1, mais rien n'y fait. Qu'ais je oublié ?
Manu
"FdeCourt" a écrit dans le message de news:
Salut,
Voila une macro que j'utilise lorsque je travaille sur des feuilles protégée :
Sub surprotect(x As Integer, Optional F As String) Dim mdp As String '<<<<Permet d'indiquer s'il faut proteger ou non. Permet de travailler en tant qu'administrateur>>>>> If Sheets("Index").Cells(1, 1).Value = "999" Then x = 0
If F = "" Then mdp = "MonMotDePasse" Else mdp = F Select Case x Case 0 ActiveSheet.Unprotect mdp Case 1 ActiveSheet.Protect mdp, AllowFiltering:=True ActiveSheet.EnableSelection = xlUnlockedCells End Select End Sub
Ainsi, si la cellule A1 de la feuille Index est egale à 999, alors le feuille est déprotégée
bonjour et bonne année à tous,
partons dans l'hypothese que A2 soit protégé par un mot de passe, est t'il possible que lorsque je taperai et seulement si je tape 999 en A1 que A2 se déprotege automatiquement ? Merci Manu
Super, et merci
Ca fonctionne tres bien
Manu
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1167833015.440197.74030@h40g2000cwb.googlegroups.com...
Manu,
Normal, c'était un exemple; et non pas une solution définitive.
Regarde ce classeur : http://cjoint.com/?bdpdhZTwJH
Merci, mais je n'arrive pas à la faire fonctionner, est-ce du à ma version
2003. j'ai pourtant essayé de la mettre dans un module, puis dans workbook
et dans la feuil1, mais rien n'y fait.
Qu'ais je oublié ?
Manu
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1167824821.734776.8860@k21g2000cwa.googlegroups.com...
Salut,
Voila une macro que j'utilise lorsque je travaille sur des feuilles
protégée :
Sub surprotect(x As Integer, Optional F As String)
Dim mdp As String
'<<<<Permet d'indiquer s'il faut proteger ou non. Permet de travailler
en tant qu'administrateur>>>>>
If Sheets("Index").Cells(1, 1).Value = "999" Then x = 0
If F = "" Then mdp = "MonMotDePasse" Else mdp = F
Select Case x
Case 0
ActiveSheet.Unprotect mdp
Case 1
ActiveSheet.Protect mdp, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Select
End Sub
Ainsi, si la cellule A1 de la feuille Index est egale à 999, alors le
feuille est déprotégée
bonjour et bonne année à tous,
partons dans l'hypothese que A2 soit protégé par un mot de passe, est
t'il
possible que lorsque je taperai et seulement si je tape 999 en A1 que A2
se
déprotege automatiquement ?
Merci
Manu
Normal, c'était un exemple; et non pas une solution définitive.
Regarde ce classeur : http://cjoint.com/?bdpdhZTwJH
Merci, mais je n'arrive pas à la faire fonctionner, est-ce du à ma version 2003. j'ai pourtant essayé de la mettre dans un module, puis dans workbook et dans la feuil1, mais rien n'y fait. Qu'ais je oublié ?
Manu
"FdeCourt" a écrit dans le message de news:
Salut,
Voila une macro que j'utilise lorsque je travaille sur des feuilles protégée :
Sub surprotect(x As Integer, Optional F As String) Dim mdp As String '<<<<Permet d'indiquer s'il faut proteger ou non. Permet de travailler en tant qu'administrateur>>>>> If Sheets("Index").Cells(1, 1).Value = "999" Then x = 0
If F = "" Then mdp = "MonMotDePasse" Else mdp = F Select Case x Case 0 ActiveSheet.Unprotect mdp Case 1 ActiveSheet.Protect mdp, AllowFiltering:=True ActiveSheet.EnableSelection = xlUnlockedCells End Select End Sub
Ainsi, si la cellule A1 de la feuille Index est egale à 999, alors le feuille est déprotégée
bonjour et bonne année à tous,
partons dans l'hypothese que A2 soit protégé par un mot de passe, est t'il possible que lorsque je taperai et seulement si je tape 999 en A1 que A2 se déprotege automatiquement ? Merci Manu
