EXCEL VBA classeur partagé protéger avec filtres

[LAMULE]

Bonjour

Actuellement j'utilise un bout de code VBA dans workbook_beforeclose
qui me permet d'effectuer une remise à zéro des filtres.

Le problème dès que je protège ma feuille, puis partage et protège mon classeur, le code VBA ne s'applique plus...

Le code :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.AutoFilterMode Then
If ActiveSheet.FilterMode Then
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
End If
End If
TRI
Columns("B:mX").Hidden = True
Save

 

[Pierrot93]

Re : EXCEL VBA classeur partagé protéger avec filtres

Bonjour,

essaye peut être en déprotégeant et reprotégeant la feuille, mais jamais testé sur classeur partagé..

Sheets("NomFeuille").Unprotect "toto"
'ton code
Sheets("NomFeuille").Protect "toto"

bon après midi
@+

 

[LAMULE]

Re : EXCEL VBA classeur partagé protéger avec filtres

j ai tenter d'inserer le code..... mais cela ne fonctionne toujours pas ...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.AutoFilterMode Then
If ActiveSheet.FilterMode Then
On Error Resume Next
Sheets("PLANNING").Unprotect ""
ActiveSheet.ShowAllData
On Error GoTo 0
Sheets("planning").Protect ""
End If
End If
TRI
Columns("B:BP").Hidden = True
Save
End Sub

 

[Pierrot93]

Re : EXCEL VBA classeur partagé protéger avec filtres

bonjour,

plutôt que :

ActiveSheet.ShowAllData

essaie :

Sheets("NomFeuille").ShowAllData

bon après midi
@+

 

[LAMULE]

Re : EXCEL VBA classeur partagé protéger avec filtres

J ai un retour :

Erreur 1004 a la fermeture du classeur

et a l'ouverture le code ne fonctionne pas

 

[Pierrot93]

Re : EXCEL VBA classeur partagé protéger avec filtres

Re,

bah.. pas d'autre idée pour le moment...

 

[LAMULE]

Re : EXCEL VBA classeur partagé protéger avec filtres

Ok, je vais continuer a glaner des infos..

Encore merci