Microsoft 365 Aide pour terminer un code Vba Excel

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion NONO14
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

NONO14

XLDnaute Impliqué
Bonjour à toutes et à tous

J'ai ce commencement de code qui me permet après un clic sur un bouton de pouvoir modifier les cellules du tableau si la saisie d'un mot de passe "falaise" est ok.
Cependant je souhaiterai interdire la modification des lignes 1 à 4. Comment puis-je procéder s'il vous plait ?
Merci par avance pour votre aide
Il s'agit ici du code du formulaire mot de passe.

VB: 
Private Sub CommandButton1_Click()
  If T1.Value = "falaise" Then
    Load UfMDP
    Range(D5).Select
    Exit Sub
  End If
  Unload Me
  MsgBox "Mot de passe erroné - Recommencez", vbCritical, "Attention : "
      Cells(1, 1).Select
End Sub
 
Solution
job75
NONO14 à dit:
J'ai testé le fichier modifié et je rencontre un soucis. A l'ouverture du fichier, je ne peux plus saisir dans le tableau de la feuille "Saisie", toutes les cellules sont verrouillées.
Il faut que je puisse saisir dans les cellules vides
Cliquez pour agrandir...
Il suffit de déverrouiller les cellules vides, dans ThisWorkbook :
VB: 
Private Sub Workbook_Open()
With Sheets("Saisie")
    .Protect "falaise", UserInterfaceOnly:=True
    .EnableSelection = xlNoRestrictions
    .Cells.Locked = True
    .Rows("3:" & .Rows.Count).SpecialCells(xlCellTypeBlanks).Locked = False 'déverrouille les cellules vides
End With
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub
NONO14 à dit:
J'ai commis une erreur, seules les colonnes A et B sont...
Cliquez pour agrandir...
Trier par date Trier par votes
Bonjour à tous, bonjour herve62,

Merci pour votre aide, toutefois cela ne fonctionne pas correctement. En effet, après avoir tapé le mot de passe, le formulaire reste à l'écran, je suis obligé de cliquer sur le bouton "annuler" pour qu'il puisse se fermer.
Pour être plus clair voici la démarche que je souhaite :
- On clique sur le bouton "Effectuer une modification" - Feuille "Saisie"
- Le formulaire pour le mot de passe s'affiche à l'écran.
- On tape le mot de passe "falaise", le formulaire se ferme et c'est à ce moment là que doit apparaître le message d'avertissement "Les lignes 1 à 4 ne sont pas modifiables".

J'aurai du être plus précis dès le départ de ma demande. Toutes mes excuses.

En fait, j'ai simplement verrouillé les cellules qui doivent être inaccessibles, c'est tout bête.
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour NONO14, herve62, le forum,

D'abord dans ThisWorkbook :
VB: 
Private Sub Workbook_Open()
With Sheets("Saisie")
    .Protect "falaise", UserInterfaceOnly:=True
    .Cells.Locked = True
    .EnableSelection = xlNoRestrictions
End With
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub
Ensuite le code de l'UserForm "UfMDP" :
VB: 
Private Sub UserForm_Initialize()
SansCroix Me
End Sub

Private Sub CommandButton1_Click()
If T1 = "falaise" Then
    Sheets("Saisie").Range("5:" & Rows.Count).Locked = False
    Unload Me
    MsgBox "Vous pouvez modifier les cellules sous la ligne 4..."
Else
    MsgBox "Mot de passe erroné..."
    T1 = ""
    T1.SetFocus
End If
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub
A+
 

Pièces jointes

Vote positif 0 Vote négatif
job75 à dit:
Bonjour NONO14, herve62, le forum,

D'abord dans ThisWorkbook :
VB: 
Private Sub Workbook_Open()
With Sheets("Saisie")
    .Protect "falaise", UserInterfaceOnly:=True
    .Cells.Locked = True
    .EnableSelection = xlNoRestrictions
End With
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub
Ensuite le code de l'UserForm "UfMDP" :
VB: 
Private Sub UserForm_Initialize()
SansCroix Me
End Sub

Private Sub CommandButton1_Click()
If T1 = "falaise" Then
    Sheets("Saisie").Range("5:" & Rows.Count).Locked = False
    Unload Me
    MsgBox "Vous pouvez modifier les cellules sous la ligne 4..."
Else
    MsgBox "Mot de passe erroné..."
    T1 = ""
    T1.SetFocus
End If
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub
A+
Cliquez pour agrandir...
Bonjour job75,
Merci beaucoup pour votre code, ça fonctionne bien également. Si je peux me permettre une petite demande supplémentaire, je souhaiterai également que la colonne C de la feuille saisie soit verrouillée car il y a une formule de calcul dedans à moins qu'il y ait une possibilité avec Vba de faire une rechercheV à partir du code saisi en colonne D. Si l'on peut l'écrire ça en Vba alors plus de risque d'effacement.
Voici la formule des cellules de la colonne C :
VB: 
=SI(Saisie!$B5="";"";SI(ESTNA(RECHERCHEV(Saisie!$B5;Feuil2!$A$2:$B$30;2;FAUX))=VRAI;"Code introuvable";RECHERCHEV(Saisie!$B5;Feuil2!$A$2:$B$30;2;FAUX)))
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour.
Dans le fond, cette Sub à mettre derrière la Sub Aleatoire ferait le job :
VB: 
Sub MettreLesNoms()
   Dim LAt As New ListeAléat, TCodes(), TNoms(), TRésu(), L&, P&
   Rnd -1: Randomize 0.5
   LAt.Init 2000
   TCodes = Feuil4.[B5].Resize(Feuil4.[B2002].End(xlUp).Row - 4).Value
   TNoms = Feuil2.[B2:B2001].Value
   ReDim TRésu(1 To UBound(TCodes, 1), 1 To 1)
   For L = 1 To UBound(TRésu, 1)
      P = LAt.Pos(Mid$(TCodes(L, 1), 4) - 99)
      TRésu(L, 1) = TNoms(P, 1)
      Next L
   Feuil4.[C5].Resize(UBound(TRésu, 1)).Value = TRésu
   End Sub
 
Vote positif 0 Vote négatif
Je rencontre un autre problème, à l'ouverture du fichier je ne peux plus saisir dans la colonne B, celle du code agent et elle est essentielle. Par contre, une fois la saisie faite, on ne doit plus pouvoir la modifier, on ne doit pouvoir accéder qu'aux cellules vides de la colonne.
 
Vote positif 0 Vote négatif
NONO14 à dit:
je souhaiterai également que la colonne C de la feuille saisie soit verrouillée car il y a une formule de calcul dedans
Cliquez pour agrandir...
Vous deviez pouvoir trouver vous-même, dans l'UserForm :
VB: 
Private Sub CommandButton1_Click()
If T1 = "falaise" Then
    Sheets("Saisie").Range("5:" & Rows.Count).Locked = False
    Sheets("Saisie").Columns("C").Locked = True
    Unload Me
    MsgBox "Vous pouvez modifier les cellules sous la ligne 4 hors colonne C..."
Else
    MsgBox "Mot de passe erroné..."
    T1 = ""
    T1.SetFocus
End If
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
job75 à dit:
Vous deviez pouvoir trouver vous-même, dans l'UserForm :
VB: 
Private Sub CommandButton1_Click()
If T1 = "falaise" Then
    Sheets("Saisie").Range("5:" & Rows.Count).Locked = False
    Sheets("Saisie").Columns("C").Locked = True
    Unload Me
    MsgBox "Vous pouvez modifier les cellules sous la ligne 4 hors colonne C..."
Else
    MsgBox "Mot de passe erroné..."
    T1 = ""
    T1.SetFocus
End If
End Sub
Cliquez pour agrandir...
Bonjour à toutes et à tous,

Je reviens avec mon fichier pour un problème lié au code ci-dessous que je n'arrive pas à comprendre.
Lorsque je clique sur le bouton "Ouvrir le formulaire" dans la feuille Saisie, un menu s'affiche, et sur celui-ci je clique sur "Modifier une saisie de pointage". Le formulaire Mot de passe apparaît, je tape le mot de passe "falaise" et voici le message qui s'affiche "Erreur d'exécution 1004 - Impossible de définir la propriété Locked de la classe Range".
Le code se trouve dans UfMdP - Bouton "valider".
Pouvez-vous m'expliquer et m'aider à résoudre ce problème s'il vous plaît ?
Je vous en remercie par avance
Code: 
Private Sub CommandButton1_Click()
If T1 = "falaise" Then
    Sheets("Saisie").Range("3:" & Rows.Count).Locked = False
    Sheets("Saisie").Columns("C").Locked = True
    Unload Me
    MsgBox "Vous pouvez modifier les cellules sous la ligne 2 hors colonne C..."
Else
    MsgBox "Mot de passe erroné..."
    T1 = ""
    T1.SetFocus
End If
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Résolu(e)
Microsoft 365 Aide pour un code Vba
2 3
Réponses
32
Affichages
1 K
Nicolas JACQUIN
Nicolas JACQUIN
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
122
thunder23
thunder23
P
  • Résolu(e)
XL 2016 Excel code vba motus
Réponses
11
Affichages
116
papychat1
P
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
235
jalaba
J
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
101
fanch55
fanch55
Nicolas JACQUIN
  • Résolu(e)
XL 2021 Aide adaptation code vba pour complément
Réponses
7
Affichages
328
Nicolas JACQUIN
Nicolas JACQUIN
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
100
sylvanu
sylvanu
pascal21
  • Question Question
Microsoft 365 selectionner cellule via un combobox
Réponses
3
Affichages
53
job75
job75
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
95
Pierreavecunp
P
M
  • Question Question
XL 2016 liste déroulante formulaire vba excel
2
Réponses
20
Affichages
239
fanch55
fanch55
K
  • Question Question
Microsoft 365 création mot passe classique avec un code
Réponses
1
Affichages
298
Gégé-45550
Gégé-45550
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
425
Phil69970
Phil69970
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
415
Gégé-45550
Gégé-45550
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
607
Corentin26270
C
N
  • Question Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
245
Dranreb
Dranreb
N
  • Résolu(e)
Microsoft 365 Simplifier un code pour activer ou désactiver des CheckBox
6 7 8
Réponses
115
Affichages
3 K
ChTi160
ChTi160
cathodique
  • Question Question
XL 2010 Code de l'IA à corriger
2 3
Réponses
33
Affichages
2 K
cathodique
cathodique
N
  • Résolu(e)
Microsoft 365 Aide pour insertion nombre aléatoire
2
Réponses
22
Affichages
848
NONO14
N
oguruma
EXCEL :: RENAISSANCE d'une barre de progression des traitements
Réponses
2
Affichages
63
oguruma
oguruma
S
  • Question Question
Microsoft 365 Macro vba excel
Réponses
6
Affichages
469
patricktoulon
patricktoulon
Retour