Protection

[dedemimi]

bonjour au forum

j'ai cree un bouton qui efface toutes les données ,j'aimerais lorsque on appuie sur ce bouton un pavé nous demande la confimation par oui ou non
et j'ai un second souci j'ai crée un bouton associé à une macro pour proteger la feuille certaines parties des cellules sont verrouillees et d'autre non ,comme je ne suis pas un fortiche en excel j'ai crée sur chaque page un bouton de protection je voudrais savoir si on ne pourrait pas creer un seul bouton pour l'ensemble des pages surtout que sur toutes les pages ce sont les mêmes cellules qui sont verrouiller
je vous un fichier qui sera peut etre plus explicite (sur la 1ere page)

 

[mfb]

Re : Protection

Bonsoir à Tous.
Dedemimi je ne suis pas expert mais regarde le fichier en retour il semble répondre à ta première demande.
Pour la 2ème une âme charitable vas surement passer par là.
A+
Daniel

 

[dedemimi]

Re : Protection

BONJOUR
c'est exactement cela que je voulais merci de ta reponse j'espere qu'il y aura une personne qui resoudra mon autre souci
merci encore

 

[wamme]

Re : Protection

Salut pour protéger toutes tes feuilles:

Application.ScreenUpdating = False
Dim Temp As String
Temp = ActiveSheet.Name
    For Each Sh In Worksheets
    Worksheets(Sh.Name).Activate
    ActiveSheet.Protect 
    Next
Sheets(Temp).Select
Application.ScreenUpdating = True

 

[dedemimi]

Re : Protection

BONJOUR, wamme
il me fait une erreur de compilation sur la 1 ere ligne à =FALSE
Application.ScreenUpdating = False
Dim Temp As String
Temp = ActiveSheet.Name
For Each Sh In Worksheets
Worksheets(Sh.Name).Activate
ActiveSheet.Protect
Next
Sheets(Temp).Select
Application.ScreenUpdating = True

 

[jeanpierre]

Re : Protection

Bonsoir dedemimi, wamme,

Curieux, cela ne devrait pas.

Commente cette ligne avec ' , ainsi que la dernière et revois.

Bonne soirée.

Jean-Pierre

 

[mfb]

Re : Protection

Re,
J' ai beaucoup + à apprendre qu' à donner surtout de la part de Jean Piere Wanne et les .... autres.
Alors j' ai pris ce fil comme un devoir de vacances.
Pour dedemimi regarde à nouveau le fichier avec le code wanne ça marche.
J' ai bricolé un bouton unique pour vérrouiller et dévérouiller il est en "j43";
A+
Daniel

 

[Pierrot93]

Re : Protection

Bonsoir à tous

pour protéger toutes les feuilles sans les activer, ce qui ralenti le code et est généralement inutile en vba :

Dim ws As Worksheet
For Each ws In Worksheets
    ws.Protect
Next ws

bonne soirée
@+

 

[dedemimi]

Re : Protection

bonjour
effectivement ça marche tres bien j'avais fait une mauvaise manip
merci encore à tous

 

[Mulder]

Re : Protection

Bonjour,
Je prends la suite de cette discussion qui m'intéresse.

Lorsque j'utilise le code précédemment cité, à quel moment précise-t-on le mot de passe ?

 

[Pierrot93]

Re : Protection

Bonsoir mulder

pour une protection avec mot de passe "toto" :

Dim ws As Worksheet
For Each ws In Worksheets
    ws.Protect "toto"
Next ws

bonne soirée
@+