Discussion :

[lenul78570]

Bonjour,

Je suis sous Excel 2007.
Sur ma feuille de calcul j'ai certaines cellules verouillées et d'autres non.
Pour protéger cette feuille d'une erreur de frappe indésirable je la protege avec un mot de passe (5 chiffres).
La macro qui suis ne s'applique que sur la zone des cellules dévérouillées.
Pour exploiter cette feuille j'ai une macro qui possede les codes suivants pour:
definir la zone d'impression selon la dernière cellule non vide,
mettre en page
imprimer

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range("a62").CurrentRegion.Address
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 50
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = False
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$56:$61"
        .PrintTitleColumns = ""
    End With
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

Quand j'execute la macro elle stop a la premiere ligne et me renvoi un message qui me dis qu'il est impossible d'executer cette commande sur une feuille protégée....
Quand je fais ces manipulation manuellement avec la souris je n'ai aucun problème..
Quelqu'un peut m'aider ?
Lenul

[Godzestla]

Bonjour,
tu dois déproteger ta feuille au debut de ta macro par :

Code :

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

1
2
 
    Sheets(tafeuille).Unprotect Password:="TonMotDePasse"

et la reprotéger à la fin par

Code :

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

1
2
 
Sheets(tafeuille).Protect Password:="TonMotDePasse", DrawingObjects:=True, Contents:=True, Scenarios:=True

Pense alors à protéger aussi ton code VBA car sinon le password des feuilles sera visible.

ET si tu peux penser à utliser les balises codes quand tu publies du code, car là c'est cra-cra. (voir les rêgles du forum).

[lenul78570]

Merci de ta réponse

Comme l'indique mon pseudo...je suis nul !
Je ne sais pas comment procéder pour protéger mon code VBA...
Je suis d'accord avec toi ma présentation est plus que cra-cra....Mais je ne sais pas non plus comment utiliser "les balises codes"

[lenul78570]

Bonsoir,

J'ai trouvé comment protéger mes modules VBA !
J'ai aussi trouvé comment utilsé les balises code !

Code :

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

1
2
Application.ScreenUpdating = False
    Sheets("Janvier").Select

Lenul