Discussion :

[Carole_Canada]

Je programme en vb6.
Je crée un fichier Excel, j'y inscrit des données provenant d'une banque Access et avant d'enregistrer celui-ci, je voudrais protéger certaines cellules seulement de la feuille Excel. Je n'ai pas de problème avec une macro Excel mais je ne sais pas comment faire en programmation vb6.

Merci

[bouley]

salut Carole_Canada
Tout d'abord bienvenue sur ce forum !!!

ce code protège uniquement la cellule A1 de la feuille active du classeur ouvert à toi d'adapter.

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
Dim n As Integer
    Dim objXL As Object ' déclaration d'un objet
    Set objXL = CreateObject("Excel.Application") ' Création de l'objet
'    Ouverture du classeur Excel
    objXL.Workbooks.Open FileName:="C:\test.xls"
    attente = DoEvents() 'Pour laisser le temp à Excel de s'ouvrir !
    With objXL
        .Cells.Locked = False
        .Range("A1").Locked = True
        .ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End With
 
    objXL.Workbooks.Close SaveChanges:=True
    objXL.Application.Quit
set objXl = nothing

tu nous dis
@+

[Carole_Canada]

Merci, je fais des tests et je vous en reparle.