XL 2013 macro ouverture en lecture seule

[Bnj]

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]

Bonjour Bnj,

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

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]

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]

Bnj,

Dans le VBE aller dans le

et mettre le bout de code dans l’évènement

.

 

[Bnj]

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

 

[Bnj]

 

[Bougla972]

Bnj,

Ecrit ceci sur la ligne où cela bug:

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

 

[Bnj]

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]

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

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]

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

 

[Bougla972]

Enregistre le classeur ci-joint et essaye.

 

[Bnj]

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]

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

MERCI pour ton aide