Astuces Excel
  1. Astuces Excel
  3. Comment verrouiller entre les lignes dans excel vba
Intereting Posts
Type MIME XLSX (depuis LibreOffice) Quelle est la meilleure façon de lire à partir du file Excel sans perdre de données? Vb.net Excel VBA pour dupliquer et compléter le model par défaut en fonction du nombre de lignes Python, conversion des degrés degrés minutes secondes en degrés décimaux en .csv avec des milliers d'loggings Reverse Index / Match – ou – sauter 1 cellule dans Index / Match Vous cherchez à intégrer excel dans html? Formatage conditionnel – Obtenir des cellules à references correctement Exportation de tables HTML multiples sur une seule feuille sur .xlsx (alasql) Insertion d'un espace dans une string de text Préparation d'un directory de files PHPExcel définit les "colors récentes" Copie de plusieurs files sélectionnés par user (via filedialog) dans un dossier nouvellement créé Impossible d'imprimer les valeurs du file Excel Comment arrêter l'itération en Java en utilisant Apache POI pour une boucle pour extraire le mois des données C #: Feuille de calcul Excel à la table pivotante à l'aide d'Open XML?

Comment verrouiller entre les lignes dans excel vba

Je veux verrouiller entre les lignes de la feuille d'excel de la ligne en fonction de la valeur des deux colonnes, j'ai le code suivant avec moi, mais cela rend la feuille entière protégée.
le code est:

il y a un autre problème lorsque la boucle va en autre partie, il "incapable de définir la propriété verrouillée de la class de plage" le code est: 

Do While xlsht.Cells(i, 1) <> vbNullSsortingng If (CStr(xlsht.Cells(i, 54).Value) <> "" And (CStr(Format(xlsht.Cells(i, 55).Value, "dd-MMM-yyyy")) = CStr(Format(Now, "dd-MMM-yyyy")))) Then .Cells.Locked = False .Range("A" & i & " : " & "BH" & i).Cells.Locked = True .Range("A" & i & " : " & "BH" & i).Interior.Color = RGB(255, 255, 0) .Protect Password:=admin Else .Cells.Locked = False .Range("A" & i & " : " & "AC" & i).Cells.Locked = True .Range("AE" & i & " : " & "AT" & i).Cells.Locked = True .Range("BB" & i & " : " & "BH" & i).Cells.Locked = True .Protect Password:=admin End If i = i + 1 Loop End With

vous pouvez être après quelque chose comme ceci: 

  Dim i As Long i = 1 With Worksheets("mySheetName") '<--| change "mySheetName" to your actual sheet name Do While .Cells(i, 1) <> "" If (.Cells(i, 54).Value = "abc" And .Cells(i, 55).Value = "def") Then Intersect(.Range("A:BH"), .Rows(i)).Locked = True i = i + 1 Loop .Protect Password:="admin" End With

Par défaut, la feuille entière est verrouillée (propriété d'une plage ou d'une cellule).

Et vous pouvez seulement protéger une feuille ENTIER.

Vous devrez alors retirer le rest de la feuille! 

 i = 1 With xlsht .Unprotect Password:=admin .Cells.Locked = False Do While xlsht(i, 1) <> vbNullSsortingng If .Cells(i, 54).Values = "abc" And .Cells(i, 55).Values = "def" Then 'here is checking the column depends the row is get lock or not .Range("A" & i & ":BH" & i).Cells.Locked = True i = i + 1 End If Loop .Protect Password:=admin End With 'xlsht

Deuxième question 

 i = 1 With xlsht .Unprotect Password:=admin .Cells.Locked = False Do While .Cells(i, 1).Value <> vbNullSsortingng If CStr(.Cells(i, 54).Value) <> vbNullSsortingng And CDate(.Cells(i, 55).Value) = Date Then With .Range("A" & i & ":BH" & i) .Cells.Locked = True .Interior.Color = RGB(255, 255, 0) End With '.Range("A" & i & ":BH" & i) Else .Range("A" & i & ":AC" & i).Cells.Locked = True .Range("AE" & i & ":AT" & i).Cells.Locked = True .Range("BB" & i & ":BH" & i).Cells.Locked = True End If i = i + 1 Loop .Protect Password:=admin End With 'xlsht