XL 2019 Besoin d'aide "Protection de page" bloque le fonctionnement Ucase

YAP32

XLDnaute Occasionnel
Bonjour,

J'ai un classeur "Calendrier" tout fonctionne correctement sauf que si je veux protéger par un mot de passe, au cas si on fait une mauvaise manipulation et ma feuille est nommé notamment calendrier mais quand j'aoute

Worksheets("Calendrier").Unprotect "mdp"
Worksheets("Calendrier").Protect "mdp"

les Ucase ne fonctionnent plus.

Je souhaite garder Ucase. Pourriez vous m'aider svp!.

Merci
@+
 

Pièces jointes

  • Calendrier.xlsm
    76.3 KB · Affichages: 10
Solution
Bonjour à tous
Ceci peut être
VB:
Private Sub Worksheet_Change(ByVal Target As Range)

     Dim cl     As Range
     If Not Target Is Nothing Then
          Application.EnableEvents = False
          Application.Calculation = xlCalculationManual
          Application.ScreenUpdating = False
          For Each cl In Target.Cells
               cl.Value = UCase(cl.Value)
          Next
          Application.Calculation = xlCalculationAutomatic
          Application.EnableEvents = True
          Application.ScreenUpdating = True
     End If
    
End Sub

YAP32

XLDnaute Occasionnel
Bonjour,


La seule différence entre la macro du post#3 et celle du post#11 est le fait que celle du post#11 s' applique à toutes les cellules de la feuille !!!
Celle du post#3 répondait à la demande telle posée en #1.

J'ai encore perdu du temps pour rien
Bonjour Hasco,

Merci pour votre réponse, maintenant je vois mieux entre les deux macros. Croyez moi ce n'est pas un temps perdu! comme vous le dites mais une bonne formation pour chacun de nous.

Merci et bonne fête.
 

Discussions similaires

Statistiques des forums

Discussions
314 489
Messages
2 110 133
Membres
110 682
dernier inscrit
mgaudi