Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment rendre une cellule particulière obligatoire avant de fermer le classeur?

Lorsque vous partagez un classeur avec d'autres utilisateurs pour une enquête nécessitant l'enregistrement du nom réel, par exemple, chaque utilisateur sous enquête doit entrer son nom dans B1. Mais dans certains cas, certains utilisateurs peuvent fermer le classeur après enquête sans entrer leur nom. Dans cet article, je présente un VBA pour rendre une cellule particulière obligatoire avant de fermer le classeur.

Faire une cellule obligatoire entrer avec VBA


nous Protéger la feuille de travail

Kutools pour Excel Protéger la feuille de travail fonction peut rapidement protéger plusieurs feuilles ou l'ensemble du classeur à la fois.
doc protège plusieurs feuilles de travail

flèche bleue droite bulle Faire une cellule obligatoire entrer avec VBA


Kutools for Excel, avec plus de 120 fonctions Excel pratiques, améliorez votre efficacité de travail et économisez votre temps de travail.

1. Activer le classeur contenant la cellule obligatoire et appuyez sur Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.

2. dans le Projet volet, double clic ThisWorkbook, et allez sélectionner Classeur et AvantFermer à partir de la liste de la section droite, puis collez le code ci-dessous dans le script. Voir la capture d'écran:

VBA: Rendre une cellule obligatoire

    If Cells(1, 2).Value = "" Then
        MsgBox "Cell B1 requires user input", vbInformation, "Kutools for Excel"
        Cancel = True
    End If

doc mandantory entrer 1

3. Ensuite, enregistrez ce code et fermez cette fenêtre. Maintenant, si la cellule B1 est vide lorsque vous fermez le classeur, la boîte de dialogue ci-dessous apparaîtra pour vous rappeler d'entrer quelque chose dans B1. Voir la capture d'écran:
doc mandantory entrer 2

Pointe: Vous pouvez changer la cellule B1 à d'autres cellules que vous voulez.

doc télécharger 1



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Shea · 1 years ago
    Is there any way that I can Required cell f4 and F5 have data before closing or saving?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Just change B1 to F4 and F5 in the textbox to remind users.
  • To post as a guest, your comment is unpublished.
    zwaenepoel · 1 years ago
    Hello, thank you for this formula, it works!

    However, now I have created a template in which several cells are mandatory to fill out. But after creating the template and entering the macro, I cannot close it, because I have to fill out the cells :) So, I cannot send out a template...(where the mandatory cells must still be empty)


    Can you help me?

    Thanks!
  • To post as a guest, your comment is unpublished.
    Shabaaz · 1 years ago
    Did you ever fined an answer to this?
  • To post as a guest, your comment is unpublished.
    ashley · 2 years ago
    how do i make column D16-D300 mandatory if column B16-300 has values? I used the code below for row 16 and tried variations but it is not working. any help is greatly appreciated!


    'us business as a mandatory field- need to fix if none are there and window pops up

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Step 1: Check to see if Cell A1 is blank
    If Sheets("Sensitive Leave Tracker").Range("B16").Value "" And Sheets("Sensitive Leave Tracker").Range("D16").Value = "" Then

    'Step 2: Blank: cancel the Close and tell the user
    Cancel = True
    MsgBox "Cant close field required"
    'Step 3: Not Blank; Save and Close
    Else
    ActiveWorkbook.Close SaveChanges:=True

    End If
    End Sub
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hello, sorry to reply so late. Here is the macro code you may be need. If it works, please let me know. Thanks!

      If Application.WorksheetFunction.CountA(Range("B16:B300")) > 0 Then

      If Application.WorksheetFunction.CountA(Range("D16:D300")) <> Range("D16:D300").Count Then

      MsgBox "Cell D16:D300 requires user input", vbInformation, "Kutools for Excel"

      Cancel = True

      End If

      End If