Discussion :

[fofika]

J'ai trouvé un très bon code sur ce forum qui me permet de protéger un document sans pour autant rendre l'accés au mode plan inacessible.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
    Dim wSheet As Worksheet
 
    For Each wSheet In Worksheets
        wSheet.Protect Password:="jpp", UserInterFaceOnly:=True
        wSheet.EnableOutlining = True
    Next wSheet
End Sub

Je l'envoi à mon correspondant qui a Excel 2004 en mac et cela ne fonctionne pas (le mode plan est protégé et donc inacessible).

Moi le nul en VBA, je vois point ce que je peux faire....... un avis de pro sur la question?

Amicalement vôtre

[fofika]

J'ai trouvé........ au cas où certains rencontreraient le même problème

Code :

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

1
2
3
4
5
6
Private Sub Workbook_Open()
With Worksheets("Feuil1")
    .EnableOutlining = True
   .Protect Contents:=True, Password:="jpp", UserInterfaceOnly:=True
End With
End Sub

Merci Moi........lol