Bonjour,
Ci-dessous une macro prise sur le forum pour masquer les feuilles n'aynat pas comme non "accueil" avant la fermeture
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Sht As Object
' Afficher la feuille d'Accueil
With Sheets("Accueil")
.Visible = xlSheetVisible
.Activate
End With
' Masquer les feuilles
For Each Sht In ThisWorkbook.Sheets
If Sht.Name <> "Accueil" Then Sht.Visible = xlSheetVeryHidden
Next Sht
End Sub
Je souhaite rajouter la seconde macro pour masquer des colonnes de la feuille 2 et activer la protection de la feuille 2 :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil2").Select
ActiveSheet.Unprotect Password:="12"
Columns("E:F").EntireColumn.Hidden = True
ActiveSheet.Protect Password:="12", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Question: comment cumuler les deux macros Workbook_BeforeClose svp? (note: la seconde doit s'executer avant la première macro je suppose).
Merci et Désolé mais les macros et moi......