Discussion :

[mobiclick]

Bonjour le forum,
J'ai fai une grosse gaffe;J'ai ramassé sur le web des macros qui devaient m'empêcher de supprimer les feuilles de mon classeur...Effectivement ces codes m'interdisent de supprimer mes fuilles ,mais aussi les feuille de tous les classeurs;pourtant je les ai insérées dans un seul classeur. J'ai du effacer ces codes du classeur en question mais ça n'a rien donné.J'ai redemarré Vista ,pareil...J'ai ensuite désinstallé office 2007 pour le réinstaller mais cette fois j'ai ce message d'erreur :Visual Basic Error 400.Je ne sais plus quoi faire?!
Voici les codes
Dans le code de la feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Activate()
Dim CB As CommandBar
Dim Ctrl As CommandBarControl
For Each CB In Application.CommandBars
Set Ctrl = CB.FindControl(ID:=847, recursive:=True)
If Not Ctrl Is Nothing Then
Ctrl.OnAction = "RefuseToDelete"
Ctrl.State = msoButtonUp
End If
Next
End Sub

Tjrs dans le code de la feuille

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Deactivate()
Dim CB As CommandBar
Dim Ctrl As CommandBarControl
For Each CB In Application.CommandBars
Set Ctrl = CB.FindControl(ID:=847, recursive:=True)
If Not Ctrl Is Nothing Then Ctrl.OnAction = ""
Next
End Sub

Et ce code dans un module standard:

Code :

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

1
2
3
4
5
6
7
Public Sub RefuseToDelete()
 
MsgBox "This help sheet should not be deleted!", _
Buttons:=vbExclamation, _
Title:="Cannot Deelete Help!"
 
End Sub

Merci de votre aide

[laetitia]

bonjour mobiclick fait une recherche sur!!!

Code :

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

application.Undo

ps j'ai repondu trop rapidement dans ton cas mon code sert a rien je me suis fie seulement au titre de ton post si un moderateur pouvait supprimer mon message!!

as tu essaye de faire une restauration a une date ulterieur??


souvent les modif se font au niveau de la base de registre donc pas simple a moins que tu as une sauvegarde de cette base ce que je doute!! peu de personnes le font....

[mobiclick]

Merci pour la réponse
Eventuellement ,si j'opte pour la restauration du système,est-ce qu'il y a des risques pour mon ordinateur,surtout que je l'ai déjà fait et ça n'a posé aucun problème.Autrement dit,est-ce que c'est déconseillé de restaurer le système plusieurs fois.J'ai un Toshiba que j'ai restauré déjà avec HDDRecovery . Je peux aussi le faire avec les dvd de restauration que j'ai créé avec Toshiba Recovery Disc Creator.Qu'en pensez-vous ?

[laetitia]

re, tu prends aucun risque si tu fais une restauration a une date anterieur tu perdras seulement les dernieres données de ton pc mise a jour ect...tu devrais conserver tes fichiers excel

[mobiclick]

Merci laetitia; j'ai fait une restauration du système à une date antérieure et ça marché parfaitement... mille merci