Lecture Seule

Bonjour,

Dans Enregistrer sous il y a un bouton options dans lequel
tu peux mettre un mot de passe en lecture.

Camille

-----Message d'origine-----
Coucou tout le monde,

Je sait que c'est possible, mais j'ai un trou de mémoire

Comment faire pour ouvrir un fichier directement en
lecture seule...

j'ai fait un raccourcis sur mon bureau pour l'ouvrir
directement. Avant il

était partagé, pour que d'autre utilisateur l'utilise en
meme temps, mais

maintenant, j'ai des macros qui ne me permettent plus
l'utilisation en mode

partagé. DOnc je voudrait que lorsque les itilisateur
l'ouvrent il tombent

directe en lecture seule sans confirmation. Y a t'il une
ligne de code dans

les parametre de raccourcis pour fair ca?


MERCI
Dardevil


.

Salut Dardevil;
C'est quoi cette histoire de macros qui ne me permettent plus l'utilisation en
mode partagé ?
MP

"Dardevil" <ggaudfroy@free.fr> a écrit dans le message de
news:OXdiYeZvDHA.3224@tk2msftngp13.phx.gbl...

Coucou tout le monde,

Je sait que c'est possible, mais j'ai un trou de mémoire

Comment faire pour ouvrir un fichier directement en lecture seule...

j'ai fait un raccourcis sur mon bureau pour l'ouvrir directement. Avant il
était partagé, pour que d'autre utilisateur l'utilise en meme temps, mais
maintenant, j'ai des macros qui ne me permettent plus l'utilisation en mode
partagé. DOnc je voudrait que lorsque les itilisateur l'ouvrent il tombent
directe en lecture seule sans confirmation. Y a t'il une ligne de code dans
les parametre de raccourcis pour fair ca?


MERCI
Dardevil

Boujour,

en fait j'utilise une macro qui me crée un userform temporaire et donc en
mode partager ca marche pas... on peut pas créer une userform dans un
document partagé... c'est pour faire une liste de choix dans une msgbox....

voici une partie de la macro

Sub Multi_choix_Mise_a_jour()

Dim i As Integer
Dim TopPos As Integer
Dim PrintDlg As DialogSheet
Dim cb As OptionButton
Dim Choix1, Choix2

Application.ScreenUpdating = False


Set PrintDlg = ActiveWorkbook.DialogSheets.Add

ArrChoix = Array("", "Chiffre d'Affaires", "Heures", "Achats",
"Recapitulatif annuel", _
"Recapitulatif Inventaires", "Pertes", "M.A.J. Global (2 min.)", "M.A.J.
Rapide")
TopPos = 40
For i = 1 To 8
PrintDlg.CheckBoxes.Add 78, TopPos, 150, 16.5
PrintDlg.CheckBoxes(i).Text = ArrChoix(i)
TopPos = TopPos + 13
Next i

PrintDlg.Buttons.Left = 240


With PrintDlg.DialogFrame
.Height = Application.Max _
(68, PrintDlg.DialogFrame.Top + TopPos - 34)
.Width = 230
.Caption = "Mise à Jour - " & mois & " - " & resto
End With


PrintDlg.Buttons("Button 2").BringToFront
PrintDlg.Buttons("Button 3").BringToFront
PrintDlg.Show


For i = 1 To 8
If PrintDlg.CheckBoxes(i).Value = xlOn Then

Choix1 = PrintDlg.CheckBoxes(i).Text
If Choix1 = "Chiffre d'Affaires" Then tableauCA = "OK"
If Choix1 = "Heures" Then tableauHeures = "OK"
If Choix1 = "Achats" Then tableauAchats = "OK"
If Choix1 = "Recapitulatif annuel" Then tableauRecapitulatifannuel "OK"
If Choix1 = "Recapitulatif Inventaires" Then
tableauRecapitulatifInventaires = "OK"
If Choix1 = "Pertes" Then tableauPertes = "OK"
If Choix1 = "M.A.J. Global (2 min.)" Then tout = "OK"
If Choix1 = "M.A.J. Rapide" Then rapide = "OK"

End If
Next
If Choix1 = "" Then
MsgBox "Aucun choix n'a été fait"
Else

End If