Discussion :

[tamtam64]

Bonjour,

Je rencontre un problème et peut etre que certains l'ont rencontré avant moi.

J'ai un classeur ou mes feuilles sont protégées , seulement pour l'utilisateur avec UserInterfaceOnly:=True

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    'Protection des feuilles
Sub ProtectSheet(Mode As Boolean)
    Dim MySheet As Worksheet
 
    Application.ScreenUpdating = False
 
    If Mode Then
        For Each MySheet In Thisworkbook.Worksheets
            If MySheet.Name <> "Présentation" And MySheet.Name <> "UNITES" Then
                With MySheet
                    .EnableAutoFilter = True
                    .EnableOutlining = True
                    .Protect Contents:=True, UserInterfaceOnly:=True
                End With
            Else
                MySheet.Unprotect
            End If
        Next MySheet
    Else
        For Each MySheet In Thisworkbook.Worksheets
            MySheet.Unprotect
        Next MySheet
    End If

Probleme :
Ca fonctionne bien si on copie des valeurs dans la feuille protegée mais la fonction copy d'une plage dans une plage dans la feuille protégée ne fonctionne pas et un message d'erreur s'affiche comme quoi la feuille est en lecture seule et ou protégée.. etc.
C'est étrange non?
Bien sure je peux déproteger et copier mais j'aimerais comprendre pourquoi la fonction copy ne fonctionne pas ...

merci d'avance

[tamtam64]

Bonjour,

Il semblerait que une copy par valeur resolve le probleme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

copy.PasteSpecial xlPasteValues

Cordialement,