Bonjour,
J'ai fait une macro qui doit copier des cellules d'un classeur dans un autre classeur à la première ligne non vide et protéger toutes ces cellules.
Le copier/coller fonctionne bien ; la feuille qui reçoit les cellules est protégée donc je fais un "Unprotect" avec le mot de passe et après je copie les cellules sur la première ligne non vide.
Le problème, c'est quand j'ai mis le "Unprotect" que ça ne marche plus. Sans protéger/déprotéger la feuille, le collage spécial marche bien mais quand je déprotège le feuille, le collage spécial ne fonctionne plus.
Voici mon bout de code, un petit peu d'aide ne serait pas de refus.
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
21
22
23
24
25
26
27
28
29
30
31
32
33
34 Private Sub Validation1_Click() Dim k As Long, r As Long k = 1 ' donc la 1ere feuille r = 1 'initialisation de la variable ( on commence de la 1ere ligne) Range("AA3:CC3").Select 'selection des cellules a copier Selection.Copy ' copie des cellules Workbooks.Open Filename:= _ "R:\DAI\Gestion de Parc\Action en cours\action parc 2006\CheckList\BaseLre1.xls" 'ActiveWindow.Visible = False Workbooks("BaseLre1.xls").Worksheets(1).Activate Worksheets(1).Unprotect Password:="blabla" Do If IsEmpty(Sheets("feuil" & k).Cells(r, 1)) Then 'on cherche dans la 1ere colonne Exit Do End If r = r + 1 Loop With Workbooks("BaseLre1.xls") .Worksheets(1).Cells(r, 1).PasteSpecial Paste:=xlValues .Worksheets(1).Protect Password:="blabla" .Save .Close False End With Workbooks("CE_LRE1.xls").Close False End Sub
Partager