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
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