protected sheet et custom view

[sarrsouraa]

Bonjour tout le monde
j'ai des feuilles protégés et sur ces feuille l'utilisateur choisit parmi 4 custom view mais j'ai cette erreur: some views settings could not be applied
pour corriger cette erreur j'ai trouve ce lien que j ai suivi:
Working with Command Bar Events
j'ai fait ainsi:
j'ai cree une classe module ou j'ai ecrit:
Public WithEvents colCBars As Office.CommandBars
Public WithEvents cmdView As Office.CommandBarButton


Private Sub cmdView_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)

Sheets("Other Sectors").UnProtect
Application.Dialogs(xlDialogCustomViews).Show
ActiveSheet.Protect

End Subet ds un module j'ai ecrit:
Option Explicit
Dim clsCBClass As New Class1



Public Sub InitEvents()

Dim cbrBar As Office.CommandBar

Set cbrBar = Application.CommandBars("Worksheet Menu Bar")
With cbrBar
Set clsCBClass.cmdView = .Controls("View").Controls("Custom Views...")

End With
Set clsCBClass.colCBars = CommandBars


End Sub


mais rien n'a change en executant cette méthode il rentre meme pas ds l'evenement click
si quelqu un a une idee
merci d'avance

 

[sarrsouraa]

Re : protected sheet et custom view

voici le lien que j ai suivi
Ce lien n'existe plus

une idee pleaaaaaaaaaaaaaaaaaaaaaaaase