protéger et deprotéger

[patrol]

Salut a tous

je sait protéger et deprotéger plusieurs feuilles d'un meme classeur


Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect
Next i
End Sub


Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Unprotect
Next i
End Sub


mais comment rajouter un mot de pass dans protéger et deproteger " le meme de preference

merci

patrol

 

[kjin]

Re : protéger et deprotéger

Bonsoir,
En haut du clavier, il y a une touche de fonction F1 qui ouvre l'aide VBA et à la rubrique Protect on trouve

Protect, méthode - Exemple
Cet exemple montre comment protéger le classeur actif.
ActiveWorkbook.Protect Password := "patrol" '<-- non c'est une blague

Magique non !😀
A+
kjin

 

[jeanpierre]

Re : protéger et deprotéger

Bonsoir patrol,

Ou : Worksheets(i).Protect ("ton mot de passe")

ou encore : Worksheets(i).Protect password:="ton mot de passe"

Pareil pour la déprotection.

Bonne nuit.

Jean-Pierre

Edit : Bonsoir kjin

 

[patrol]

Re : protéger et deprotéger

ben merci a vous

mais quand j'appuie sur F1 ça m'ouvre l'aide excel

mais je ne voit rien qui correspond a l'aide VBA

ou alors je suis idiot " ça c'est possible " la c'est moi qui plaisante

merci

patrol

 

[jeanpierre]

Re : protéger et deprotéger

Re,

Pour l'aide VBA, il faut être sous l'éditeur VBE par Alt F11 et là tu vas trouver.

Jean-Pierre

Edit : Re kjin,

 

[kjin]

Re : protéger et deprotéger

Re,
Si tu es dans une fenêtre Excel, F1 ouvre l'aide d'...Excel
Si tu es dans une fenêtre Vba, F1 ouvre l'aide de...Vba
Mais mieux encore, si tu positionnes le curseur sur le mot "Protect" dans ta ligne de code, lorsque tu appuies sur la touche F1, l'aide vba s'ouvre à la rubrique...Protect
Magique je disais !

Edit : salut jp

A+
kjin

 

[patrol]

Re : protéger et deprotéger

bon j'ai essyer avec ce que je pensait avoir compris mais ça ne marche

ou plutot je ne trouves pas mon erreur dans:

Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect password:="protege"

Next i
End Sub


Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Unprotect password:="deprotege"

Next i
End Sub

alors je vais essyer de trouver , mais c'est pas facile pour moi qui ne maitrise ni l'anglais et trés trés peut le VBA

merci patrol

 

[ROGER2327]

Re : protéger et deprotéger

Re...
Bonjour à tous

Avec

[COLOR="DarkSlateGray"][B]Sub Protéger()
[COLOR="SeaGreen"]' Protection automatique de toutes les feuilles d'un classeur[/COLOR]
Dim nombre As Integer, i As Integer
   nombre = ActiveWorkbook.Sheets.Count
   Application.ScreenUpdating = False
   For i = 1 To nombre
      Worksheets(i).Protect Password:="[COLOR="Red"]protege[/COLOR]"
   Next i
End Sub


Sub Déprotéger()
[COLOR="SeaGreen"]' Déprotection automatique de toutes les feuilles d'un classeur[/COLOR]
Dim nombre As Integer, i As Integer
   nombre = ActiveWorkbook.Sheets.Count
   Application.ScreenUpdating = False
   For i = 1 To nombre
      Worksheets(i).Unprotect Password:="[COLOR="Red"]protege[/COLOR]"
   Next i
End Sub[/B][/COLOR]

ça va aller...​

ROGER2327
#2876

 

[patrol]

Re : protéger et deprotéger

Re...
Bonjour à tous

Avec

[COLOR="DarkSlateGray"][B]Sub Protéger()
[COLOR="SeaGreen"]' Protection automatique de toutes les feuilles d'un classeur[/COLOR]
Dim nombre As Integer, i As Integer
   nombre = ActiveWorkbook.Sheets.Count
   Application.ScreenUpdating = False
   For i = 1 To nombre
      Worksheets(i).Protect Password:="[COLOR="Red"]protege[/COLOR]"
   Next i
End Sub


Sub Déprotéger()
[COLOR="SeaGreen"]' Déprotection automatique de toutes les feuilles d'un classeur[/COLOR]
Dim nombre As Integer, i As Integer
   nombre = ActiveWorkbook.Sheets.Count
   Application.ScreenUpdating = False
   For i = 1 To nombre
      Worksheets(i).Unprotect Password:="[COLOR="Red"]protege[/COLOR]"
   Next i
End Sub[/B][/COLOR]

ça va aller...​

ROGER2327
#2876

Merci roger

j'ai vue la modif i as integer et je suppose mon erreur

cela veut que la feuille est inclue🙁

merci encore

patrol

 

[ROGER2327]

Re : protéger et deprotéger

Re...

La déclaration de i n'est pas en cause : c'est seulement un réflexe pour qui, comme moi, travaille toujours avec Option Explicit.
Ce qu'il faut remarquer, c'est ce qui est écrit en rouge : le mot de passe pour déprotéger doit être le même que celui utilisé pour protéger...​

ROGER2327
#2878

 

[kjin]

Re : protéger et deprotéger

Bonjour,

...alors je vais essyer de trouver , mais c'est pas facile pour moi qui ne maitrise ni l'anglais et trés trés peut le VBA

Ou : Worksheets(i).Protect ("ton mot de passe")
ou encore : Worksheets(i).Protect password:="ton mot de passe"
Pareil pour la déprotection.

😕
A+
kjin