Discussion :

[progheure]

Bonjour, j'ai ceci dans mon thiworkbook:

Code :

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

1
2
3
4
5
6
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    With Application
        .CellDragAndDrop = False
        .CutCopyMode = False 'Clear clipboard
    End With
End Sub

Je voudrais que ce code soit annulé dans le code d'un userform
Est ce possible?
Meric à vous

[patricktoulon]

Bonjour
a l'initialyse de l'userform peut etre tout simplement

Code :

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

1
2
3
4
With Application
        .CellDragAndDrop = true
        .CutCopyMode = true'Clear clipboard
    End With

[SfJ5Rpw8]

...je voudrais que ce code soit annulé dans le code d'un userform
Est ce possible?
Meric à vous

Bonjour,
en quoi ce code te gêne-t-il dans ton UserForm ?

[progheure]

J'ai essayé ce que tu as dit patrick ca ne fonctionne pas.

Ca me bloque parce que les utilisateurs ne doivent pas faire de copier coller et ca vide le presse papier en changeant de cellule donc quand je change de cellule je peux pas coller

[SfJ5Rpw8]

Oui mais que vient faire l'userform ici ? as tu accès à tes cellules lorsque l'userform est ouvert ?

[progheure]

L'userform me permet d'afficher toutes les feuilles masquées puis de le déverrouiller.

Je voudrais ensuite pouvoir copier coller librement mais dès que je change de cellule le presse papier se vide.

[SfJ5Rpw8]

tu rajoute une condition dans ton Workbook_SheetSelectionChange .. qui conditionne l'exécution de ton code en fonction de l'état de ta protection ..


Quel est le code utilisé pour la protection/ déprotection ?

[Philippe Tulliez]

Bonjour,

L'userform me permet d'afficher toutes les feuilles masquées puis de le déverrouiller.
Je voudrais ensuite pouvoir copier coller librement mais dès que je change de cellule le presse papier se vide.

Ce n'est pas très clair.
Si tu fais un Copier/Coller avec une instruction VBA, il n'y a pas de problème. Bien entendu sans passer par un Select qui est de toute manière à proscrire dans une procédure VBA.

Code :

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

Range("A9:F19").Copy Range("K4")

[progheure]

Le copier coller se fait pas en VBA philippe.

Les salariés ouvrent le fichier ils double clic ca rentre l'heure selon conditions enregistre et ferme.

Par contre comme c'est des boulets parfois ils clic à la mauvaise date.
Donc j'ai fait un bouton avec userform pour déverrouiller toutes les pages, afficher toutes les pages, et pouvoir ensuite apporter les modifs manuellement.

sauf que quand je fais copier, que je change de cellule et que je veux coller ca a vidé le presse papier.

Je joinds le fichier fait si vous pouvez trouver plus facilement

Ne pas rire de cette programmation serait super sympa LOL
Philippe tu y retrouvera une partie de ton code super que tu m'a trouvé

Code 26032012

[SfJ5Rpw8]

...
Quel est le code utilisé pour la protection/ dé-protection ?

[progheure]

Le code du userform:

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
24
25
26
27
28
29
30
31
32
33
34
Private Sub CommandButton1_Click()
With Application
        .CellDragAndDrop = True
        .CutCopyMode = True 'Clear clipboard
    End With
If TextBox1.Value = "" Then
 
 
Dim Onglets As Worksheet
For Each Onglets In Worksheets
Onglets.Visible = True
Next Onglets
 
Dim oCtrl As Office.CommandBarControl
     For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
            oCtrl.Enabled = True
     Next oCtrl
 
     For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
            oCtrl.Enabled = True
     Next oCtrl
 
     Application.CellDragAndDrop = True
     Application.CommandBars("Ply").Enabled = True
     Application.OnKey "^v"
     Application.CellDragAndDrop = True
     Application.CutCopyMode = True 'Clear clipboard
MsgBox "Les feuilles sont déverouillées"
 
Else
MsgBox "Le mot de passe saisi n'est pas correct"
End If
Unload Me
End Sub

J'ai ceci dans le thisworkbook:

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
24
25
26
27
28
29
30
31
32
33
34
35
Sub Workbook_DeActivate()
 
Dim oCtrl As Office.CommandBarControl
     For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
            oCtrl.Enabled = False
     Next oCtrl
 
     For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
            oCtrl.Enabled = False
     Next oCtrl
 
     Application.CellDragAndDrop = False
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    With Application
        .CellDragAndDrop = False
        .CutCopyMode = False 'Clear clipboard
    End With
End Sub
 
'enregistre avant de fermer
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Protect Password:=""
Next Feuil
For Each w In Application.Workbooks
w.Save
Next w
Application.CommandBars("Ply").Enabled = True
Application.OnKey "^v"
Application.Quit
End Sub

[SfJ5Rpw8]

Tiens essai :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  If Sh.ProtectContents Then
    With Application
        .CellDragAndDrop = False
        .CutCopyMode = False 'Clear clipboard
    End With
 End If
End Sub

[NVCfrm]

bonjour,
le piège du for each éviedemment . L'évènement SelectionChange est générée à chaque itération.
Le plus simple serait de désactiver la gestion d'évènement avant la boucle et la réactiver à la fin.
Un condition if ; else serait bien également dans ton WorkBook_SelectionChange.

[progheure]

Parfait.
Merci à toi