Comment rétablir Excel suite à une macro malveillante?
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:
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:
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:
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
