Discussion :

[fafa7777]

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.

[Mickamax]

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

[fafa7777]

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



macro1.xlsm

[Philippe Tulliez]

Bonjour,

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.

[fafa7777]

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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