Macro protection et masque

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

Bonjour toutes et tous

@tester avec prudence sans certitude

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
' appel par Call à l'autre macro placer dans un module 
Call test
End Sub

et celui là dans un module:

Private Sub test()
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

crdlt,

André

Merci,

Je ne pense pas que cela fonctionne!!!!

Bonjour PIERRO1234,

Je fais souvent cela, surtout quand le code module est long. On peut laisser en Public Sub la partie module.

En plus le Call est en fin de macro Private.

No anxiety.

Bonjour,

J'ai du mal faire le module.

Ci-joint un fichier 'a tester".

Utilisateur: A

Mot de Passe: 1

Les deux colonnes de la feuille A ne sont pas masquées à l'ouverture et le feuille A n'est pas protégée!

Merci de jeter un coup d'ouil svp.

Bonjour PIERRO1234,

J'ai télécharger ton fichier et te dirais ce qu'il en est après le diner.

A suivre...

A nouveau,

En retour ton fichier modifié.

Note que l'appel à la macro du module2 est fait avant que les feuilles soit masquées.

Car sinon la feuille cible (A) n'est plus visible et accessible (car protégée) pour la macro du module.

Bons tests, bonne continuation.

Bonjour Andre et X Cellus ,

La feuille A est bien protégée mais les colonnes E et F ne sont pas masquées alors que le module 2 le spécifie

Public Sub ProtSheetA()

Sheets("A").Select

ActiveSheet.Unprotect Password:="12"

Columns("E:F").EntireColumn.Hidden = False

ActiveSheet.Protect Password:="12", DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

Merci de vérifier svp.

Bonjour PIERRO1234,

Je vérifie toujours le fichier posté. Et sur les colonnes E et F il y a le mot test pour contrôle.

Or après la macro ces mots sont bien cachés. Cela confirme que les colonnes sont bien masquées.

Tu peux faire l'inverse en les démasquant pour te rendre compte de cela.

Bonne continuation.

Suite,

Pour cela la 3ème ligne de la macro en module 2 doit avoir la propriété Hidden à True pour masquer et sinon False pour démasquer.

Mettre un Stop en dessous de cette ligne pour arrêter la macro et vérifier. Ôter le Stop ensuite.

Bonne continuation.

Super,

Merci encore

N'étant pas un spécialiste des forums, à qui je dois mettre résolu, André ou X Cellus ????

Bonjour toutes et tous

c'est à

Xcellus qui a été très performant coucou en passant

crdlt,

André

En tous cas, un Grand Merci à Tous!!!!

Bonne nuit à vous,

Je reviens sur le site assez tard.

Et prends une moitié de résolu laissant la 1ière à André13.

Il devrait y avoir la possibilité de valider pour plusieurs. Peut être dans une nouvelle version du site.

À plus.