Résolu - Verrouillage cellule

[Eric C]

Bonsoir le forum
Bonsoir à toutes & à tous

Le sujet vient d'être évoqué un peu plus bas par hypo78 et je reviens vers vous pour une variante :
A l'ouverture d'un fichier (en début de semaine), je désirerai placer dans une page de garde, le numéro de la semaine en cours puis verrouiller cette celllule pour que le n° soit figé en cas de réouverture de ce fichier quelques semaines plus tard.
J'avoue bloquer pour ce verrouillage (sinon je ne serais pas là) et me tourne donc vers vous.

Private Sub Workbook_Open()
'If Sheets("Accueil").Range("C9").Value <> "" Then  <== c'est là que je bloque
With Sheets("Accueil")
.Unprotect Password:="mp"
.Range("C9").Value = DatePart("WW", Date, 2, 2)
.Range("C9").Locked = True
.Protect Password:="mp"
'End If
End With
End Sub

Je vous souhaite une bonne nuit à toutes & à tous 🙂
Eric c

 

[camarchepas]

Re : Verrouillage cellule

Bonjour ,

Comme ceci par exemple

Private Sub Workbook_Open()
 With Sheets("Accueil")

   If DateDiff("d", Date, .Range("C9").Value) < 0 Then
    .Unprotect Password:="mp"
     .Range("C9").Value = DatePart("WW", Date, 2, 2)
     .Range("C9").Locked = True
    .Protect Password:="mp"
   End If

 End With
End Sub

 

[Eric C]

Re : Verrouillage cellule

Bonjour leforum
Bonjour camarchepas

Private Sub Workbook_Open()
With Sheets("Accueil")

'If Sheets("Accueil").Range("C9").Value <> "_"  Then <== c'est là que ça bloquait car il manquait un ESPACE... Arf, il faudrait que je me couche plus tôt !!!
.Unprotect Password:="mp"
.Range("C9").Value = DatePart("WW", Date, 2, 2)
.Range("C9").Locked = True
.Protect Password:="mp"
'End If
End With
End Sub

De nouveau merci de ta participation "camarchepas" 😀. Tu testes pour une date et c'est oki.
Par contre la finalité de ma démarche ne répond pas à mon attente car je pensais; naïvement 😎, que la cellule serait figée, bloquée avec la valeur initialement saisie mais en vain. En effet, si j'ouvre mon fichier la semaine suivante voire plus, le numéro de la semaine change et ça je ne le veux pas.
Je suis preneur de nouvelles idées pour me dépatouiller.
Merci à vous
Eric c

 

[job75]

Re : Verrouillage cellule

Bonjour Eric C, camarchepas,

S'il s'agit seulement de la cellule C9 le problème est dénué de tout intérêt car une macro est inutile...

Entrons donc les n° de semaines les uns à la suite des autres.

Comme cela peut se faire sur plusieurs années il paraît logique d'entrer aussi l'année :

Private Sub Workbook_Open()
Dim t As String, c As Range
t = DatePart("WW", Date, 2, 2) & " - " & Year(Date)
With Sheets("Accueil")
  For Each c In .[C9:C65536]
    If c = "" Then
      If c(0) <> t Then
        .Unprotect Password:="mp"
        c = t
        c.Locked = True
        .Protect Password:="mp"
      End If
      Exit For
    End If
  Next
End With
End Sub

A+

 

[Eric C]

Re : Verrouillage cellule

Re le forum
Re camarchepas, bonsoir job75

Merci à toi pour ce code que j'ai de suite adapté à mon fichier et qui devient :

Private Sub Workbook_Open()
 Dim t As String
 t = DatePart("WW", Date, 2, 2)
 With Sheets("Accueil")
       If Sheets("Accueil").Range("C9") = "" Then
       If Sheets("Accueil").Range("C9") <> t Then
         .Unprotect Password:="mp"
         Sheets("Accueil").Range("C9") = t
         Sheets("Accueil").Range("C9").Locked = True
         .Protect Password:="mp"
       End If
      End If
     End With
 End Sub

Pour ma part, le n° de la semaine sera affichée sur une page de garde qui sera un récapitulatif des actions effectuées puis sauvegardée semaine après semaine. Donc insertion depuis l'ouverture du fichier et impossibilité d'incrémentation de la cellule le semaine suivante en cas d'ouverture pour vérif. C'est peut être peu mais beaucoup pour moi. Je garde le code au chaud pour éventuellement figée une date par la suite 🙂.
Encore merki pour ta participation.
@ + & bonne soirée
Eric c

 

[job75]

Re : Résolu - Verrouillage cellule

Re,

C'est vraiment d'une logique... Disons pétillante, comme le champagne 🙄

A+