Discussion :

[LePoussain]

Bonjour à tous,
je tente depuis un moment de verrouiller des cellules d'un fichier Excel après les avoir remplis de différentes informations récupérées dans une BD postgres ou directement des champs remplis dans l'application.
Tout se passe bien pour l'ouverture du fichier, le remplissage des champs mais le verrouillage provoque une erreur que je ne comprends pas bien.
Voici le bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Dim bdcModel
          Dim objWorkBook
 
       Set bdcModel = CreateObject("Excel.Application")
         bdcModel.Visible = True
      Set objWorkBook = bdcModel.Workbooks.Open("F:\Stage_BTS_SIO\bdcModel.xltx")
      attente = DoEvents()
      With bdcModel
          .cells.Locked = False
          .cells(11, "C") = idcommande
          .cells(12, "C") = frmFonctionnement.cboAgents.Text
          .cells(15, "C") = frmFonctionnement.txtDate.Text
          .cells(29, "C") = frmFonctionnement.txtMontant.Text
          .cells(11, "C").Locked = True
          .cells(12, "C").Locked = True
          .cells(15, "C").Locked = True
          .cells(29, "C").Locked = True
          '.Cells(28, "B") = "Il reste " & etat & "€ sur le budget primitif alloué à cette action et à cet article"
          .ActivateSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True
       End With

Je précise que le fichier est un brouillon comme son extension le précise d'ailleurs déjà et que le fichier qui s'ouvre est bien un fichier excel normal xls


L'erreur est la suivante : Erreur d'exécution 1004 : impossible de définir la propriété Locked de la classe Range.


Avez-vous une idée d'où ça coince ?
Merci

[l_autodidacte]

On doit déverrouiller d'abord la feuille(ou plage de cellules) puis le(s) verrouiller :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Sub Verouillage()
        Sheets("MyData").Select
        ActiveSheet.Unprotect
        Range("B6:F6,B3:F3,E3:F4,B7:D32").Select
        Range("B7").Activate
        Selection.Locked = True
        Selection.FormulaHidden = False
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        Range("A1").Select
    End Sub
'=========================    
    Sub Deverouillage()
        Sheets("MyData").Visible = True
        Sheets("MyData").Select
        ActiveSheet.Unprotect
        Cells.Select
        Selection.Locked = False
        Selection.FormulaHidden = False
    End Sub

[LePoussain]

Merci pour votre réponse !

Je suis finalement passé par un verrouillage dans Excel puis ce code-ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 Set bondecommande = CreateObject("Excel.Application")
         bondecommande.Visible = True
      Set objWorkBook = bondecommande.Workbooks.Open("F:\Stage_BTS_SIO\bondecommande.xltx")
         With bondecommande
            .ActiveSheet.Unprotect
            .Cells(11, "C") = idcommande
            .Cells(12, "C") = frmInvestissement.cboAgents.Text
            .Cells(15, "C") = frmInvestissement.txtDate.Text
            .Cells(29, "C") = frmInvestissement.txtMontant.Text
            .ActiveSheet.Protect

Ce n'est peut-être encore une fois pas très académique mais le résultat correspond à mes attentes...