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

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 105
Messages
2 085 350
Membres
102 870
dernier inscrit
Armisa