[VBA-E]ouvrir feuille excel en lecture seule

**ogenki** · 02/02/2006, 21h15

bonjour
j'ai un code

Code :

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

1
2
3
4
5
6
 
Range("G" & lastline + 7).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "C:\Documents and Settings\avaysse\Mes documents\" & FileList(i)
        Selection.Hyperlinks(1).TextToDisplay = "consulter"
        Selection.Hyperlinks(1).ScreenTip = FileList(i)

qui me permet de créer un lien pour ouvrir un document .xls... je voudrai savoir coment faire pour que se fichier s'ouvre en mode " lecture seule "
merci

**ouskel'n'or** · 02/02/2006, 21h34

Soit tu fais "Enregistrer sous" -> "Options" -> "Lecture seule recommandé"
et tu mets un mot de passe sur la bonne ligne, soit tu le fais par code

Code :

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

1
2
3
    ActiveWorkbook.SaveAs FileName:="D:\xls\zizou.xls", FileFormat:=xlNormal, _
        Password:="zizou", WriteResPassword:="", ReadOnlyRecommended:=True, _
        CreateBackup:=False

Fait en enregistrant la macro !!!! Ben alors !

A+

**ogenki** · 02/02/2006, 21h36

j'ai honte

d'abitude je teste d'abord une macro desolé un peu dans les vapes se soir

**ogenki** · 02/02/2006, 21h40

je vien de regardder se que tu mas dit mais je me rend compte que sa passerai la feuille en leecture seule ( de maniere " definitive" ) hors je veus juste quelle soit en lecture seule quand je passe par le lien quele reste du temp sont " mode " ne change pas

**ouskel'n'or** · 02/02/2006, 22h24

Alors ce n'est pas l'option "en lecture seule" mais l'option protection d'une feuille,cépapareil...

Code :

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

    ActiveSheet.Protect Password:="zizou", DrawingObjects:=True, Contents:=True, Scenarios:=True

Tu peux aussi faire ça par macro.
Pour déprotéger, tu fais

Code :

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

ActiveSheet.Unprotect password:="zizou"

Tu peux préciser les différentes parties à protéger et tu mets un condition pour déprotéger, tu fais tes petites affaires et tu reprotèges. Tu n'es pas obligé de mettre un mot de passe.
Essaie d'enregistrer la macro -> Outils ->Protection, tu verras plus clair.

A+

PS - Ça donne quoi pour le nom des boutons ?

**ogenki** · 02/02/2006, 22h37

merci

j'ai fait un code comme sa

Code :

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

1
2
3
4
5
6
7
8
9
Range("G" & lastline + 7).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "C:\Documents and Settings\avaysse\Mes documents\" & FileList(i)
        ActiveSheet.Protect Password:="zizou", DrawingObjects:=True, Contents:=True, Scenarios:=True
        Selection.Hyperlinks(1).TextToDisplay = "consulter"
        Selection.Hyperlinks(1).ScreenTip = FileList(i)
        if ' si le document est fermé 
        then
        ActiveSheet.Unprotect Password:="zizou"

comment testé l'ouverture ou la fermeture d'un fichier .xls?

**MrYoYo** · 02/02/2006, 22h52

essai en mettant ça

Code :

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

1
2
 
Workbooks.Open "monfichier.xls", ReadOnly:=True

tiens moi au courant.

**ogenki** · 03/02/2006, 14h57

bonjour je vien de testé sa...

Code :

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

1
2
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "C:\Documents and Settings\avaysse\Mes documents\" & FileList(i) , ReadOnly:=True

mais il ne me crée meme plus mon lien j'ai fait le test diferament etc'est bien un Readonly qu'il me faut.. mais ou le metre ?

merci

**jmfmarques** · 03/02/2006, 15h00

Si le readOnly doit être définitif : pourquoi ne pas modifier tout simplement les attributs du fichier ?

**SpaceFrog** · 03/02/2006, 15h08

parcequ'en l'occurence le readOnly ne doit pas être définitif, il ne concerne qu'une visualisation du ficher ...

**jmfmarques** · 03/02/2006, 15h17

Tiens !
Ma foi !
Les attributs peuvent également être modifiés à la demande, et ce avant même l'ouverture du fichier. Je crois bien avoir parlé à plusieurs reprises de la macro spéciale AutoOpen. Je crois bien avoir également signalé un lien très clair à ce sujet.
Mais bon... Continuons donc à chercher à modifier... après l'ouverture.. ma foi !

**SpaceFrog** · 03/02/2006, 15h31

oui mais là il s'agit en fait de créer un résumé des fichier exisants ...
modifier les attribus du fichier est dangeurerux car sil l'attribut n'est pas réinitialisé pour une raison quelconque (plantage par exempl) le fichier restera en readOnly ...
l'accès aux attributs du fichier n'est pas donné à tout le monde. ..

**jmfmarques** · 03/02/2006, 15h33

Bon !....

**faroukvazaha** · 04/02/2006, 21h31

Tu ne peux pas ouvrir un classeur en "lecture seule".
Il faut l'enregistrer en lecture seule et bien sur cet état ce retrouve à l'ouverture du classeur.

Pour réaliser ce que tu veux :
ouvrir ton classeur normalement et dans le code de "Thisworkbook"

Code :

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

1
2
3
4
Private Sub Workbook_Open()
  ' Faire une boucle sur toutes les feuilles de ton classeur et positionner :
   Worksheets("NomFeuilleEnCours").Protect password:="MotDePasse"
End Sub

Faire ton traitement et avant de fermer ton classeur il faut executer la même boucle sur toutes les feuilles de ton classeur et positionner :

Code :

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

   Worksheets("NomFeuilleEnCours").Unprotect password:="MotDePasse"

Merci de faire un petit "coucou" si cela ta aider.
Bon courage

**ogenki** · 06/02/2006, 14h14

bonjour

la solution de readonly devrais marchéje l'ai testé et quand je demande l'ouverture d'un fichier en "readonly" sa passe

mon probleme vien du fait que quand j'apelle mon classeur par un click sur un lien bin sa ne marche pas... j'ai essayé sa:

Code :

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

1
2
3
4
5
Range("G" & lastline + 7).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "C:\Documents and Settings\avaysse\Mes documents\" & XlsFiles(i), ReadOnly:=True
        Selection.Hyperlinks(1).TextToDisplay = "consulter"
        Selection.Hyperlinks(1).ScreenTip = XlsFiles(i)

mais sa ne marche pas quelqun sait peu-etre pourquoi..??

merci

**ouskel'n'or** · 06/02/2006, 18h03

Pour ce qui me concerne, j'ai le message "Propriété ou méthode non gérée par cet objet"
J'en déduis que tu n'as pas la même version que moi (VBA97)
Sinon, le message est explicite...

Tu regardes dans les propriété d'Hyperlinks (?)

A tout hasard

Edit
Si ça peut te servir, le code qui m'a servi pur tester ton code

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
17
18
19
20
21
22
23
24
25
26
27
Sub HyperLien()
Dim XlsFiles(1)
Application.DisplayAlerts = False
XlsFiles(1) = "Bilan Gestion des absences.xls"
    Range("G" & lastline + 7).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
    "D:\xls\" & XlsFiles(1) ', ReadOnly:=True   'Pas d'erreur avec cette syntaxe
    With ActiveSheet
        For i = 0 To .Hyperlinks.Count
            If .Hyperlinks(1).Name <> "" Then
                NomLien = .Name
                Exit For
            End If
        Next
        On Error Resume Next
        .ActiveCell.Hyperlinks(i).TextToDisplay = "consulter"  'ERREUR 1
        If Err <> 0 Then
            MsgBox "Nom du lien " & NomLien & "  " & Error(Err)
        End If
        Err.Clear
        .ActiveCell.Hyperlinks(i).ScreenTip = XlsFiles(1)     'Erreur 2
        If Err <> 0 Then
            MsgBox "Nom du lien " & NomLien & "  " & Error(Err)
        End If
        Err.Clear
    End With
End Sub

Si ça peut t'être utile...