XL 2013 macro ouverture en lecture seule

Bnj · 17 Mars 2017

bonjour,

je souhaiterais que mon classeur excel s'ouvre en lecture seule automatiquement et systématiquement via une macro.
En effet, je le souhaite via macro car une commande via un bouton permettra :
- d'enlever la lecture seule (via la commande ThisWorkBook.ChangeFileAccess xlReadWrite)
- actualiser les données (ActiveWorkbook.RefreshAll)
- enregistrer le fichier (ActiveWorkbook.Save)
- remettre la lecture seule (via la commande ThisWorkBook.ChangeFileAccess xlReadWrite)

pour macro à l'ouverture, j'ai codé ceci :
Private Sub Workbook_Open()
ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
Worksheets("note mutation").Activate
ActiveWindow.View = xlPageBreakPreview
ActiveWorkbook.SlicerCaches("Segment_Division_bureau").ClearManualFilter
ActiveWorkbook.SlicerCaches("Segment_Bureau_service").ClearManualFilter
ActiveWorkbook.SlicerCaches("Segment_gestion").ClearManualFilter
End Sub

Cependant, rien ne se passe , le fichier ne s'ouvre pas en lecture seule.

complément d'info, je ne souhaite pas que l'utilisateur voit une texte box à l'ouverture lui parlant de lecture seule par exemple. c'est pour cela que je ne coche pas l'option lecture seule recommandée

MErci de votre aide

Bougla972 · 17 Mars 2017

Bonjour Bnj,

A insérer et adapter dans le ThisWorkBook.Open:

VB:

Dim MonFichier As String

Application.ScreenUpdating = False

MonFichier = ThisWorkbook.Path 'à adapter
'Ouverture du fichier en Lecture Seule
.Workbooks.Open filename:=MonFichier, ReadOnly:=True

Application.ScreenUpdating = True

Bnj · 17 Mars 2017

merci mais je ne comprends pas du tout cette solution ou tout du moins comment l'adapter à ma macro existante. je débute et je suis très novice

Bougla972 · 17 Mars 2017

Bnj,

Dans le VBE aller dans le et mettre le bout de code dans l’évènement.

Bnj · 17 Mars 2017

mais je le colle au milieu de mon codage initial ? ou je supprime ?

Bnj · 17 Mars 2017

Bougla972 · 17 Mars 2017

Bnj,

Ecrit ceci sur la ligne où cela bug:

VB:

Application.Workbooks.Open filename:=MonFichier, ReadOnly:=True

Bnj · 17 Mars 2017

rien ne se passe à l'ouverture du fichier et je ne suis pas en lecture seule
et lorsque je clique sur mon bouton a qui j'ai attribué cette commande en VBA
Sub Macro9()
'
' Macro9 Macro
'

ThisWorkbook.ChangeFileAccess xlReadWrite
Range("G22:I29").Select
Selection.ClearContents
Range("B22:B29").Select
Selection.ClearContents
Range("E13:I13").Select
Selection.ClearContents
Range("H11").Select
Selection.ClearContents
Range("E8:I8").Select
Selection.ClearContents
Range("E5:I5").Select
Selection.ClearContents
ActiveWorkbook.SlicerCaches("Segment_Division_bureau").ClearManualFilter
ActiveWorkbook.SlicerCaches("Segment_Bureau_service").ClearManualFilter
ActiveWorkbook.SlicerCaches("Segment_gestion").ClearManualFilter
ActiveWorkbook.RefreshAll
Range("O3") = Date
ThisWorkbook.ChangeFileAccess xlReadWrite
ActiveWorkbook.Save
End Sub
cela me cause l'erreur suivante :

Bougla972 · 17 Mars 2017

Insère le code que je t'es fournit dans l'évènement 'Open' de Workbook

VB:

Dim MonFichier As String

Application.ScreenUpdating = False

MonFichier = ThisWorkbook.Path 'à adapter
'Ouverture du fichier en Lecture Seule
Application.Workbooks.Open filename:=MonFichier, ReadOnly:=True

Application.ScreenUpdating = True

Bnj · 17 Mars 2017

il est inséré, regarde comment je l'ai mis sur la capture d'écran de mon message d'erreur

Bougla972 · 17 Mars 2017

Enregistre le classeur ci-joint et essaye.

Bnj · 17 Mars 2017

merci beaucoup
adaptée sur mon fichier, cette macro mais une fenêtre me demande si je veux réouvrir le fichier à nouveau. J'ai contourné avec Application.DisplayAlerts = False

concernant mon bouton de commande qui sert à :
-enlever la lecture seule
-actualiser les données
-enregistrer
-remettre la lecture seule

cela beugue au moment de la remise en lecture seule (je l'ai marqué en rouge ci-dessous)

voici mon code de bouton :
Sub Macro9()
'
' Macro9 Macro
'

ThisWorkbook.ChangeFileAccess xlReadWrite
Range("G22:I29").Select
Selection.ClearContents
Range("B22:B29").Select
Selection.ClearContents
Range("E13:I13").Select
Selection.ClearContents
Range("H11").Select
Selection.ClearContents
Range("E8:I8").Select
Selection.ClearContents
Range("E5:I5").Select
Selection.ClearContents
ActiveWorkbook.SlicerCaches("Segment_Division_bureau").ClearManualFilter
ActiveWorkbook.SlicerCaches("Segment_Bureau").ClearManualFilter
ActiveWorkbook.SlicerCaches("Segment_Section1").ClearManualFilter
Range("O3") = Date
ThisWorkbook.ChangeFileAccess xlReadWrite
ActiveWorkbook.Save
End Sub

Bnj · 17 Mars 2017

j'ai trouvé l'erreur sur mon bouton : ThisWorkbook.ChangeFileAccess xlReadonly

MERCI pour ton aide

XL 2013 macro ouverture en lecture seule

Bnj

XLDnaute Occasionnel

Bougla972

XLDnaute Occasionnel

Bnj

XLDnaute Occasionnel

Bougla972

XLDnaute Occasionnel

Bnj

XLDnaute Occasionnel

Bnj

XLDnaute Occasionnel

Bougla972

XLDnaute Occasionnel

Bnj

XLDnaute Occasionnel

Bougla972

XLDnaute Occasionnel

Bnj

XLDnaute Occasionnel

Bougla972

XLDnaute Occasionnel

Pièces jointes

Bnj

XLDnaute Occasionnel

Bnj

XLDnaute Occasionnel

Discussions similaires