Re : cellule sécurisée automatiquement après remplissage
Bonjour Liamvallon,
Sécurisé ça veut dire non modifiables ?
Peux-tu nous décrire dans le détail l'utilisation du classeur que tu souhaites ?
On ouvre le classeur
on saisit dans des cellules (toujours les mêmes ?)
et.... ???
Il y a un code qui oblige les utilisateurs à remplir le formulaire en entier, une fois que c'est fait (enregistrement du classeur), il faudrait que certaines cellules ne puissent plus être modifiées à la prochaine ouverture ou utilisation du fichier.
Voici l'exemple qu'on m'a grandement aidé à faire:
Sub Valider()
' Valider Macro
' Macro enregistrée le 01/12/2009 par LVM
Sheets("RECTO").Select
Dim i As Byte
Application.EnableEvents = False
Range("D5").Select
For i = 1 To 1
If ActiveCell = "" Then
MsgBox (" Vous devez remplir D5 ")
Exit Sub
End If
ActiveCell.Offset(2, 0).Select
Next i
Application.EnableEvents = True
Range("G5").Select
For i = 1 To 1
If ActiveCell = "" Then
MsgBox (" Vous devez remplir G5")
Exit Sub
End If
ActiveCell.Offset(2, 0).Select
Next i
Application.EnableEvents = True
Range("D6").Select
For i = 1 To 2
If ActiveCell = "" Then
MsgBox (" Vous devez remplir D6")
Exit Sub
End If
ActiveCell.Offset(2, 0).Select
Next i
Application.EnableEvents = True
Range("G6").Select
For i = 1 To 1
If ActiveCell = "" Then
MsgBox (" Vous devez remplir G6")
Exit Sub
End If
ActiveCell.Offset(2, 0).Select
Next i
Application.EnableEvents = True
Range("G8").Select
For i = 1 To 1
If ActiveCell = "" Then
MsgBox (" Vous devez remplir G8")
Exit Sub
End If
Next i
Sheets("Accueil").Visible = True
Sheets("RECTO").Visible = False
Sheets("VERSO").Visible = False
End Sub
