code de protection feuille qui ne fonctionne plus

[pascal21]

bonjour à tous
j'ai ce code qui fonctionnait bien jusqu'a maintenant qui me pose des soucis( variable non définie) sur le mot worksheet
je ne vois pas où est le problème (il doit sans crever les yeux)

Private Sub Workbook_Open()
Sheets("tableau de bord").Activate
Application.DisplayFullScreen = True 'plein écran
For Each Worksheet In Sheets
Worksheet.Protect Password:="tp", UserInterfaceOnly:=True
'Next Worksheet
End Sub

voyez vous le problème merci

 

[pascal21]

Re : code de protection feuille qui ne fonctionne plus

bonjour jean-Marcel
j'ai essayé cette solution mais toujours pareil
petite précision: à l'ouverture du classeur l'affichage est plein écran
est ce que ça peut venir de ça?

 

[job75]

Re : code de protection feuille qui ne fonctionne plus

Bonjour,

Worksheet est un mot de code VBA, ne pas l'utiliser comme variable !!!

Private Sub Workbook_Open()
Dim w As Worksheet
Sheets("tableau de bord").Activate
Application.DisplayFullScreen = True 'plein écran
For Each w In Worksheets
w.Protect Password:="tp", UserInterfaceOnly:=True
Next w
End Sub

A+

 

[pascal21]

Re : code de protection feuille qui ne fonctionne plus

j'ai résolu le problème en faisant comme ça

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.Protect Password:="tp", UserInterfaceOnly:=True
End Sub

bonjour JOB75
je ne comprends pas pourquoi ça fonctionnait jusqu'à maintenant
bonne journée

 

[pascal21]

Re : code de protection feuille qui ne fonctionne plus

est-il possible de pouvoir conserver la possibilité de masquer des lignes (avec la souris) lorsque le code est activé

 

[job75]

Re : code de protection feuille qui ne fonctionne plus

Re Jean-Marcel,

Ta solution ne fonctionne pas chez Pascal car la déclaration de variables a été rendue obligatoire, soit par Option Explicit, soit dans les options VBA.

Reconnais qu'écrire alors Dim Worksheet As Worksheet c'est pas terrible...

Il vaut mieux utiliser Dim w As Worksheet...

A+

 

[pascal21]

Re : code de protection feuille qui ne fonctionne plus

re

Je persiste et signe : ma solution est fonctionnelle jusqu’à preuve du contraire.

la mienne aussi maintenant
merci à vous et bon weekend
je v&is ouvrir un autre fil pour ce qui est de la question sur les lignes masquées par la souris