Obligation de renseigner 4 cellules pour pouvoir continuer à travailler

Bonjour,

Je commence en VBA, je souhaiterais obliger la saisie du nom, du prénom, de la classe et de la date pour que l'utilisateur puisse continuer à travailler

Il faudrait protéger le tableau tant que les obligations ne sont pas remplies et bien sur le déprotéger lorsque les conditions sont remplis.

Merci pour votre aide.

Bonjour,
Ce n'est pas très clair, tu souhaites que tes lignes de ton tableau soient modifiables uniquement si les cellules en colonne A, B, C, D sont remplies ?

Peux-tu envoyer le code que tu as pour le moment ?

Mickamax

Bonjour et merci

Je souhaiterais utiliser obligatoirement les cellules B1 B2 P1 P2 avant de pouvoir continuer à travailler.

Si B1 B2 P1 P2 ne sont pas renseignés alors la partie suivante ou la plage n'est pas disponible, elle est protégée ainsi que la feuille

Si B1 B2 P1 P2 sont bien renseignés alors la partie suivante ou la plage devient accessible en le déprotégeant et en protégeant la feuille



Pièce jointe 490489

Bonjour,

Citation:

---

Je n'arrive pas à transmettre le fichier.

---

Il n'y a aucune raison de déposer un fichier. La plupart des contributeurs refusent d'ouvrir ceux-ci et j'en fais partie

Il suffit de bien exprimer sa demande pour obtenir une réponse pertinente.

Bonjour et merci

Je souhaiterais utiliser obligatoirement les cellules B1 B2 P1 P2 avant de pouvoir continuer à travailler.

Si B1 B2 P1 P2 ne sont pas renseignés alors la partie suivante ou la plage n'est pas disponible, elle est protégée ainsi que la feuille

Si B1 B2 P1 P2 sont bien renseignés alors la partie suivante ou la plage devient accessible en la déprotégeant et en protégeant la feuille

Bonjour,
Au préalable et manuellement

• déverrouiller les cellules B1 B2 P1 et P2
• protéger la feuille

En VBA
Ecrire une procédure Function qui vérifie si ces quatre cellules sont remplies et renvoie True si les conditions sont remplies, déprotéger la feuille et dans le cas contraire la protéger
Cette fonction doit être invoquée par la procédure événementielle Worksheet_Change
Les deux procédures a placer dans le module de la feuille à protétger

La fonction nommée CellsFilled qui vérifie si les quatre cellules sont remplies

Code:

---

1 2 3 4

Private Function CellsFilled() As Boolean Const addrCells As String = "B1:B2,P1:P2" CellsFilled = Application.WorksheetFunction.CountA(Range(addrCells)) = Range(addrCells).Count End Function

---

La procédure événementielle

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) With Me If CellsFilled Then .Unprotect Else .Protect End With End Sub

---

Pour l'exemple la feuille n'est pas protégée par mot de passe

Si évidemment le ou les utilisateurs connaissent Excel, il ne sera pas compliqué de déprotéger la feuille manuellement :)

Si l'on protège la feuille avec Mot de passe, un utilisateur connaissant le VBA pourra visualiser le mot de passe et déprotéger la feuille :lol:

Si l'on protège le code VBA et que .......... :mouarf: