Discussion :

[afssaLERH]

bonjour,

j'ai un classeur avec des filtres automatiques. pour le proteger en utilisant les filtres j'ai écrit le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Workbook_Open()
Feuil3.EnableAutoFilter = True
Feuil3.Protect Contents:=True, UserInterfaceOnly:=True
End Sub

dans la partie thisWorkBook... cela marche très bien...
Sauf que dès que je partage le classeur avec les autres personnes du labo, j'ai une erreur '1004' :

Erreur Execution '1004'
La méthode 'Protect' de l'objet '_WorkSheet' a échoué

Est-ce que quelqu'un peux m'aider car fait trois heures que je suis sur ce problème en vain...

Merci, Lilou

[afssaLERH]

Est-ce que les fonctions situées dans le thisWorkbook sont accessibles en partage?
D'où vient cette erreur 1004... Aidez-moi, merci

[afssaLERH]

Bon apperemment personne n'a de solution pour moi...
Méchant excel 2000 qui ne propose pas de solution toute faite...
Merci quand même à tous ceux qui ont cherché

[Drost]

Hello,

Est ce que tu utilise un mot de passe pour proteger ta feuille?

[afssaLERH]

Non je n'en utilise pas

[SilkyRoad]

bonjour

il n'est pas possible de protéger une feuille dont le classeur est déja partagé. La solution suivante enlève le partage provisoirement le temps de protéger la feuille mais cela signifie que tu perds tous les autre avantages:

* Les modifications en cours qui n'ont pas été enregistrées par les autres utilisateurs seront perdues.
* L'historique des modifications sera effacé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Workbook_Open()
    'Excel2007
    Dim Fichier As String
 
    Fichier = ThisWorkbook.FullName
    Application.DisplayAlerts = False
 
    With ActiveWorkbook
        .ExclusiveAccess
        .UnprotectSharing '"Password"
        .Worksheets("Feuil3").Protect Contents:=True, UserInterfaceOnly:=True
        .ProtectSharing Filename:=Fichier ', Password:="Password"
    End With
 
    Application.DisplayAlerts = True
End Sub

bonne journée
michel