XL 2010 Comment associer 2 codes VBA

man.jul

XLDnaute Nouveau
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:


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

Merci bien
 

Pièces jointes

  • Position2020 s3 der.xlsm
    421 KB · Affichages: 9

Staple1600

XLDnaute Barbatruc
Bonjour le fil, man.jul, dg62

•>man.jul
Problème réglé (certes sans doute sur l'autre forum...:rolleyes:)
L'usage quand une solution est trouvée (ici ou ailleurs), c'est de la publier pour que cela bénéficie à tous les membres du forum (et pas seulement au demandeur)

[petite pointe d'ironie en pleine pause méridienne]
Tu me diras quand on multiposte sa question (sans le signaler)
C'est qu'on se fiche des usages comme de l'an 40 :rolleyes:
[petite pointe d'ironie en pleine pause méridienne]
 

Discussions similaires

Réponses
6
Affichages
202
Réponses
2
Affichages
402
Réponses
17
Affichages
760

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 942
Membres
101 849
dernier inscrit
florentMIG