protection feuille excel par mot de passe

bonjour,

un truc comme ca permet d'avoir l'onglet visible mais ne permet pas de voir
les colonnes
A mettre dans le module de feuille

Private Sub Worksheet_Activate()

If Me.ProtectContents = True Then
Application.CommandBars.FindControl(ID:‰3).Execute
If Me.ProtectContents = False Then
Columns("A:IV").Hidden = False
End If
End If

End Sub

Private Sub Worksheet_Deactivate()

If Me.ProtectContents = False Then
Columns("A:IV").Hidden = True
Me.Protect "ton mot de passe"
End If

End Sub

A+

bonjour,

je souhaiterais proteger une feuille excel par mot de passe sans la masquer.
C'est à dire que l'onglet soit toujours visible mais que lorsque l'on clic
dessus il faille un mot de passe pour qu'elle s'affiche.

Merci de votre aide.

Céline

bonjour Céline,

Private Sub Worksheet_Activate()
mdp = InputBox("Entrer le mot de passe")
If mdp = "zaza" Then
Sheets("Feuil1").Unprotect Password:="zaza"
Sheets("Feuil1").Cells.EntireColumn.Hidden = False
End If
End Sub

Private Sub Worksheet_Deactivate()
Sheets("Feuil1").Cells.EntireColumn.Hidden = True
Sheets("Feuil1").Protect Password:="zaza"
End Sub

isabelle

bonjour,

je souhaiterais proteger une feuille excel par mot de passe sans la masquer.
C'est à dire que l'onglet soit toujours visible mais que lorsque l'on clic
dessus il faille un mot de passe pour qu'elle s'affiche.

Merci de votre aide.

Céline

merci mais comment ca marche un fois que j'ai créer la macro! pour rebloquer
la feuille par exemple
je suis débutante!

bonjour Céline,

Private Sub Worksheet_Activate()
mdp = InputBox("Entrer le mot de passe")
If mdp = "zaza" Then
Sheets("Feuil1").Unprotect Password:="zaza"
Sheets("Feuil1").Cells.EntireColumn.Hidden = False
End If
End Sub

Private Sub Worksheet_Deactivate()
Sheets("Feuil1").Cells.EntireColumn.Hidden = True
Sheets("Feuil1").Protect Password:="zaza"
End Sub

isabelle

bonjour,

je souhaiterais proteger une feuille excel par mot de passe sans la masquer.
C'est à dire que l'onglet soit toujours visible mais que lorsque l'on clic
dessus il faille un mot de passe pour qu'elle s'affiche.

Merci de votre aide.

Céline

bonjour Céline,

j'ai apporté une correction au cas ou la feuille n'aurait pas été déprotéger à l'activation,
les deux macro sont à copier sur la page code de la feuille en question.

'à la sélection de l'onglet Feuil1 la macro est executé et demande un mot de passe

Private Sub Worksheet_Activate()
mdp = InputBox("Entrer le mot de passe")
If mdp = "zaza" Then
Sheets("Feuil1").Unprotect Password:="zaza"
Sheets("Feuil1").Cells.EntireColumn.Hidden = False
End If
End Sub

'à la désélection de l'onglet Feuil1 la macro est executé et remet le mot de passe un mot de passe
'si la feuille n'a pas été déprotégé

Private Sub Worksheet_Deactivate()
On Error Resume Next
Sheets("Feuil1").Cells.EntireColumn.Hidden = True
Sheets("Feuil1").Protect Password:="zaza"
End Sub

isabelle

merci mais comment ca marche un fois que j'ai créer la macro! pour rebloquer
la feuille par exemple
je suis débutante!

bonjour Céline,

Private Sub Worksheet_Activate()
mdp = InputBox("Entrer le mot de passe")
If mdp = "zaza" Then
Sheets("Feuil1").Unprotect Password:="zaza"
Sheets("Feuil1").Cells.EntireColumn.Hidden = False
End If
End Sub

Private Sub Worksheet_Deactivate()
Sheets("Feuil1").Cells.EntireColumn.Hidden = True
Sheets("Feuil1").Protect Password:="zaza"
End Sub

isabelle

bonjour,

je souhaiterais proteger une feuille excel par mot de passe sans la masquer.
C'est à dire que l'onglet soit toujours visible mais que lorsque l'on clic
dessus il faille un mot de passe pour qu'elle s'affiche.

Merci de votre aide.

Céline