Protection de feuille + saisie userform

[Med30]

Bonjour,

Je débute dans le VBA, mais obligations professionnelles obligent, j'ai dû créer des userform depuis quelques jours (très intéressant et pratique).
Aujourd'hui, je bloque un peu sur la construction d'une commande qui permettra aux utilisateurs du tableur de saisir des lignes dans le tableau via l'userform tout en protégeant la feuille contre toute modification.

J'ai indiqué cette ligne dans mon workbook:

Private Sub Workbook_Open()
Worksheets("Saisie BT" ).Protect Password:="motdepasse", UserInterfaceOnly:=True
End Sub

ça m'avait l'air pas mal, mais cela bloque la saisie et le débogage me renvoi à ce If:

If Sheets("Saisie BT").Range("a5") = "" Then
Sheets("Saisie BT").Range("a5") = N°
Else
Sheets("Saisie BT").ListObjects(1).ListRows.Add
End If

C'est ce qui permet au formulaire d'identifier si une ligne est compléter pour en choisir une vide.

Avez-vous une idée pour corriger ma mauvaise écriture ou pour me proposer une autre méthode.
NB: Les commandes s'exécutaient parfaitement bien avant que je ne tente de verrouiller via cette écriture.
NB2: Je précise que la feuille en question était bien verrouillée avant utilisation par le même mot de passe que celui indiqué dans la commande.

Je vous remercie par avance.
Cordialement,

Meidy

 

[harry226h]

Bonjour Med
Déjà le N° sera interprété comme une variable si tu le laisse ainsi.

Tu devrais plutôt essayer :

Sheets("Saisie BT").Range("a5") = "N°"

 

[Med30]

Bonjour Med
Déjà le N° sera interprété comme une variable si tu le laisse ainsi.

Tu devrais plutôt essayer :

Sheets("Saisie BT").Range("a5") = "N°"

Bonjour,

Mais c'est une variable non?

 

[Med30]

C'est bon j'ai trouvé la solution. Merci tout de même.!
Bonne journée

 

[harry226h]

C'est bon j'ai trouvé la solution. Merci tout de même.!
Bonne journée

Bonjour Med, le forum
Si c'est une variable je ne la voit pas déclarée en fait.
Mais bon ravi que tu es pu trouvé une solution.

cdt
A