EXCEL VBA classeur partagé protéger avec filtres

Pierrot93

XLDnaute Barbatruc

• 12 Avril 2013

• #2

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

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

L

LAMULE

Guest

• 17 Avril 2013

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Avril 2013

• #4

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

bonjour,

plutôt que :

Code:

ActiveSheet.ShowAllData

essaie :

Code:

Sheets("NomFeuille").ShowAllData

bon après midi
@+

 

Vote positif 0 Vote négatif

L

LAMULE

Guest

• 17 Avril 2013

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Avril 2013

• #6

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

Re,

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

 

Vote positif 0 Vote négatif

L

LAMULE

Guest

• 17 Avril 2013

• #7

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

Ok, je vais continuer a glaner des infos..

Encore merci

 

Vote positif 0 Vote négatif