Protection de feuille et exécution de VBA

Re : Protection de feuille et exécution de VBA

Re Bonsoir,
j'ai été sur les différent sujet similaire, mais étant très peu compétent je ne comprends pas comment utiliser les solutions sur mon probleme.
J'ai essayé avec :
ActiveSheet
.Unprotect
patati patata
ActiveSheet
.Protect
End Sub
mais je dois mal les placés ou ce n'est pas ça qu'il faut.
Merci par avance.

Re : Protection de feuille et exécution de VBA

Bonjour mykeul 77, le forum,
Une idée de solution (avis personnel) : Réalisation d’un UserForm pour remplir les données.
Cordialement,
Bernard

Re : Protection de feuille et exécution de VBA

Bonjour,
Tout d'abord merci, pour votre réponse.
Par contre je n'est que très peu (voir nul) de connaissance excel, en effet je ne sais pas à quoi sert un useform ni les différences entre les entrée de VBA, et lorsque j'ai été voir, cela voudrait dire qu'il faudrait que je refasse tout mon document.
C'est un peu la galère.
Je m'imaginai juste modifier les formules, ou entrer un commande VBA supplémentaire.
Comme une intégration :
ActiveSheet.unprotect " "
ActiveSheet.Protect ""

Dans mes deux formules Private Sub WorkSheet:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Interior.ColorIndex = 34 Then
Cancel = True
If Target.Column Mod 6 = 0 Then
Target = Int(Time * 48) / 48
Else
Target = (Int(Time * 48) + 1) / 48
End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B6:V10")) Is Nothing Then
Range("B6:V10").Sort Key1:=Range("B6"), Order1:=xlAscending
End If
End Sub

J'ai essayé mais je n'y arrive pas. je ne sais pas ou placer les lignes de programme. Est ce que c'est possible au moins?
Merci pour votre réponse, cordialement,
MYKEUL 77