Code VBA pour protéger ma feuille

CBernardT

XLDnaute Barbatruc

• 20 Novembre 2015

• #2

Re : Code VBA pour protéger ma feuille

Bonjour cel31 et le forum,

Essaye cette macro :

Private Sub Worksheet_Activate()
Dim x As Integer
ActiveSheet.Unprotect "lemotdepassefeuille"
For x = 3 To 676
If Cells(x, 1) = "" Or Cells(x, 1) = 0 Then
Rows(x).EntireRow.Hidden = True 'masque
Else
Rows(x).EntireRow.Hidden = False 'affiche
End If
Next x
ActiveSheet.Protect "lemotdepassefeuille", True, True, True
End Sub

 

Vote positif 0 Vote négatif

C

cel31

Guest

• 20 Novembre 2015

• #3

Re : Code VBA pour protéger ma feuille

Bonjour CBernardT, et merci de votre réponse,

Ca a marché, mais maintanant ça m'écrit une erreur d'exécution


Erreur d'éxécution '1004' :
Mot de passe non valide. Vérifiez que la touche VERR. MAJ. n'est pas activée et que vous respectez la bonne casse.

Alors que j'ai simplement cliqué sur ma feuille.

Merci d'avance pour votre aide.

 

Dernière modification par un modérateur: 20 Novembre 2015

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 20 Novembre 2015

• #4

Re : Code VBA pour protéger ma feuille

Bonjour,

voilà un petit fichier d'aide plus simple à comprendre

😎

 

Pièces jointes

• aide_a_la_protection.xlsm

  23.8 KB · Affichages: 33

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 20 Novembre 2015

• #5

Re : Code VBA pour protéger ma feuille

Re,

Une autre syntaxe possible :
Private Sub Worksheet_Activate()
Dim Plage As Range
ActiveSheet.Unprotect "MDPFeuille"
Set Plage = Range("A1:A" & Range("A100000").End(xlUp).Row)
Plage.Rows.AutoFit
Plage.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True 'masque
ActiveSheet.Protect "MDPFeuille", True, True, True
End Sub

 

Vote positif 0 Vote négatif