Option de protection avec une macro

[f1f00]

Salut à tous on m'a passé une macro qui fonctionne niquel mais j'aimerais pourvoir modifier les parametres de la protection à l'aide de cette macro et notamment permettre d'utiliser les trie automatique et mpécher de sélectionner les cellules vérouillées. Quelqu'un peut m'aider?

 

[Dull]

Re : Option de protection avec une macro

Salut f1f00, le Forum

on m'a passé une macro qui fonctionne niquel mais j'aimerais pourvoir modifier les parametres de la protection à l'aide de cette macro et notamment permettre d'utiliser les trie automatique et mpécher de sélectionner les cellules vérouillées

Heu...manquepasquelquechose 🙄

Bonne Journée

 

[f1f00]

Re : Option de protection avec une macro

😀
Ca peut être?

Option Explicit

Sub ProtectMany()
Dim vaFileName As Variant
Dim MyDir$
MyDir = Sheets("Boutons").Range("B18").Text
'the location of the workbooks
With Application.FileSearch
    .NewSearch
    .LookIn = MyDir
    'the directory to search in
    .SearchSubFolders = False
    .FileType = msoFileTypeExcelWorkbooks
    If .Execute > 0 Then
    'workbooks found
        For Each vaFileName In .FoundFiles
        'loop through each found workbook
            Wkprotect vaFileName
            'pass workbook fullname to unprotect routine
        Next
    Else
        MsgBox "Aucun fichier Excel trouvé."
    End If
End With

End Sub

Sub Wkprotect(wbkName)
Dim ws As Worksheet

With Application
    .ScreenUpdating = False
    .AskToUpdateLinks = False
End With

Workbooks.Open Filename:=wbkName, IgnoreReadOnlyRecommended:=True

With ActiveWorkbook
    .RunAutoMacros xlAutoOpen
    .Protect Password:="otersav"
    For Each ws In .Worksheets
        ws.Protect Password:="otersav"
    Next ws
    .Close True
End With

End Sub

Héhé

 

[f1f00]

Re : Option de protection avec une macro

Personne n'a de solution pour moi?

 

[f1f00]

Re : Option de protection avec une macro

S'il vous plait j'ai besoin de votre aide

 

[Pierrot93]

Re : Option de protection avec une macro

Bonjour f1f100, Dull🙂

peut être ce code te fera t il avancer :

With ActiveSheet
    .EnableSelection = xlNoSelection
    .Protect "toto", AllowSorting:=True
End With

bonne journée.
@+

 

[f1f00]

Re : Option de protection avec une macro

Merci Pierrot ce code permet de désolecionner l'option "Selectionner les cellules vérouillées" c'est bien ca?

 

[f1f00]

Re : Option de protection avec une macro

Et je le met ou dans le code? Stp

 

[Pierrot93]

Re : Option de protection avec une macro

Re,

modifies cette partie ainsi :

With ActiveWorkbook
    .RunAutoMacros xlAutoOpen
    .Protect Password:="otersav"
    For Each ws In .Worksheets
        With ws
            .EnableSelection = xlNoSelection
            .Protect Password:="otersav", AllowSorting:=True
        End With
    Next ws
    .Close True
End With

@+

 

[f1f00]

Re : Option de protection avec une macro

Ok merci jessaie cet aprem et je te dis

 

[f1f00]

Re : Option de protection avec une macro

Pas eu le temps je teste lundi merci encore

 

[f1f00]

Re : Option de protection avec une macro

Pierrot93 ta macro marche mais ce n'est pas cette option que je veux selectionner c'est "autoriser le filtre automatique" et déselectionner "Sélectionner les cellules verrouillées"

 

[blord]

Re : Option de protection avec une macro

Salut,

Essaie avec : AllowFiltering:=True

Blord

 

[f1f00]

Re : Option de protection avec une macro

Merci blord ca marche, par contre t'as pas pour désélectionner "Sélectionner les cellules verrouillées"???

 

[blord]

Re : Option de protection avec une macro

Salut,

Essaie avec : .EnableSelection = xlNoSelection

Blord