Re:Ligne et colonne \" MASQUER \" avec mot de passe
Bonsoir Chriwautier, Tonio 74, MarieH et le forum,
Dans la macro ci-dessous, il est supposé que c'est la colonne E:E qui contient les prix de revient.
Le mot de passe est trois étoiles.
Sub MasquerAfficherPrixRevient()
Application.ScreenUpdating = False
' Deprotection de la feuille active, le mot de passe est 'pass'
If Range('E:E').EntireColumn.Hidden = False Then
With ActiveSheet
.EnableSelection = xlNoRestrictions
.Unprotect Password:='***'
End With
Range('E:E').EntireColumn.Hidden = True
' Reprotection de la feuille active
With ActiveSheet
.EnableSelection = xlNoRestrictions
.Protect Password:='***', Contents:=True, UserInterfaceOnly:=True, Scenarios:=True
End With
Else
With ActiveSheet
.EnableSelection = xlNoRestrictions
.Unprotect
End With
Range('E:E').EntireColumn.Hidden = False
With ActiveSheet
.EnableSelection = xlNoRestrictions
.Protect Password:='***', Contents:=True, UserInterfaceOnly:=True, Scenarios:=True
End With
End If
Range('B2').Select
Application.ScreenUpdating = True
End Sub
Cordialement
CBernardT
Message édité par: CBernardT, à: 23/03/2005 21:09