Discussion :

[manjul1]

Bonjour

Dans mon workbook j'ai un nouveau code et je souhaiterai y incorporer mon ancien code, comment dois-je faire?

Voici le code que je souhaite rajouter à mon workbook:

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
Option Explicit
 
Private Sub Workbook_Open()
Dim I As Integer
Dim mois(1 To 12) As String
Dim MP As String
Dim m As Integer
'Stop
 
Flag2 = 0
Flag = 1
mois(1) = "Janvier"
mois(2) = "Février"
mois(3) = "Mars"
mois(4) = "Avril"
mois(5) = "Mai"
mois(6) = "Juin"
mois(7) = "Juillet"
mois(8) = "Août"
mois(9) = "Septembre"
mois(10) = "Octobre"
mois(11) = "Novembre"
mois(12) = "Décembre"
V_mois = mois(Month(Date))
Sheets("Technique").Visible = True
Sheets("Technique").Select
MP = Worksheets("Technique").Cells(2, 1)
Sheets("Technique").Visible = False
For m = 1 To 12
Sheets(mois(m)).Select
ActiveSheet.Unprotect (MP)
 
For I = 3 To 13
Range(Cells(6, I), Cells(49, I)).Select
If Cells(1, I) <= Date Then
Selection.Locked = False
Selection.FormulaHidden = False
Else
Selection.Locked = True
Selection.FormulaHidden = False
End If
Next I
ActiveSheet.Protect Password:=MP, DrawingObjects:=False, Contents:=True, Scenarios:=True
Next m
Sheets(V_mois).Select
Range("A1").Select
Flag = 0
End Sub

Le mot de passe pour afficher la feuille technique est : Zoe
Le mot de passe pour déverrouiller les feuilles est: pi

Position2020 s3 der.xlsm

Merci bien

[ARTURO83]

Bonjour,

Ou est le problème? Copiez ce code dans le module thisworkbook tout simplement et à l'ouverture du classeur, il passera toutes les feuilles en revue.

Pièce jointe 559979

Cdlt

[Menhir]

Petit conseil en passant : pense à faire des indentation de ton code pour rendre sa structure plus lisible.

[manjul1]

il suffisait tout simplement de mettre mon code devant l'autre.