Suite =E0 une de mes demandes la semaine derni=E8re concernant=20
une interface pour sauvegarder un classeur voici ce qui=20
m'a =E9t=E9 propos=E9:
LeNom =3D Application.Dialogs(xlDialogSaveAs).Show
If LeNom =3D False Then
MsgBox "op=E9ration annul=E9e", vbInformation, "Annulation"
End If
Cela fonctionne parfaitement et me convient parfaitement=20
mais comment faire pour rendre la sauvegarde Read Only=20
automatiquement ???
Merci !!!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Paulo,
Dans la fenêtre enregistrer, dans la barre d'outils, à l'extrême droite, sous le menu outils / Options générales, tu peux définir cette caractéristique. Sinon, tu peux faire comme ceci :
Sub YesNo() '(Ou activeWorkbook....) ThisWorkbook.ReadOnly = True LeNom = Application.Dialogs(xlDialogSaveAs).Show If LeNom = False Then ThisWorkbook.ReadOnly = False MsgBox "opération annulée", vbInformation, "Annulation" End If End Sub
Salutations!
"Paulo" a écrit dans le message de news:12d401c49988$83da4ba0$ Hello,
Suite à une de mes demandes la semaine dernière concernant une interface pour sauvegarder un classeur voici ce qui m'a été proposé: LeNom = Application.Dialogs(xlDialogSaveAs).Show If LeNom = False Then MsgBox "opération annulée", vbInformation, "Annulation" End If Cela fonctionne parfaitement et me convient parfaitement mais comment faire pour rendre la sauvegarde Read Only automatiquement ??? Merci !!!
Bonjour Paulo,
Dans la fenêtre enregistrer, dans la barre d'outils, à l'extrême droite, sous le menu outils / Options générales, tu
peux définir cette caractéristique. Sinon, tu peux faire comme ceci :
Sub YesNo()
'(Ou activeWorkbook....)
ThisWorkbook.ReadOnly = True
LeNom = Application.Dialogs(xlDialogSaveAs).Show
If LeNom = False Then
ThisWorkbook.ReadOnly = False
MsgBox "opération annulée", vbInformation, "Annulation"
End If
End Sub
Salutations!
"Paulo" <anonymous@discussions.microsoft.com> a écrit dans le message de news:12d401c49988$83da4ba0$a401280a@phx.gbl...
Hello,
Suite à une de mes demandes la semaine dernière concernant
une interface pour sauvegarder un classeur voici ce qui
m'a été proposé:
LeNom = Application.Dialogs(xlDialogSaveAs).Show
If LeNom = False Then
MsgBox "opération annulée", vbInformation, "Annulation"
End If
Cela fonctionne parfaitement et me convient parfaitement
mais comment faire pour rendre la sauvegarde Read Only
automatiquement ???
Merci !!!
Dans la fenêtre enregistrer, dans la barre d'outils, à l'extrême droite, sous le menu outils / Options générales, tu peux définir cette caractéristique. Sinon, tu peux faire comme ceci :
Sub YesNo() '(Ou activeWorkbook....) ThisWorkbook.ReadOnly = True LeNom = Application.Dialogs(xlDialogSaveAs).Show If LeNom = False Then ThisWorkbook.ReadOnly = False MsgBox "opération annulée", vbInformation, "Annulation" End If End Sub
Salutations!
"Paulo" a écrit dans le message de news:12d401c49988$83da4ba0$ Hello,
Suite à une de mes demandes la semaine dernière concernant une interface pour sauvegarder un classeur voici ce qui m'a été proposé: LeNom = Application.Dialogs(xlDialogSaveAs).Show If LeNom = False Then MsgBox "opération annulée", vbInformation, "Annulation" End If Cela fonctionne parfaitement et me convient parfaitement mais comment faire pour rendre la sauvegarde Read Only automatiquement ??? Merci !!!
Paulo
Heu ... désolé cela ne marche pas !!!
-----Message d'origine----- Bonjour Paulo,
Dans la fenêtre enregistrer, dans la barre d'outils, à l'extrême droite, sous le menu outils / Options générales,
tu
peux définir cette caractéristique. Sinon, tu peux faire comme ceci :
Sub YesNo() '(Ou activeWorkbook....) ThisWorkbook.ReadOnly = True LeNom = Application.Dialogs(xlDialogSaveAs).Show If LeNom = False Then ThisWorkbook.ReadOnly = False MsgBox "opération annulée", vbInformation, "Annulation"
End If End Sub
Salutations!
"Paulo" a écrit dans le message de news:12d401c49988$83da4ba0
$
Hello,
Suite à une de mes demandes la semaine dernière concernant une interface pour sauvegarder un classeur voici ce qui m'a été proposé: LeNom = Application.Dialogs(xlDialogSaveAs).Show If LeNom = False Then MsgBox "opération annulée", vbInformation, "Annulation"
End If Cela fonctionne parfaitement et me convient parfaitement mais comment faire pour rendre la sauvegarde Read Only automatiquement ??? Merci !!!
.
Heu ... désolé cela ne marche pas !!!
-----Message d'origine-----
Bonjour Paulo,
Dans la fenêtre enregistrer, dans la barre d'outils, à
l'extrême droite, sous le menu outils / Options générales,
tu
peux définir cette caractéristique. Sinon, tu peux faire
comme ceci :
Sub YesNo()
'(Ou activeWorkbook....)
ThisWorkbook.ReadOnly = True
LeNom = Application.Dialogs(xlDialogSaveAs).Show
If LeNom = False Then
ThisWorkbook.ReadOnly = False
MsgBox "opération annulée",
vbInformation, "Annulation"
End If
End Sub
Salutations!
"Paulo" <anonymous@discussions.microsoft.com> a écrit
dans le message de news:12d401c49988$83da4ba0
$a401280a@phx.gbl...
Hello,
Suite à une de mes demandes la semaine dernière concernant
une interface pour sauvegarder un classeur voici ce qui
m'a été proposé:
LeNom = Application.Dialogs(xlDialogSaveAs).Show
If LeNom = False Then
MsgBox "opération annulée",
vbInformation, "Annulation"
End If
Cela fonctionne parfaitement et me convient parfaitement
mais comment faire pour rendre la sauvegarde Read Only
automatiquement ???
Merci !!!
Dans la fenêtre enregistrer, dans la barre d'outils, à l'extrême droite, sous le menu outils / Options générales,
tu
peux définir cette caractéristique. Sinon, tu peux faire comme ceci :
Sub YesNo() '(Ou activeWorkbook....) ThisWorkbook.ReadOnly = True LeNom = Application.Dialogs(xlDialogSaveAs).Show If LeNom = False Then ThisWorkbook.ReadOnly = False MsgBox "opération annulée", vbInformation, "Annulation"
End If End Sub
Salutations!
"Paulo" a écrit dans le message de news:12d401c49988$83da4ba0
$
Hello,
Suite à une de mes demandes la semaine dernière concernant une interface pour sauvegarder un classeur voici ce qui m'a été proposé: LeNom = Application.Dialogs(xlDialogSaveAs).Show If LeNom = False Then MsgBox "opération annulée", vbInformation, "Annulation"
End If Cela fonctionne parfaitement et me convient parfaitement mais comment faire pour rendre la sauvegarde Read Only automatiquement ??? Merci !!!
.
Michel Pierron
Bonsoir Paulo; Je prends la relève de Denis: La propriété ReadOnly est en lecture seule.
Sub YesNo() lenom = Application.Dialogs(xlDialogSaveAs).Show If lenom = False Then MsgBox "opération annulée", vbInformation, "Annulation" Else SetAttr ThisWorkbook.FullName, 1 ThisWorkbook.ChangeFileAccess xlReadOnly End If End Sub
MP
"Paulo" a écrit dans le message de news:142201c4999a$7ff1e8b0$ Heu ... désolé cela ne marche pas !!!
-----Message d'origine----- Bonjour Paulo,
Dans la fenêtre enregistrer, dans la barre d'outils, à l'extrême droite, sous le menu outils / Options générales,
tu
peux définir cette caractéristique. Sinon, tu peux faire comme ceci :
Sub YesNo() '(Ou activeWorkbook....) ThisWorkbook.ReadOnly = True LeNom = Application.Dialogs(xlDialogSaveAs).Show If LeNom = False Then ThisWorkbook.ReadOnly = False MsgBox "opération annulée", vbInformation, "Annulation"
End If End Sub
Salutations!
"Paulo" a écrit dans le message de news:12d401c49988$83da4ba0
$
Hello,
Suite à une de mes demandes la semaine dernière concernant une interface pour sauvegarder un classeur voici ce qui m'a été proposé: LeNom = Application.Dialogs(xlDialogSaveAs).Show If LeNom = False Then MsgBox "opération annulée", vbInformation, "Annulation"
End If Cela fonctionne parfaitement et me convient parfaitement mais comment faire pour rendre la sauvegarde Read Only automatiquement ??? Merci !!!
.
Bonsoir Paulo;
Je prends la relève de Denis:
La propriété ReadOnly est en lecture seule.
Sub YesNo()
lenom = Application.Dialogs(xlDialogSaveAs).Show
If lenom = False Then
MsgBox "opération annulée", vbInformation, "Annulation"
Else
SetAttr ThisWorkbook.FullName, 1
ThisWorkbook.ChangeFileAccess xlReadOnly
End If
End Sub
MP
"Paulo" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:142201c4999a$7ff1e8b0$a401280a@phx.gbl...
Heu ... désolé cela ne marche pas !!!
-----Message d'origine-----
Bonjour Paulo,
Dans la fenêtre enregistrer, dans la barre d'outils, à
l'extrême droite, sous le menu outils / Options générales,
tu
peux définir cette caractéristique. Sinon, tu peux faire
comme ceci :
Sub YesNo()
'(Ou activeWorkbook....)
ThisWorkbook.ReadOnly = True
LeNom = Application.Dialogs(xlDialogSaveAs).Show
If LeNom = False Then
ThisWorkbook.ReadOnly = False
MsgBox "opération annulée",
vbInformation, "Annulation"
End If
End Sub
Salutations!
"Paulo" <anonymous@discussions.microsoft.com> a écrit
dans le message de news:12d401c49988$83da4ba0
$a401280a@phx.gbl...
Hello,
Suite à une de mes demandes la semaine dernière concernant
une interface pour sauvegarder un classeur voici ce qui
m'a été proposé:
LeNom = Application.Dialogs(xlDialogSaveAs).Show
If LeNom = False Then
MsgBox "opération annulée",
vbInformation, "Annulation"
End If
Cela fonctionne parfaitement et me convient parfaitement
mais comment faire pour rendre la sauvegarde Read Only
automatiquement ???
Merci !!!
Bonsoir Paulo; Je prends la relève de Denis: La propriété ReadOnly est en lecture seule.
Sub YesNo() lenom = Application.Dialogs(xlDialogSaveAs).Show If lenom = False Then MsgBox "opération annulée", vbInformation, "Annulation" Else SetAttr ThisWorkbook.FullName, 1 ThisWorkbook.ChangeFileAccess xlReadOnly End If End Sub
MP
"Paulo" a écrit dans le message de news:142201c4999a$7ff1e8b0$ Heu ... désolé cela ne marche pas !!!
-----Message d'origine----- Bonjour Paulo,
Dans la fenêtre enregistrer, dans la barre d'outils, à l'extrême droite, sous le menu outils / Options générales,
tu
peux définir cette caractéristique. Sinon, tu peux faire comme ceci :
Sub YesNo() '(Ou activeWorkbook....) ThisWorkbook.ReadOnly = True LeNom = Application.Dialogs(xlDialogSaveAs).Show If LeNom = False Then ThisWorkbook.ReadOnly = False MsgBox "opération annulée", vbInformation, "Annulation"
End If End Sub
Salutations!
"Paulo" a écrit dans le message de news:12d401c49988$83da4ba0
$
Hello,
Suite à une de mes demandes la semaine dernière concernant une interface pour sauvegarder un classeur voici ce qui m'a été proposé: LeNom = Application.Dialogs(xlDialogSaveAs).Show If LeNom = False Then MsgBox "opération annulée", vbInformation, "Annulation"
End If Cela fonctionne parfaitement et me convient parfaitement mais comment faire pour rendre la sauvegarde Read Only automatiquement ??? Merci !!!
.
michdenis
Bonsoir Paulo,
Je sais ... Et comme l'a souligné Michel Perron,
J'aurais dû employé ceci :
ThisWorkbook.ChangeFileAccess xlReadOnly
en lieu et place de :
ThisWorkbook.ReadOnly = True
ET
ThisWorkbook.ChangeFileAccess xlReadWrite
en lieu et place de :
ThisWorkbook.ReadOnly = False
dans la procédure.
IL ne te reste plus qu'à faire la substitution.
Salutations!
"Paulo" a écrit dans le message de news:142201c4999a$7ff1e8b0$ Heu ... désolé cela ne marche pas !!!
-----Message d'origine----- Bonjour Paulo,
Dans la fenêtre enregistrer, dans la barre d'outils, à l'extrême droite, sous le menu outils / Options générales,
tu
peux définir cette caractéristique. Sinon, tu peux faire comme ceci :
Sub YesNo() '(Ou activeWorkbook....) ThisWorkbook.ReadOnly = True LeNom = Application.Dialogs(xlDialogSaveAs).Show If LeNom = False Then ThisWorkbook.ReadOnly = False MsgBox "opération annulée", vbInformation, "Annulation"
End If End Sub
Salutations!
"Paulo" a écrit dans le message de news:12d401c49988$83da4ba0
$
Hello,
Suite à une de mes demandes la semaine dernière concernant une interface pour sauvegarder un classeur voici ce qui m'a été proposé: LeNom = Application.Dialogs(xlDialogSaveAs).Show If LeNom = False Then MsgBox "opération annulée", vbInformation, "Annulation"
End If Cela fonctionne parfaitement et me convient parfaitement mais comment faire pour rendre la sauvegarde Read Only automatiquement ??? Merci !!!
.
Bonsoir Paulo,
Je sais ... Et comme l'a souligné Michel Perron,
J'aurais dû employé ceci :
ThisWorkbook.ChangeFileAccess xlReadOnly
en lieu et place de :
ThisWorkbook.ReadOnly = True
ET
ThisWorkbook.ChangeFileAccess xlReadWrite
en lieu et place de :
ThisWorkbook.ReadOnly = False
dans la procédure.
IL ne te reste plus qu'à faire la substitution.
Salutations!
"Paulo" <anonymous@discussions.microsoft.com> a écrit dans le message de news:142201c4999a$7ff1e8b0$a401280a@phx.gbl...
Heu ... désolé cela ne marche pas !!!
-----Message d'origine-----
Bonjour Paulo,
Dans la fenêtre enregistrer, dans la barre d'outils, à
l'extrême droite, sous le menu outils / Options générales,
tu
peux définir cette caractéristique. Sinon, tu peux faire
comme ceci :
Sub YesNo()
'(Ou activeWorkbook....)
ThisWorkbook.ReadOnly = True
LeNom = Application.Dialogs(xlDialogSaveAs).Show
If LeNom = False Then
ThisWorkbook.ReadOnly = False
MsgBox "opération annulée",
vbInformation, "Annulation"
End If
End Sub
Salutations!
"Paulo" <anonymous@discussions.microsoft.com> a écrit
dans le message de news:12d401c49988$83da4ba0
$a401280a@phx.gbl...
Hello,
Suite à une de mes demandes la semaine dernière concernant
une interface pour sauvegarder un classeur voici ce qui
m'a été proposé:
LeNom = Application.Dialogs(xlDialogSaveAs).Show
If LeNom = False Then
MsgBox "opération annulée",
vbInformation, "Annulation"
End If
Cela fonctionne parfaitement et me convient parfaitement
mais comment faire pour rendre la sauvegarde Read Only
automatiquement ???
Merci !!!
"Paulo" a écrit dans le message de news:142201c4999a$7ff1e8b0$ Heu ... désolé cela ne marche pas !!!
-----Message d'origine----- Bonjour Paulo,
Dans la fenêtre enregistrer, dans la barre d'outils, à l'extrême droite, sous le menu outils / Options générales,
tu
peux définir cette caractéristique. Sinon, tu peux faire comme ceci :
Sub YesNo() '(Ou activeWorkbook....) ThisWorkbook.ReadOnly = True LeNom = Application.Dialogs(xlDialogSaveAs).Show If LeNom = False Then ThisWorkbook.ReadOnly = False MsgBox "opération annulée", vbInformation, "Annulation"
End If End Sub
Salutations!
"Paulo" a écrit dans le message de news:12d401c49988$83da4ba0
$
Hello,
Suite à une de mes demandes la semaine dernière concernant une interface pour sauvegarder un classeur voici ce qui m'a été proposé: LeNom = Application.Dialogs(xlDialogSaveAs).Show If LeNom = False Then MsgBox "opération annulée", vbInformation, "Annulation"
End If Cela fonctionne parfaitement et me convient parfaitement mais comment faire pour rendre la sauvegarde Read Only automatiquement ??? Merci !!!
