Excel et macros

Mel -  
Bonjour,

Je souhaiterais savoir s'il y aurait un moyen de verrouiller une feuille excel sans verrouiller ma macro. En effet, quand je verrouille ma feuille de sorte à ce que les utilisateurs ne puissent modifier les données, ma macro ne fonctionne plus. Merci d'avance pour vos réponse.

Mel
Configuration: Windows XP
Internet Explorer 6.0

2 réponses

  1. onesdf
    Salut,

    Il suffit que tu modifies ta macro de manière à ce quelle enlève puis remette la protection de ta feuille.

    Sheets("Feuil1").Protect "secret"

    Sheets("Feuil1").Unprotect "secret"
    1. Mel
      Quand j'essais d'appliquer tes instructions, un message d'erreur apparaît : "erreur de compilation, instruction incorrecte à l'intérieur d'une procédure". Où dois-je placer exactement Sheets("Feuil1").Protect "secret" et Sheets("Feuil1").Unprotect "secret"?
    2. onesdf
      @MelIl faut que tu remplaces "secret" par le mot de passe de ta feuille
    4. onesdf
      @MelPeut-on voir le code de la macro s'il n'est pas secret défense ?
    5. Mel
      @onesdfVoilà ma macro :

      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      Dim Col As String, nCol As Integer, Cherche As String
      On Error GoTo Fin
      nCol = ActiveCell.Column
      Col = Chr(nCol + 64)

      'valeur cherchée dans cette colonne
      Cherche = InputBox("Valeur Cherchée ?")

      'rien ou click sur Annuler = on stope
      If Cherche = "" Then Exit Sub

      Selection.AutoFilter Field:=nCol, Criteria1:="=*" & Cherche & "*", Operator:=xlAnd

      Exit Sub
      Fin:
      MsgBox "Excel n'a pas pu trouver la liste à filtrer", vbInformation
      End Sub
  2. lermite222 Contributeur
    Bonjour,
    je me permet une petite intervention, mais il me semble que tu a inverser les lignes...

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Col As String, nCol As Integer, Cherche As String
    On Error GoTo Fin
    ActiveSheet.Unprotect
    .........
    ...........
    ActiveSheet.protect
    End sub
    A+
    1. onesdf
      T'as raison, je vais reprendre un café et ca ira mieux