Protéger par un mot de passe

[FranQuent]

Bonjour,

Je souhaite créer une macro qui permettrait de verrouiller une feuille et une partie d'une autre feuille par un mot de passe rentré dans une messagebox par celui qui exécute la macro. Est-ce possible?

J'ai le code suivant mais ne me permet pas de choisir le mot de passe ni la plage à laisser déprotégée:

ActiveSheet.protect Password:="****", DrawingObjects:=False, Contents:=True, Scenarios:=False
End Sub

Merci

 

[Pierrot93]

Re : Protéger par un mot de passe

Bonjour,

tu as déjà posé la question ici, non...

https://www.excel-downloads.com/threads/proteger-par-un-mot-de-passe.196530/

bonne journée
@+

 

[FranQuent]

Re : Protéger par un mot de passe

Bonjour Pierrot,
Exact je pensais que la discussion n'avait pas été créée. Du coup est-ce possible?

 

[Pierrot93]

Re : Protéger par un mot de passe

Re,

regarde peut être ceci :

Option Explicit
Sub test()
Dim t As String, c As Range
t = InputBox("Mot de passe ??")
On Error Resume Next
Set c = Application.InputBox("plage dfe cellule non protégée...", Type:=8)
If Err.Number <> 0 Or t = "" Then Exit Sub
On Error GoTo 0
c.Locked = False
ActiveSheet.Protect t
End Sub

 

[FranQuent]

Re : Protéger par un mot de passe

Merci beaucoup encore une fois Pierrot,
Ca fonctionne par contre la plage non protégée ne correspond pas exactement.
Et en fait je voudrais prédéfinir la plage de la seconde feuille qu'il ne faudrait pas protéger.
Par exemple:
Je veux protéger "feuille1"
et "feuille2" sauf les colonnes A et B de la "feuille2"
Et cette plage doit toujours rester la même pour cette macro.

Un grand merci

 

[Pierrot93]

Re : Protéger par un mot de passe

Re,

bah... pas tout compris moi..;
peut être définir differement la plage à ne pas protéger... A voir.. en lieu et place de "Application.InputBox"

Set c = Feuil2.Columns("A:B"))

 

[FranQuent]

Re : Protéger par un mot de passe

Parfait merci. Par contre si je veux verrouiller en plus la feuille1 ?

 

[Pierrot93]

Re : Protéger par un mot de passe

Re,

modifie peut être ceci :

ActiveSheet.Protect t

par cela :

Sheets("Feuil1").Protect t

 

[FranQuent]

Re : Protéger par un mot de passe

Lorsque je test avec ce remplacement ça vérouille toute la feuil1 mais pas du tout la feuil2...

 

[FranQuent]

Re : Protéger par un mot de passe

Du coup j'ai mis ce code:

Sub TEST()
Dim t As String, c As Range
t = InputBox("Mot de passe ??", "Validation de la Contre-étude")
On Error Resume Next
Set c = Feuil2.Columns("A:B")
If Err.Number <> 0 Or t = "" Then Exit Sub
On Error GoTo 0
c.Locked = False
Sheets("Feuil1").Protect t
Sheets("Feuil2").Protect t
End Sub

Mais ce sont les colonnes A,B,C,D,E et F qui sont protégées automatiquement...

Merci bcp

 

[Pierrot93]

Re : Protéger par un mot de passe

Re,

Mais ce sont les colonnes A,B,C,D,E et F qui sont protégées automatiquement...

comprends pas trop A et B de la feuille 2 devraient être déprotégées.... sachant que par défaut les cellules sont vérouillées....