ActiveSheet.Unprotect

[LAGU972]

Bonjour,

Je cherche comment résoudre un petit problème de code. j'ai une feuille Excel protégé par mot de passe et il y a dan cette feuille un montant à saisir. Que faire pour controler le mot de passe. Par exemple sortir de la macro si le mot de passe est FAUX.

Dim Rep As Integer
ActiveSheet.Unprotect
Range("E11:F11").Select
Selection.ClearContents
Rep = InputBox("Entrez le solde restant de l'année précédente", "REPORT", 0)
If Rep = 0 Then
GoTo Fin
End If
Fin:
ActiveCell.Value = Rep
ActiveSheet.Protect "LLLL", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

MERCI

 

[JCGL]

Re : ActiveSheet.Unprotect

Bonjour à tous,

Bienvenue sur XLD

Tu aurais du poser ta question sur le Forum Excel.

Peux-tu essayer avec :

Option Explicit


Sub Test()
Dim Rep As Integer
Dim MdP As String


MdP = InputBox("Entrez le Mot de Passe", "Mot de Passe")
If MdP <> "LLLL" Then Exit Sub
ActiveSheet.Unprotect MdP
Range("E11:F11").ClearContents
Rep = InputBox("Entrez le solde restant de l'année précédente", "REPORT", 0)
If Rep = 0 Then GoTo Fin
Fin:
ActiveCell.Value = Rep
ActiveSheet.Protect MdP, DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

A + à tous