Bonjour,

Le Workbook.Unprotect fonctionne si on met le mot de passe qui va avec... A moins qu'il n'y ait une grosse faille de sécurité sur la version 97...
As-tu essayé ?

m@rina Inutile de me poser des questions en MP... 
Définitivement je n'y réponds pas... Le forum est fait pour ­ça.

Oui en fait, il fonctionne quelque soit mon mdp. Dans mon 1er classeur, j'ai des macros qui s'exécutent entre les pages. Elles commencent toutes par Workbook.Unprotect("toto") et se terminent également par Workbook.Protect("toto"). Cela suffit à protéger mon classeur... jusqu'à l'ouverture d'un second avec la macro : Workbook.Unprotect qui s'exécute sans problème et déverrouille mon classeur....

Bonjour,
Quand tu protège le classeur c'est le partage que tu verrouille.
Pour une protection plus efficace vaudrait mieux verrouillé chaque feuille et aussi le code VBA
A+ L'expérience instruit plus sûrement que le conseil. (André G­ide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas for­cément le pot qui est vide. ;-)(Confucius)

Salut,
et merci déjà pour les pistes. le projet VBA est déjà protégé. Pour les feuilles c'est compliqué car le classeur comporte x feuilles... Il est appeler à "grossir" son nombre de feuilles au fur et à mesure de l'utilisation. Donc impossible de les protéger.......
Je cherche juste à fermer mon classeur à l'ouverture d'un autre.

Je cherche quelque chose de ce genre :
If workbook.add or workbook.open then
Activeworkbook.close
end if
Seulement je ne sais pas ou je dois mettre ce code pour qu'il soit actif tout le temps ni s'il fonctionne réellement...

J'ai tenté ceci :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Workbook.Add Or Workbook.Open Then
Workbook("pointage").Close
End If
End Sub

mais excel ouvre une fenêtre d'erreur qui dit :

Microsoft Visual Basic

Erreur d'exécution '424' :
Objet requis

que faire?????

Une idée...
Si pas de classeur "PERSO" le créer et sauver dans le répertoir (pour Excel2000) XLSTART
Cacher toute les feuilles.
Ce classeur serra toujours ouvert en même temps que les autres.
dans ThisWorkBook_Open de ton classeur

Private Sub Workbook_Open()
    testerOuvert
End Sub

Public Sub testerOuvert()
Static Nom As String
    Nom = ActiveWorkbook.Name
reco:
    If ActiveWorkbook.Name <> Nom Then
        Workbooks(Nom).Close
        Exit Sub
    End If
    DoEvents
    GoTo reco
End Sub

Je ne comprends pas bien cette partie :
Si pas de classeur "PERSO" le créer et sauver dans le répertoir (pour Excel2000) XLSTART
Cacher toute les feuilles.
Ce classeur serra toujours ouvert en même temps que les autres.
dans ThisWorkBook_Open de ton classeur

Private Sub Workbook_Open()
testerOuvert
End Sub
Peux tu m'expliquer comme à un novice stp. Merci d'avance.
J'ai cru comprendre que je devais ouvrir un nouveau fichier, l'enregistrer sous : perso.xls dans le répertoire XLSTART (qui se trouve ou???) Et ensuite, dans quel classeur insérer testerOuvert?
Merci

Tu a tout compris.
Mais tout compte fait, ce n'est peut-être pas nécessaire de créer un nouveau classeur..
(Pas tester)
Dans un module de ton classeur tu copie la macros "testerOuvert"
Dans le thisWorkBook de ton classeur >> Open tu met

Private Sub Workbook_Open()
    testerOuvert
End Sub

Il me dit :
erreur de compilation dans le module caché thisworkbook.

En fait excel agit comme s'il ne connaissait pas la fonction testerOuvert. Il ne la trouve pas....

Je crois que puisque mon projet VBA est protégé, il n'arrive pas à exécuter le module... Par contre je ne sais pas enlever temporairement cette protection, et j'en ai besoin...

C'est ce que je craignais avec ton classeur protégé.
Revenons à la 1ère solution.
le répertoir est
c:\Document and setting\Utilisateur\Application data\Microsoft\Excel\XLSTART
s'il n'existe pas tu le crée.
Ensuite tu crée le classeur PERSO.xls que tu sauve dans ce répertoir,
C'est dans celui la que tu met les code.
L'expérience instruit plus sûrement que le conseil. (André G­ide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas for­cément le pot qui est vide. ;-)(Confucius)

Pas de souci pour la création de "perso", d'un module testerOuvert dans ce classeur, d'y insérer le workbookopen etc... Par contre il me dit : "fonction ou procédure attendue, pas un module"...
merci pour tout, j'abandonne pour aujourd'hui.
De retour dès demain avec plein de questions pour la suite...
Merci à tous ceux qui m'ont aidé aujourd'hui et à demain

Bon, beh pour demain alors..
Tu ne doit pas changer le nom de Module1
Je reprend...
Dans l'IDE de PERSO.xls
Insertion >> Module.
Tu change pas le nom de Module1
Dans cette fenêtre tu colle la sub TestOuvert

Public Sub testerOuvert()
Static Nom As String
    Nom = ActiveWorkbook.Name
reco:
    If ActiveWorkbook.Name <> Nom Then
        Workbooks(Nom).Close
        Exit Sub
    End If
    DoEvents
    GoTo reco
End Sub

Private Sub Workbook_Open()
    testerOuvert
End Sub

Bonsoir,

Je vois que la conversation est bien avancée.

Je pensais à quelque chose : et si tu utilisais la propriété VeryHidden pour cacher la feuille ?
ça doit faire quelque chose comme :

ActiveSheet.visible = xlSheetVeryHidden

ça vaut peut être le coup d'essayer ?

m@rina
Inutile de me poser des questions en MP... 
Définitivement je n'y réponds pas... Le forum est fait pour ­ça.

Bonjour tout le monde,

Et pourquoi pas utiliser tout simplement l'evenement Workbook_Deactivate ?
Mais bon tu sais, les protections excel sont toutes relatives, il suffit de l'ouvrir dans open office à priori...
eric

Wahou!! Toutes ces infos en une seule nuit... Au fait m@rina tu dors de temps en temps??? Penser à VBA à minuit...
Merci beaucoup je vais essayer la méthode de lhermite.
Des petites questions comme je l'avais annoncé hier :
1- pourquoi renommer le module 1 fait échouer cette procédure?
2- que signifie :
Static dans : Static Nom As String. Je connais Dim mais static?
3- que signifie : DoEvents
4- que peux apporter la fonction : xlSheetVeryHidden ?
5- Workbook_Deactivate? à utiliser comment?
Private Sub Workbook_Deactivate()
?????????????????
End Sub
Merci encore de vous être penchés sur mon problème. Je précise également qu'il s'agit d'un classeur permettant aux utilisateurs de pointer matin midi et soir. Il faut donc qu'il soit "maxi sécurisé" pour que nos chers employés ne modifient pas leurs pointages.

Re, Bonjour M@rina, Eric;
bien entendu, j'ai un peu regarder les deux autres propositions faites.
Le plus radical pour toi est d'employer l'exemple de M@rina, les feuilles cachée ne peuvent être affichée qu'avec du VBA.
sauf que je n'ai pas trouver xlSheetVeryHidden mais xlVeryHidden , essaye les deux.
Pour mise en route >> Tu ouvre un Module
tu fait une nouvelle macros

Sub Cache()
    Sheets("NomFeuil").Visible = xlSheetVeryHidden
    '... autant de lignes que de feuilles à cacher
    
End Sub