Comment verrouiller les données dans une cellule Excel avec vba

Je veux arrêter d'autres d'éditer le contenu de la cellule dans la feuille excel en utilisant VBA. Est-il possible de faire cela?

source d'informationauteur raam

  1. 23

    Vous pouvez d'abord choisir les cellules que vous ne voulez pas être protégé, d'être modifiable par l'utilisateur) par la mise en l'état Verrouillé de à Faux:

    Worksheets("Sheet1").Range("B2:C3").Locked = False

    Ensuite, vous pouvez protéger la feuille, et toutes les autres cellules seront protégés.
    Le code pour faire cela, tout en permettant à votre code VBA pour modifier les cellules est:

    Worksheets("Sheet1").Protect UserInterfaceOnly:=True

    ou

    Call Worksheets("Sheet1").Protect(UserInterfaceOnly:=True)
  2. 3

    Essayez d'utiliser le Worksheet.Protect méthode, comme suit:

    Sub ProtectActiveSheet()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    ws.Protect DrawingObjects:=True, Contents:=True, _
        Scenarios:=True, Password="SamplePassword"
End Sub

    Cependant, vous devez être préoccupé, y compris le mot de passe dans votre code VBA. Vous n'avez pas nécessairement besoin d'un mot de passe si vous êtes en essayant de mettre en place une simple barrière qui maintient un utilisateur de faire des petites erreurs comme la suppression des formules, etc.

    Aussi, si vous voulez voir comment faire certaines choses en VBA dans Excel, essayez d'enregistrer une Macro et en regardant le code qu'il génère. C'est une bonne façon de débuter en VBA.

  3. 2

    Disons, par exemple, dans un cas, si vous voulez de verrouillage des cellules de la plage A1 à I50 puis ci-dessous le code:

    Worksheets("Enter your sheet name").Range("A1:I50").Locked = True
ActiveSheet.Protect Password:="Enter your Password"

    Dans un autre cas, si vous avez déjà une feuille protégée puis suivez ci-dessous le code:

    ActiveSheet.Unprotect Password:="Enter your Password"
Worksheets("Enter your sheet name").Range("A1:I50").Locked = True
ActiveSheet.Protect Password:="Enter your Password"
  4. 0

    Vous pouvez aussi le faire sur la feuille de calcul niveau capturé dans la feuille de calcul de l'événement de changement. Si cela vous convient le mieux. Permet la dynamique de verrouillage basé sur des valeurs, critères, ect...

    Private Sub Worksheet_Change(ByVal Target As Range)

    'set your criteria here
    If Target.Column = 1 Then

        'must disable events if you change the sheet as it will
        'continually trigger the change event
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True

        MsgBox "You cannot do that!"
    End If
End Sub
  5. 0
    Sub LockCells()

Range("A1:A1").Select

Selection.Locked = True

Selection.FormulaHidden = False

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= False, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

End Sub