interdire l'excecusion d'une macro

[fenec]

bonjour a tous
partageant un classeur,j'aurais voulu savoir si en plus de demander la confirmation de la suppression d'enregistrement il serait en plus possible de demander un mot de passe afin que je sois le seul a pouvoir excecuter la macro
si quelqu'un a une idée merci d'avance


Sub suppression_enregistrement()

If [param_no_ligne] = 0 Then Exit Sub
If MsgBox("confirmation de la suppression d'enregistrement", vbYesNo, "suppression") = vbYes Then
Sheets("BD").Rows([param_no_ligne] + 1).Delete Shift:=xlUp
If [nb_enregistrments_bd] < [param_no_ligne] Then [param_no_ligne] = [param_no_ligne] - 1
End If
End Sub

 

[Paritec]

Re : interdire l'excecusion d'une macro

bonjour fenec
tu remplaces msgbox "Macro2" par ta macro
a+
papou 🙂

Sub macro2()
          Dim q$
          q = Application.InputBox("entrer le mot de passe")
          If q <> "toto" Then Exit Sub
            MsgBox "Macro2"
          End Sub

 

[Paritec]

Re : interdire l'excecusion d'une macro

Re
Voilà la macro au complet si des fois tu sais pas le faire tu remplaces toto par ce que tu veux
a+
papou 🙂

Sub suppression_enregistrement()
Dim q$
          q = Application.InputBox("entrer le mot de passe")
          If q <> "toto" Then Exit Sub
If [param_no_ligne] = 0 Then Exit Sub
If MsgBox("confirmation de la suppression d'enregistrement", vbYesNo, "suppression") = vbYes Then
    Sheets("BD").Rows([param_no_ligne] + 1).Delete Shift:=xlUp
    If [nb_enregistrments_bd] < [param_no_ligne] Then [param_no_ligne] = [param_no_ligne] - 1
End If
End Sub

 

[fenec]

Re : interdire l'excecusion d'une macro

merci beaucoup paritec
super et rapide
mais encore besoin de toi pour la meme chose ou presque car j'ai essaye de faire le meme pour cette macro mais cela ne marche pas

Sub Modification()
'
' Modification Macro
'
'

'
Range("A2:BA2").Select
Selection.Copy
Sheets("BD").Select
Range("A" & [param_no_ligne] + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("CHARGER FDM").Select
Range("D5").Select
Application.CutCopyMode = False
Range("D7😀9").Select
Selection.ClearContents
Range("D13😀37").Select
Selection.ClearContents
Range("F23:S23").Select
Selection.ClearContents
Range("H28:Q28").Select
Selection.ClearContents
Range("H30:Q30").Select
Selection.ClearContents
Range("H32:Q32").Select
Selection.ClearContents
Range("F37:I37").Select
Selection.ClearContents
Range("M36").Select

 

[fenec]

Re : interdire l'excecusion d'une macro

pas de reponse mais merci encore a paritec
j'ai reussi il fallait ajouter msgbox
pb resolu