custom views et protected sheet

[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:
Ce lien n'existe plus
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 Sub
et 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
si quelqu un a une idee
merci d'avance

 

[sarrsouraa]

Re : custom views et protected sheet

est ce que quelqu 'un a une ideeeeeeeeeee svvvvvvvvp