Macro déverouiller les cellules

[arnaudbu]

Bonjour,

J'ai cette macro qui archive une feuille et met la feuille actuelle à zéro. Cependant les cellules de le feuille ne sont pas déverrouiller, avez vous une idée ?

Sub Nouvelle_feuille_actions()

On Error Resume Next

Dim MSG As Long

MSG = MsgBox("message", vbQuestion + vbYesNo, "Information")

If (MSG = 6) Then

Sheets("Suivi_actions").Select

Sheets("Suivi_actions").Copy Before:=Sheets(3)

Sheets("Suivi_actions (*)").Select

ActiveSheet.Name = Format(Date, "yyyy")

ActiveSheet.Tab.ColorIndex = 54

Sheets("Suivi_actions").Select
Rows("3:250").Select
Selection.Delete Shift:=xlUp
Selection.Locked = False
Selection.RowHeight = 21
Range("A3").Select

End If

End Sub

 

[Excel-lent]

Re : Macro déverouiller les cellules

Bonsoir Arnaudbu, le fil,

Concernant cette partie de ton code :

Sheets("Suivi_actions").Select
Rows("3:250").Select
Selection.Delete Shift:=xlUp
Selection.Locked = False
Selection.RowHeight = 21
Range("A3").Select

Tu peux le simplifier ainsi :

With Sheets("Suivi_actions").Rows("3:250")
   .Delete
   .Locked = False
   .RowHeight = 21
End With

Cependant les cellules de le feuille ne sont pas déverrouiller

Tu as bien regardé les cellules de la feuille "Suivi_actions"?

Bonne fin de soirée

 

[arnaudbu]

Re : Macro déverouiller les cellules

En fait la feuille est vérouillé avec mot de passe. Dois je mettre une macro de dévérouillage ?

 

[jeanpierre]

Re : Macro déverouiller les cellules

Bonjour arnaudbu, Excel-lent,

En fait VBA est comme nous, il ne sait pas travailler sur une feuille protégée, il faut donc la déprotéger avant.

une manière de faire, en dessous de ton Private Sub :

ActiveSheet.Unprotect ("ton mot de passe")

et avant le End Sub :

ActiveSheet.Protect ("ton mot de passe")

Bonne journée.

Jean-Pierre

 

[arnaudbu]

Re : Macro déverouiller les cellules

OK merci à vous