Modifier le format d'une ligne sur un document protégé

[fredcop84]

Bonjour

Je souhaite pouvoir modifier les hauteurs de ligne sur un document protégé.

J'ai réussi à récupérer sur le forum (merci le forum) le code suivant qui permet à un utilisateur d'ajouter des lignes en recopiant les caratéristiques des lignes précedentes ou de pouvoir supprimer des lignes.

Cependant dès qu'on utilise l'un des boutons il est impossible de modifier la hauteur des lignes!
Je souhaite que l'utilisateur ne puisse pas modifier les cellules protégées.

Je ne connais pas le langage VBA, mes compétences dans ce domaine se limite au "copié - collé"

Merci d'avance de votre aide



Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "bat"
Application.ScreenUpdating = False
ActiveCell(2).Resize(1).EntireRow.Insert
ActiveCell(1).EntireRow.Copy ActiveCell(2).Resize(1).EntireRow
On Error Resume Next 'au cas où il n'y ait pas de constantes
ActiveCell(2).Resize(1).EntireRow. _
SpecialCells(xlConstants).ClearContents
ActiveSheet.Protect "bat"

End Sub




Private Sub CommandButton2_Click()
ActiveSheet.Unprotect "bat"
ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete
ActiveSheet.Protect "bat"
End Sub

 

[gilbert_RGI]

Re : Modifier le format d'une ligne sur un document protégé

Bonjour

à tester

pour lancer la macro Alt + F8 puis selectionner la macro puis cliquer sur executer 🙄

Sub change_ligne_colonne()

With ActiveSheet
.Unprotect "bat"
    .Rows("4:4").RowHeight = 91.5
    .Columns("A:A").ColumnWidth = 40.71
.Protect "bat"
End With
End Sub

 

[gilbert_RGI]

Re : Modifier le format d'une ligne sur un document protégé

Pour toutes les lignes et colonnes

Sub change_toutes_lignes_colonnes()
    With ActiveSheet
        .Unprotect "bat"
        Cells.Select
        Selection.ColumnWidth = 17.29
        Selection.RowHeight = 53.25
        Range("A1").Select
        .Protect "bat"
    End With
End Sub

 

[fredcop84]

Re : Modifier le format d'une ligne sur un document protégé

Bonjour

Merci pour la réponse.

N'ayant pas très bien formulé ma demande,je joins mon document pour plus de précision de ma demande.

En fait, je souhaite que l'utilisateur puisse modifier la hauteur des lignes après avoir inséré ou supprimer des lignes via les 2 boutons.