protection classeur

Staple1600

XLDnaute Barbatruc

• 9 Novembre 2009

• #2

Re : protection classeur

Bonsoir



Outils/Protection/Protéger le classeur

(en laissant tourner l'enregistreur de macro 😉 )

 

Vote positif 0 Vote négatif

R

roller

Guest

• 9 Novembre 2009

• #3

Re : protection classeur

Merci Staple1600 , je vais essayer ça🙂 🙂
A+

 

Vote positif 0 Vote négatif

R

roller

Guest

• 10 Novembre 2009

• #4

Re : protection classeur

Salut Staple1600 j'ai essayer et ça marche que sur une feuille.
Tu peux m'expliquer ?

 

Pièces jointes

• Classeur3.zip

  15.3 KB · Affichages: 44
• Classeur3.zip

  15.3 KB · Affichages: 37
• Classeur3.zip

  15.3 KB · Affichages: 33

Vote positif 0 Vote négatif

R

roller

Guest

• 10 Novembre 2009

• #5

Re : protection classeur

Merci jean-marcel pour ton code mais ce code ne marche pas avec un userform.Ce que je veux faire c'est interdire la modification des feuilles excel sauf avec userform.Le code que j'avais, marcher pour une seul feuille.
Comment je dois faire ?
A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Novembre 2009

• #6

Re : protection classeur

Bonjour à tous


Juste pour souligner une trop rare réaction des posteurs "jeunes" en VBA
lorsque des "vieux" en VBA comme moué leur cause enregistreur de macro.

Bravo roller 🙂 , prends l'habitude d'utiliser l'enregisteur de macros, cela fait une base de départ de code VBA et permets souvent d'aider à se sortir de mauvais pas , sans oublier évidemment le côté pédagogique .

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 11 Novembre 2009

• #7

Re : protection classeur

Bonjour Staple Jean Marcel Roller le forum,
oui juste pour vous saluer tous et vous dire que moi depuis que MDF m'a dit que 80 % de ces macros commencaient en utilisant l'enregistreur de macro j'y pense et le fait presque toujours.
Par contre Jean Marcel la touche F1 là je dois dire que c'est pas un reflexe hélas
bonne journée a tous
a+
Papou

 

Vote positif 0 Vote négatif

R

roller

Guest

• 11 Novembre 2009

• #8

Re : protection classeur

Merci pour le code,c'est ce que j'avais fais, mais ça marcher pas hier soir et se matin ça marche 🙄 🙂 .
A+

 

Vote positif 0 Vote négatif

R

roller

Guest

• 11 Novembre 2009

• #9

Re : protection classeur

ça marche plus😡 , j'ai une erreur d'excution'1004'

Code:

Sub protection()
Dim Compteur As Byte
For Compteur = 1 To ThisWorkbook.Sheets.Count
Sheets(Compteur).Protect Password:="toto", userinterfaceonly:=True

Next
End Sub

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("new menu").Activate
End Sub


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i As Integer
[COLOR="Red"]Sheets("Listes").Range("A5:A65536").ClearContents[/COLOR]For i = 2 To Sheets.Count - 1
Sheets("Listes").Range("A3").Offset(i) = " " & Sheets(i).Name
Next
End Sub

Dés que s'ouvre mon classeur ça bloque a ce niveau "Sheets("Listes").Range("A5:A65536").ClearContents" .
Comment débloquer cette erreur?
A+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 11 Novembre 2009

• #10

Re : protection classeur

Bonjour Roller tous
c'est normal que cela ne marche pas
tu écris Sheets("Listes").range("A5:A65536") .clearcontents
mais après si tu mets For pas bon
tu peux mettre :For
ou mettre le for à la ligne
a+
papou

 

Vote positif 0 Vote négatif

R

roller

Guest

• 11 Novembre 2009

• #11

Re : protection classeur

salut papou, mon "For" et a la ligne

Code:

Sub protection()
Dim Compteur As Byte
For Compteur = 1 To ThisWorkbook.Sheets.Count
Sheets(Compteur).Protect Password:="toto", userinterfaceonly:=True

Next
End Sub

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("new menu").Activate
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i As Integer
Sheets("Listes").Range("A5:A65536").ClearContents
For i = 2 To Sheets.Count - 1
Sheets("Listes").Range("A3").Offset(i) = " " & Sheets(i).Name
Next
End Sub

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 12 Novembre 2009

• #12

Re : protection classeur

Bonjour roller le forum,
moi Roller je ne peux pas tester puisque tu as enregistré ton fichier en xlms et que je n'ai pas 2007 donc je ne peux pas tester et te donner mon avis
bonne journée
a+
papou

 

Vote positif 0 Vote négatif

R

roller

Guest

• 12 Novembre 2009

• #13

Re : protection classeur

salut papou merci de m'aider , je t'es mis le fichier en 97-2003.
A+

 

Pièces jointes

• sérial new(4).zip

  40.5 KB · Affichages: 19

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 12 Novembre 2009

• #14

Re : protection classeur

Bonjour roller, Papou,

Pas très élégant, mais modifie comme suit :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Unprotect password:="toto"
Dim i As Integer
Sheets("Listes").Unprotect password:="toto"
Sheets("Listes").Range("A5:A65536").ClearContents
For i = 2 To Sheets.Count - 1
Sheets("Listes").Range("A3").Offset(i) = " " & Sheets(i).Name
Next
Sheets("Listes").Protect password:="toto"
Protect password:="toto"
End Sub

Si j'ai bien compris.

Bonne journée.

Jean-Pierre

 

Vote positif 0 Vote négatif

R

roller

Guest

• 12 Novembre 2009

• #15

Re : protection classeur

salut jeanpierre,ce que je veux c'est de protéger mon classeur et pouvoir utilser mon userform.J'ai le code pour le faire mais j'ai une erreur '1004' qui vient bloquer.Comment débloquer cette erreur?
Ton code marche bien pour la protection du classeur mais bloque mon userform.
A+

 

Vote positif 0 Vote négatif