Astuces Excel
  1. Astuces Excel
  3. Désactiver les cellules sur une autre feuille
Intereting Posts
xlsxwriter & xlrd issue – file xlsx enregistré en ZIP sur une machine, mais avec d'autres 4 premiers octets sur un autre Copier une list déroulante vers une autre cellule Importation d'excel avec les cellules fusionnées dans R Exporter vers Excel depuis ASP.NET produit des files illisibles avec Excel Viewer Stata vers Excel: garder le time variable correct Excel INDEX / MATCH – Trop d'arguments Effacer la fiche incluant l'image sans affecter les définitions de scope nommées Insérez une image dans la cellule excel Comment surveiller les valeurs dans un dictionary dans la window de montre Excel VBA? Renvoi d'une masortingce / masortingce dans Excel VBA à partir d'une fonction définie par l'user Erreur fatale: non détecté PHPExcel_Reader_Exception: Impossible d'ouvrir excel.csv pour la lecture! Le file n'existe pas ou n'est pas lisible Excel – Remplacez une formule basée sur les cellules aux valeurs réelles des cellules ne peut pas supprimer les espaces blancs de la string hexadécimal EXCEL Générer une feuille de calcul Excel avec des macros à l'aide de Microsoft Access Effectuez une requête http get depuis Excel via un proxy avec les informations d'identification par défaut

Désactiver les cellules sur une autre feuille

J'ai 2 feuilles principales et une sous-feuille.

MainSheet a un drop down menu oui / non. Si l'user sélectionne oui, les cellules de sous-class doivent être activées et s'il sélectionne aucune "cellule doit être désactivée".

En outre, si les users sélectionnent "non" et essaie de cliquer sur les cellules désactivées msg doit être affiché en disant "click OK pour activer les cellules" et la valeur dans la list déroulante devrait passer à "oui" sur la feuille principale.

Fonction ci-dessous sur la fiche principale 

If Intersect(Target, Range("G11")) Is Nothing Then Exit Sub Application.EnableEvents = False Select Case (Target.Value) Case "YES" Call Notify Case "NO" Call Notify Exit Sub End Select Application.EnableEvents = True

Au-dessous de la fonction, j'ai utilisé un module. 

 Public Sub Notify() If ActiveSheet.ProtectContents And Not mMessageDisplayed Then mMessageDisplayed = True If MsgBox("Cells are locked on current sheet, press ok to Unlock", vbOKCancel + vbInformation) = vbOK Then ThisWorkbook.Worksheets("MAIN").Range("G11") = "YES" With ThisWorkbook.Sheets("Subsheet") .Range("E13:E14").Locked = False End With Else ThisWorkbook.Worksheets("MAIN").Range("G11") = "NO" With ThisWorkbook.Sheets("Subsheet") .Range("E13:E14").Locked = True End With End If End If End Sub

Fonction ci-dessous sur SubSheet 

 Private mMessageDisplayed As Boolean Private Sub Worksheet_Activate() Notify End Sub

Les fonctions fonctionnent. La seule préoccupation est … Je reçois l'invite du message même lorsque l'user a déjà sélectionné "Oui". L'intention est d'get l'invite msg seulement s'il a sélectionné non et vient à la sous-section et essaie de l'éditer.