Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Macro/protection/enlevé/remettre

Macro/protection/enlevé/remettre

1 réponse
Avatar
Erico
Bonjour,

j'ai l'onglet en cours protéger et dans cette macro, j'ai mis l'enlèvement
de la protection et la remettre.
Ça fonctionne pas, pourquoi?

Si je mets un mots de passe, est-ce faisable?
____________________________________________
Sub afficherdispo()
'
' afficherdispo Macro
' Macro enregistrée le 2006-05-25 par Eric Dufour
'________________Tout afficher
Application.ScreenUpdating = False

ActiveSheet.Unprotect

Columns("A:BI").Select
Range("BI1").Activate
Selection.EntireColumn.Hidden = False
Columns("AR:BC").Select
Range("BC1").Activate
ActiveWindow.SmallScroll ToRight:=-34
Range("AR:BC,L:L,J:J").Select
Range("J1").Activate
ActiveWindow.SmallScroll ToRight:=-3
Selection.EntireColumn.Hidden = True
Range("H7").Select

' Range("M:P,R:U,W:Z").Select
' Range("W1").Activate
' ActiveWindow.SmallScroll ToRight:=12
' Range("M:P,R:U,W:Z,AB:AE,AG:AJ").Select
' Range("AG1").Activate
' ActiveWindow.SmallScroll ToRight:=5
Range("M:P,R:U,W:BC").Select
Range("AL1").Activate
Selection.EntireColumn.Hidden = True
ActiveWindow.LargeScroll ToRight:=-1
Range("H7").Select
'____________________masque lignes
Rows("105:157").Select
Selection.EntireRow.Hidden = True
'______________________
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = False
End Sub
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
JB
Bonjour,

- ActiveSheet.Unprotect Password:="moi" désactive la protection
- ActiveSheet.Protect Password:="moi" l'active

Exemple:

http://cjoint.com/?gih1UUoLVo

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B2:B10,D2:D10], Target) Is Nothing And Target.Count
= 1 Then
ActiveSheet.Unprotect Password:="moi"
Target.Interior.ColorIndex = 3
ActiveSheet.Protect Password:="moi"
End If
End Sub

JB


Bonjour,

j'ai l'onglet en cours protéger et dans cette macro, j'ai mis l'enlèv ement
de la protection et la remettre.
Ça fonctionne pas, pourquoi?

Si je mets un mots de passe, est-ce faisable?
____________________________________________
Sub afficherdispo()
'
' afficherdispo Macro
' Macro enregistrée le 2006-05-25 par Eric Dufour
'________________Tout afficher
Application.ScreenUpdating = False

ActiveSheet.Unprotect

Columns("A:BI").Select
Range("BI1").Activate
Selection.EntireColumn.Hidden = False
Columns("AR:BC").Select
Range("BC1").Activate
ActiveWindow.SmallScroll ToRight:=-34
Range("AR:BC,L:L,J:J").Select
Range("J1").Activate
ActiveWindow.SmallScroll ToRight:=-3
Selection.EntireColumn.Hidden = True
Range("H7").Select

' Range("M:P,R:U,W:Z").Select
' Range("W1").Activate
' ActiveWindow.SmallScroll ToRight:
' Range("M:P,R:U,W:Z,AB:AE,AG:AJ").Select
' Range("AG1").Activate
' ActiveWindow.SmallScroll ToRight:=5
Range("M:P,R:U,W:BC").Select
Range("AL1").Activate
Selection.EntireColumn.Hidden = True
ActiveWindow.LargeScroll ToRight:=-1
Range("H7").Select
'____________________masque lignes
Rows("105:157").Select
Selection.EntireRow.Hidden = True
'______________________
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = False
End Sub