Bonjour,
Voici ma macro. Mon pb est que le vérouillage ne se fait que sur la page en
cours, et non sur toutes les feuilles visibles, sauf la feuille précitée.
Pourquoi?
Merci. YANN
Sub test()
For Each Sheet In Worksheets
If Sheet.Visible = True And Sheet.Name <> "CP 2005-2006" Then
MacroVerou 'ça c'est une macro qui vérouille les cellules et
protège la feuille, voi ci-après
End If
Next Sheet
End Sub
Sub MacroVerou()
ActiveSheet.Unprotect
Cells.Locked = True
ActiveSheet.Protect
End Sub
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
Kamel
En effet, essaye comme ceci:
Sub test() For Each Sheet In Worksheets If Sheet.Visible = True And Sheet.Name <> "CP 2005-2006" Then Sheet.Unprotect Sheet.Cells.Locked = True Sheet.Protect End If Next Sheet End Sub
"YANN24" a écrit dans le message de news:
Bonjour, Voici ma macro. Mon pb est que le vérouillage ne se fait que sur la page en cours, et non sur toutes les feuilles visibles, sauf la feuille précitée. Pourquoi?
Merci. YANN
Sub test() For Each Sheet In Worksheets If Sheet.Visible = True And Sheet.Name <> "CP 2005-2006" Then MacroVerou 'ça c'est une macro qui vérouille les cellules et protège la feuille, voi ci-après End If Next Sheet End Sub
Sub MacroVerou() ActiveSheet.Unprotect Cells.Locked = True ActiveSheet.Protect End Sub
En effet, essaye comme ceci:
Sub test()
For Each Sheet In Worksheets
If Sheet.Visible = True And Sheet.Name <> "CP 2005-2006" Then
Sheet.Unprotect
Sheet.Cells.Locked = True
Sheet.Protect
End If
Next Sheet
End Sub
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de news:
351B8FD4-21ED-4A1F-9010-A5F608486AEE@microsoft.com...
Bonjour,
Voici ma macro. Mon pb est que le vérouillage ne se fait que sur la page
en
cours, et non sur toutes les feuilles visibles, sauf la feuille précitée.
Pourquoi?
Merci. YANN
Sub test()
For Each Sheet In Worksheets
If Sheet.Visible = True And Sheet.Name <> "CP 2005-2006" Then
MacroVerou 'ça c'est une macro qui vérouille les cellules et
protège la feuille, voi ci-après
End If
Next Sheet
End Sub
Sub MacroVerou()
ActiveSheet.Unprotect
Cells.Locked = True
ActiveSheet.Protect
End Sub
Sub test() For Each Sheet In Worksheets If Sheet.Visible = True And Sheet.Name <> "CP 2005-2006" Then Sheet.Unprotect Sheet.Cells.Locked = True Sheet.Protect End If Next Sheet End Sub
"YANN24" a écrit dans le message de news:
Bonjour, Voici ma macro. Mon pb est que le vérouillage ne se fait que sur la page en cours, et non sur toutes les feuilles visibles, sauf la feuille précitée. Pourquoi?
Merci. YANN
Sub test() For Each Sheet In Worksheets If Sheet.Visible = True And Sheet.Name <> "CP 2005-2006" Then MacroVerou 'ça c'est une macro qui vérouille les cellules et protège la feuille, voi ci-après End If Next Sheet End Sub
Sub MacroVerou() ActiveSheet.Unprotect Cells.Locked = True ActiveSheet.Protect End Sub
YANN24
merci. ça marche. YANN
En effet, essaye comme ceci:
Sub test() For Each Sheet In Worksheets If Sheet.Visible = True And Sheet.Name <> "CP 2005-2006" Then Sheet.Unprotect Sheet.Cells.Locked = True Sheet.Protect End If Next Sheet End Sub
"YANN24" a écrit dans le message de news:
Bonjour, Voici ma macro. Mon pb est que le vérouillage ne se fait que sur la page en cours, et non sur toutes les feuilles visibles, sauf la feuille précitée. Pourquoi?
Merci. YANN
Sub test() For Each Sheet In Worksheets If Sheet.Visible = True And Sheet.Name <> "CP 2005-2006" Then MacroVerou 'ça c'est une macro qui vérouille les cellules et protège la feuille, voi ci-après End If Next Sheet End Sub
Sub MacroVerou() ActiveSheet.Unprotect Cells.Locked = True ActiveSheet.Protect End Sub
merci.
ça marche.
YANN
En effet, essaye comme ceci:
Sub test()
For Each Sheet In Worksheets
If Sheet.Visible = True And Sheet.Name <> "CP 2005-2006" Then
Sheet.Unprotect
Sheet.Cells.Locked = True
Sheet.Protect
End If
Next Sheet
End Sub
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de news:
351B8FD4-21ED-4A1F-9010-A5F608486AEE@microsoft.com...
Bonjour,
Voici ma macro. Mon pb est que le vérouillage ne se fait que sur la page
en
cours, et non sur toutes les feuilles visibles, sauf la feuille précitée.
Pourquoi?
Merci. YANN
Sub test()
For Each Sheet In Worksheets
If Sheet.Visible = True And Sheet.Name <> "CP 2005-2006" Then
MacroVerou 'ça c'est une macro qui vérouille les cellules et
protège la feuille, voi ci-après
End If
Next Sheet
End Sub
Sub MacroVerou()
ActiveSheet.Unprotect
Cells.Locked = True
ActiveSheet.Protect
End Sub
Sub test() For Each Sheet In Worksheets If Sheet.Visible = True And Sheet.Name <> "CP 2005-2006" Then Sheet.Unprotect Sheet.Cells.Locked = True Sheet.Protect End If Next Sheet End Sub
"YANN24" a écrit dans le message de news:
Bonjour, Voici ma macro. Mon pb est que le vérouillage ne se fait que sur la page en cours, et non sur toutes les feuilles visibles, sauf la feuille précitée. Pourquoi?
Merci. YANN
Sub test() For Each Sheet In Worksheets If Sheet.Visible = True And Sheet.Name <> "CP 2005-2006" Then MacroVerou 'ça c'est une macro qui vérouille les cellules et protège la feuille, voi ci-après End If Next Sheet End Sub
Sub MacroVerou() ActiveSheet.Unprotect Cells.Locked = True ActiveSheet.Protect End Sub
