Bonjour, j'ai t=E9l=E9charg=E9 un fichier Excel : mh-protection=20
(de Michel Halderith, sur Excelabo) et depuis son=20
=E9x=E9cution, tous mes classeurs Excel sont v=E9rouill=E9s :=20
cellules, barres, onglets d=E9sactiv=E9s !
Je ne parviens donc plus =E0 utiliser Excel !
Help !!
Merci !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonjour Noël, As tu essayé de lancer la macro du deuxième bouton de ce classeur ?
Sub nerienverrouiller() 'Code de Michel Holderitz Application.ScreenUpdating = False ActiveWorkbook.Unprotect
For P = 1 To Sheets.Count Sheets(P).Visible = True Sheets(P).Select ActiveSheet.Unprotect 'activation des scrollbarres With ActiveWindow .DisplayHeadings = True .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True End With 'deverrouiller les cellules Columns("J:IV").Select Selection.EntireColumn.Hidden = False Rows("31:65536").Select Selection.EntireRow.Hidden = False Cells.Select
'activation des selections de cellules ActiveSheet.EnableSelection = xlNoRestrictions Next P
Sheets("Sheet1").Select 'activation des onglets des feuilles et des fenetres excel dans la taskbar de windows ActiveWindow.DisplayWorkbookTabs = True Application.ShowWindowsInTaskbar = True
'activation barre outils GestionBarreOutils False
'activation clavier Dim K, I As Integer On Error Resume Next For Each K In Array("^", "%", "+^", "+%", "^%", "+^%") For I = 32 To 255 Application.OnKey K & Chr$(I), "" Next I Next K
'activation des touches fonctions With Application For I = 1 To 12 If I = 2 Then Else .OnKey "{F" & I & "}" End If Next End With
'reactive copy/cut du click de droite Application.CommandBars("Cell").Reset Application.ScreenUpdating = True End Sub -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Noël" a écrit dans le message de news:1dddc01c423c5$a16978f0$ Bonjour, j'ai téléchargé un fichier Excel : mh-protection (de Michel Halderith, sur Excelabo) et depuis son éxécution, tous mes classeurs Excel sont vérouillés : cellules, barres, onglets désactivés ! Je ne parviens donc plus à utiliser Excel ! Help !! Merci !
Bonjour Noël,
As tu essayé de lancer la macro du deuxième bouton de ce classeur ?
Sub nerienverrouiller()
'Code de Michel Holderitz
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect
For P = 1 To Sheets.Count
Sheets(P).Visible = True
Sheets(P).Select
ActiveSheet.Unprotect
'activation des scrollbarres
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
'deverrouiller les cellules
Columns("J:IV").Select
Selection.EntireColumn.Hidden = False
Rows("31:65536").Select
Selection.EntireRow.Hidden = False
Cells.Select
'activation des selections de cellules
ActiveSheet.EnableSelection = xlNoRestrictions
Next P
Sheets("Sheet1").Select
'activation des onglets des feuilles et des fenetres excel dans la taskbar de windows
ActiveWindow.DisplayWorkbookTabs = True
Application.ShowWindowsInTaskbar = True
'activation barre outils
GestionBarreOutils False
'activation clavier
Dim K, I As Integer
On Error Resume Next
For Each K In Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255
Application.OnKey K & Chr$(I), ""
Next I
Next K
'activation des touches fonctions
With Application
For I = 1 To 12
If I = 2 Then
Else
.OnKey "{F" & I & "}"
End If
Next
End With
'reactive copy/cut du click de droite
Application.CommandBars("Cell").Reset
Application.ScreenUpdating = True
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Noël" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1dddc01c423c5$a16978f0$a101280a@phx.gbl...
Bonjour, j'ai téléchargé un fichier Excel : mh-protection
(de Michel Halderith, sur Excelabo) et depuis son
éxécution, tous mes classeurs Excel sont vérouillés :
cellules, barres, onglets désactivés !
Je ne parviens donc plus à utiliser Excel !
Help !!
Merci !
Bonjour Noël, As tu essayé de lancer la macro du deuxième bouton de ce classeur ?
Sub nerienverrouiller() 'Code de Michel Holderitz Application.ScreenUpdating = False ActiveWorkbook.Unprotect
For P = 1 To Sheets.Count Sheets(P).Visible = True Sheets(P).Select ActiveSheet.Unprotect 'activation des scrollbarres With ActiveWindow .DisplayHeadings = True .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True End With 'deverrouiller les cellules Columns("J:IV").Select Selection.EntireColumn.Hidden = False Rows("31:65536").Select Selection.EntireRow.Hidden = False Cells.Select
'activation des selections de cellules ActiveSheet.EnableSelection = xlNoRestrictions Next P
Sheets("Sheet1").Select 'activation des onglets des feuilles et des fenetres excel dans la taskbar de windows ActiveWindow.DisplayWorkbookTabs = True Application.ShowWindowsInTaskbar = True
'activation barre outils GestionBarreOutils False
'activation clavier Dim K, I As Integer On Error Resume Next For Each K In Array("^", "%", "+^", "+%", "^%", "+^%") For I = 32 To 255 Application.OnKey K & Chr$(I), "" Next I Next K
'activation des touches fonctions With Application For I = 1 To 12 If I = 2 Then Else .OnKey "{F" & I & "}" End If Next End With
'reactive copy/cut du click de droite Application.CommandBars("Cell").Reset Application.ScreenUpdating = True End Sub -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Noël" a écrit dans le message de news:1dddc01c423c5$a16978f0$ Bonjour, j'ai téléchargé un fichier Excel : mh-protection (de Michel Halderith, sur Excelabo) et depuis son éxécution, tous mes classeurs Excel sont vérouillés : cellules, barres, onglets désactivés ! Je ne parviens donc plus à utiliser Excel ! Help !! Merci !
oui, éffectivement, j'ai lancé la seconde macro, mais, cela n'est pas concluant. Tout est resté vérrouillé ! Merci !
-----Message d'origine----- Bonjour Noël, As tu essayé de lancer la macro du deuxième bouton de ce classeur ?
Sub nerienverrouiller() 'Code de Michel Holderitz Application.ScreenUpdating = False ActiveWorkbook.Unprotect
For P = 1 To Sheets.Count Sheets(P).Visible = True Sheets(P).Select ActiveSheet.Unprotect 'activation des scrollbarres With ActiveWindow .DisplayHeadings = True .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True End With 'deverrouiller les cellules Columns("J:IV").Select Selection.EntireColumn.Hidden = False Rows("31:65536").Select Selection.EntireRow.Hidden = False Cells.Select
'activation clavier Dim K, I As Integer On Error Resume Next For Each K In Array("^", "%", "+^", "+%", "^%", "+^%") For I = 32 To 255 Application.OnKey K & Chr$(I), "" Next I Next K
'activation des touches fonctions With Application For I = 1 To 12 If I = 2 Then Else .OnKey "{F" & I & "}" End If Next End With
'reactive copy/cut du click de droite Application.CommandBars("Cell").Reset Application.ScreenUpdating = True End Sub -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Noël" a écrit dans le message de
news:1dddc01c423c5$a16978f0$ Bonjour, j'ai téléchargé un fichier Excel : mh-protection (de Michel Halderith, sur Excelabo) et depuis son éxécution, tous mes classeurs Excel sont vérouillés : cellules, barres, onglets désactivés ! Je ne parviens donc plus à utiliser Excel ! Help !! Merci !
.
oui, éffectivement, j'ai lancé la seconde macro, mais,
cela n'est pas concluant. Tout est resté vérrouillé !
Merci !
-----Message d'origine-----
Bonjour Noël,
As tu essayé de lancer la macro du deuxième bouton de ce
classeur ?
Sub nerienverrouiller()
'Code de Michel Holderitz
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect
For P = 1 To Sheets.Count
Sheets(P).Visible = True
Sheets(P).Select
ActiveSheet.Unprotect
'activation des scrollbarres
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
'deverrouiller les cellules
Columns("J:IV").Select
Selection.EntireColumn.Hidden = False
Rows("31:65536").Select
Selection.EntireRow.Hidden = False
Cells.Select
'activation clavier
Dim K, I As Integer
On Error Resume Next
For Each K In Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255
Application.OnKey K & Chr$(I), ""
Next I
Next K
'activation des touches fonctions
With Application
For I = 1 To 12
If I = 2 Then
Else
.OnKey "{F" & I & "}"
End If
Next
End With
'reactive copy/cut du click de droite
Application.CommandBars("Cell").Reset
Application.ScreenUpdating = True
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Noël" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news:1dddc01c423c5$a16978f0$a101280a@phx.gbl...
Bonjour, j'ai téléchargé un fichier Excel : mh-protection
(de Michel Halderith, sur Excelabo) et depuis son
éxécution, tous mes classeurs Excel sont vérouillés :
cellules, barres, onglets désactivés !
Je ne parviens donc plus à utiliser Excel !
Help !!
Merci !
oui, éffectivement, j'ai lancé la seconde macro, mais, cela n'est pas concluant. Tout est resté vérrouillé ! Merci !
-----Message d'origine----- Bonjour Noël, As tu essayé de lancer la macro du deuxième bouton de ce classeur ?
Sub nerienverrouiller() 'Code de Michel Holderitz Application.ScreenUpdating = False ActiveWorkbook.Unprotect
For P = 1 To Sheets.Count Sheets(P).Visible = True Sheets(P).Select ActiveSheet.Unprotect 'activation des scrollbarres With ActiveWindow .DisplayHeadings = True .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True End With 'deverrouiller les cellules Columns("J:IV").Select Selection.EntireColumn.Hidden = False Rows("31:65536").Select Selection.EntireRow.Hidden = False Cells.Select
'activation clavier Dim K, I As Integer On Error Resume Next For Each K In Array("^", "%", "+^", "+%", "^%", "+^%") For I = 32 To 255 Application.OnKey K & Chr$(I), "" Next I Next K
'activation des touches fonctions With Application For I = 1 To 12 If I = 2 Then Else .OnKey "{F" & I & "}" End If Next End With
'reactive copy/cut du click de droite Application.CommandBars("Cell").Reset Application.ScreenUpdating = True End Sub -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Noël" a écrit dans le message de
news:1dddc01c423c5$a16978f0$ Bonjour, j'ai téléchargé un fichier Excel : mh-protection (de Michel Halderith, sur Excelabo) et depuis son éxécution, tous mes classeurs Excel sont vérouillés : cellules, barres, onglets désactivés ! Je ne parviens donc plus à utiliser Excel ! Help !! Merci !