Bloquer l'accès aux cellules sans protéger la feuille

[olive323]

Bonjour à tous

j'ai enfin trouvé comment bloquer les cellules sans protéger la feuille.

donc avec le feuille nommé "base" en laissant accessible les colonnes A et B

placer le code dans Thisworkbook

Private Sub Workbook_Open()
With Sheets("base")
.EnableSelection = xlNoRestrictions
.ScrollArea = "a:b"
.ScrollArea = "a:b"
End With
ActiveWindow.DisplayWorkbookTabs = False
End Sub


Mes questions sont comment je peux appliquer ce code sur toutes les feuilles du classeur?


Et comment désactiver ce blocage par le biais d'un bouton de macro

Merci de votre aide

cordialement

olive323

 

[DoubleZero]

Re : Bloquer l'accès aux cellules sans protéger la feuille

Bonjour, olive323, le Forum,

Pour l’application du code sur toutes les feuilles :

Private Sub Workbook_Open()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Worksheets
    ws.ScrollArea = "a:b"
    ws.EnableSelection = xlNoRestrictions
Next
ActiveWindow.DisplayWorkbookTabs = False
Application.ScreenUpdating = True
End Sub

Pour la désactivation du blocage par le biais d’un bouton, placer ces deux procédures dans un module :

Sub Toto()
  ActiveSheet.ScrollArea = ""
End Sub

Sub AjouterLesBoutons()
    For Each sh In ThisWorkbook.Worksheets
        With sh
            With .Buttons.Add(432, 26.4, 81, 25.2)
                .Characters.Text = "Macro Toto !"
                With .Font
                    .Name = "Arial"
                    .FontStyle = "Gras italique"
                    .Size = 10
                    .ColorIndex = 3
                End With
                .OnAction = "Toto"
            End With
        End With
    Next
End Sub

Lancer, par la suite, la macro AjouterLesBoutons, issue de cette discussion 🙂, laquelle placera, sur chaque onglet du classeur, un bouton permettant de débloquer les cellules.

A bientôt 🙂