Annulation d'un code thisworkbook dans un userform

Version imprimable

Bonjour, j'ai ceci dans mon thiworkbook:
Code:

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

heu...

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

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

02/05/2013, 15h16
SfJ5Rpw8

Citation:

Envoyé par progheure

...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 ?
02/05/2013, 15h49
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
02/05/2013, 15h52
SfJ5Rpw8

Oui mais que vient faire l'userform ici ? as tu accès à tes cellules lorsque l'userform est ouvert ?
02/05/2013, 16h35
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.
02/05/2013, 16h47
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 ?
02/05/2013, 16h49
Philippe Tulliez

Bonjour,

Citation:

Envoyé par 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.

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:

Range("A9:F19").Copy Range("K4")
02/05/2013, 17h11
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
02/05/2013, 17h23
SfJ5Rpw8

Citation:

Envoyé par bbil

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

Le code du userform:

Code:

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:

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

Tiens essai :

Code:

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

02/05/2013, 17h55
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.
02/05/2013, 17h58
progheure

Parfait.
Merci à toi