Oter laprotection de plusieurs feuilles

JC de Lorient

XLDnaute Impliqué

• 9 Avril 2006

• #2

salut
en principe içi on commence par un bonjour et on fini par un merci !!!!

pour ton code essayes ça :
Sub verrou()
Dim x As Byte
For x = 1 To Sheets.Count
Sheets(x).Unprotect Password:='mot_de_passe'
Next
End Sub

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 9 Avril 2006

• #3

Bonjour à tous

Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect , password:='blabla'
Next i
End Sub


Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Unprotect , password:='blabla'
Next i
End Sub


Temjeh

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 9 Avril 2006

• #4

Bonjour aussi JC

boffff pour 1 min deux réponses

Temjeh

 

Vote positif 0 Vote négatif

E

EDDY HANOUN

XLDnaute Nouveau

• 9 Avril 2006

• #5

Bonjour et merci. Et sans code, y a t-il une solution?

 

Vote positif 0 Vote négatif

E

EDDY HANOUN

XLDnaute Nouveau

• 9 Avril 2006

• #6

Merci. Et sans coder y a t-il une solution?

 

Vote positif 0 Vote négatif

JC de Lorient

XLDnaute Impliqué

• 9 Avril 2006

• #7

re

oui outils/protection/déprotéger la feuille

et faire ça 25 fois !!!

 

Vote positif 0 Vote négatif

E

EDDY HANOUN

XLDnaute Nouveau

• 9 Avril 2006

• #8

Là je considère que c'est de L'humour !

 

Vote positif 0 Vote négatif

C

christophe

Guest

• 16 Avril 2006

• #9

bonjour

je souhaite enlever une protection sur un fichier excel j'ai bien lu les différents items mais je ne comprends pas où rentrer les formules pouvez vous être plus explicite ?

 

Vote positif 0 Vote négatif