bloquer des cellules en ecriture par macro

[pouty]

Bonjour au forum,
je coinçe au niveau d'une macro par selection de cellules pour empécher la saisie .
J'ai un fichier ou on doit ecrire asbsolument dans des cellules blanches et pour eviter l'erreur bloquer les autres cellules.Comment puije procéder pour réaliser cette macro.
Merci pour votre aide.

 

[Paf]

Re : bloquer des cellules en ecriture par macro

Bonjour,

faut-il absolument interdire par macro ?

Si non, sélectionner les plages modifiables,
puis : déverrouiller ces cellules
puis : protéger la feuille
étant en 2003, je ne connais pas la procédure en 2007.

seules les cellules "déverouillées" seront modifiables

A+

 

[Staple1600]

Re : bloquer des cellules en ecriture par macro

Bonjour à tous

En complément de la réponse de Paf
Déverrouiller des zones spécifiques d
Protéger les éléments d

 

[JCGL]

Re : bloquer des cellules en ecriture par macro

Bonjour à tous,

Peux-tu essayer ceci associé à ton bouton :

Sub Efface()
    ActiveSheet.Unprotect
    Cells.Locked = True
    With Range("B3:B20,D3:D20,F3:F20,H3:H20,J3:J20,L3:L20,N3:N20,P3:P20")
        .Locked = False
        .FormulaHidden = False
        .ClearContents
        Range("A1").Select
    End With
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

A+ à tous

 

[pouty]

Re : bloquer des cellules en ecriture par macro

Merci pour vos réponse la macro de JCGL fonctionne bien mais bloque ma macro doublons :erreur d'execution 1004
Voici le code de la macron doublons :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim plage As Range, n&, v, a1$, a2$
With Rows("3:" & Rows.Count)
.FormatConditions.Delete 'RAZ
.ClearComments
Set plage = Intersect(.Cells, Me.UsedRange)
End With
If plage Is Nothing Or ActiveCell = "" Then Exit Sub
If Intersect(ActiveCell, plage) Is Nothing Then Exit Sub
Cancel = True
With plage
n = Application.CountIf(.Cells, ActiveCell)
If n > 1 Then
v = Val(Application.Version)
a1 = IIf(v > 12, .Cells(1), ActiveCell).Address(0, 0) 'reférence relative
a2 = ActiveCell.Address 'référence absolue
.FormatConditions.Add xlExpression, _
Formula1:="=(" & a1 & "<>"""")*(" & a1 & "=" & a2 & ")"
.FormatConditions(1).Interior.ColorIndex = 6 'jaune
With ActiveCell.AddComment(n & " doublons")
With .Shape.TextFrame
.Characters.Font.Size = 11
.Characters.Font.ColorIndex = 2 'blanc
.Characters.Font.Bold = True 'gras
.AutoSize = True
.Parent.Fill.ForeColor.SchemeColor = 8 'fond noir
End With
.Visible = True
End With
End If
End With
End Sub

comment l'adapter par rapport a la la macro de JCGL
Merci pour vos réponses.

 

[pouty]

Re : bloquer des cellules en ecriture par macro

bonsoir au forum,
je reviens vers vous car j'ai le soucis d'une macro doublons qui ne fonctionne avec cette macro dans mon fichier.


Sub Efface()
ActiveSheet.Unprotect
Cells.Locked = True
With Range("B3:B20,D320,F3:F20,H3:H20,J3:J20,L3:L20,N3:N20,P320")
.Locked = False
.FormulaHidden = False
.ClearContents
Range("A1").Select
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

et la mcro qui ne fonctionne plus:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim plage As Range, n&, v, a1$, a2$
With Rows("3:" & Rows.Count)
.FormatConditions.Delete 'RAZ
.ClearComments
Set plage = Intersect(.Cells, Me.UsedRange)
End With
If plage Is Nothing Or ActiveCell = "" Then Exit Sub
If Intersect(ActiveCell, plage) Is Nothing Then Exit Sub
Cancel = True
With plage
n = Application.CountIf(.Cells, ActiveCell)
If n > 1 Then
v = Val(Application.Version)
a1 = IIf(v > 12, .Cells(1), ActiveCell).Address(0, 0) 'reférence relative
a2 = ActiveCell.Address 'référence absolue
.FormatConditions.Add xlExpression, _
Formula1:="=(" & a1 & "<>"""")*(" & a1 & "=" & a2 & ")"
.FormatConditions(1).Interior.ColorIndex = 6 'jaune
With ActiveCell.AddComment(n & " doublons")
With .Shape.TextFrame
.Characters.Font.Size = 11
.Characters.Font.ColorIndex = 2 'blanc
.Characters.Font.Bold = True 'gras
.AutoSize = True
.Parent.Fill.ForeColor.SchemeColor = 8 'fond noir
End With
.Visible = True
End With
End If
End With
End Sub

Comment puije l'adapter avec l'autre macro pour qu'elle fonctionne toutes les deux?

Merci pour votre aide