Macro verrouillés

quelqun a une idée !!!

j'aimerai resoudre cette erreur 1004

code macro lockadmin2293

codefeuille lockguest2293

Bonjour,

Il serait plus agréable de recevoir un fichier sans protection.

À tester pour l'erreur : tabloR = fv.Range(fv.Cells(1, 2), fv.Cells(derLn, derCol))

au lieu de tabloR = fv.Range(Cells(1, 2), fv.Cells(derLn, derCol))

ric

bonjour

votre modif a effecer les dates je pense pas que c'est un probleme de formules mais de protection

existe il le moyen de deverrouiller toutes les feuilles d'un coup ??

Bonjour,

Pour protéger toutes les feuilles de l'usager, mais laissant le code s'exécuter ...

PPrivate Sub Workbook_Open()
Dim Sh As Worksheet

   For Each Sh In ThisWorkbook.Worksheets
      Sh.Protect UserInterfaceOnly:=True
   Next Sh
End Sub

ou avec un mot de passe (à adapter)

Private Sub Workbook_Open()
Dim Sh As Worksheet

   For Each Sh In ThisWorkbook.Worksheets
      Sh.Protect Password:="Password", UserInterfaceOnly:=True
   Next Sh
End Sub

ric