Bonjour,
Toujour dans l'optique de vérouiller un développement avec Excel (voir
Evènement BeforeSave) je suis confronté à un autre problème (en plus du fait
qu'en faisant ActiveWorkbook.Save, la macro ne déprotège pas la feuille).
dans l'évènement Workbook_BeforeSave je met le code suivant (pour ceux qui
suivent mon autre fil, c'est à la place de
Sheets(Cstr_WelcomeSheetName).Visible = xlSheetVisible)
With Sheets(Cstr_WelcomeSheetName)
.Visible = xlSheetVisible
.Unprotect Password:=Cstr_Pwd
.Cells(4, 1) = ActiveSheet.Name
.Protect Password:=Cstr_Pwd, DrawingObjects:=True
End With
Et sur l'évènement Workbook_Open, je met
With Sheets(Cstr_WelcomeSheetName)
.Visible = xlSheetVeryHidden
Sheets(.Cells(4, 1)).Select
End With
J'ai beau chercher, ça fait 2 jours que je tourne en rond (avec mon autre
problème BeforeSave).
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
Yann
OUPS !!! J'ai oublié de faire part de mon problème :op Ma feuille d'accueil a la propriété .EnableSelection = xlNoSelection à l'origine, mais le fait de dévérouiller, d'ajouter quelque chose, et de revérouiller la feuille d'accueil, la prorpiété reste bien à xlNoSelection, mais après fermeture et réouverture, SANS ACCEPTER LES MACROS, la propriété est repassé à xlNoRestriction !!!
Auriez-vous une aide à m'apporter ???
Bye Yann
"Yann" wrote:
Bonjour, Toujour dans l'optique de vérouiller un développement avec Excel (voir Evènement BeforeSave) je suis confronté à un autre problème (en plus du fait qu'en faisant ActiveWorkbook.Save, la macro ne déprotège pas la feuille).
dans l'évènement Workbook_BeforeSave je met le code suivant (pour ceux qui suivent mon autre fil, c'est à la place de Sheets(Cstr_WelcomeSheetName).Visible = xlSheetVisible) With Sheets(Cstr_WelcomeSheetName) .Visible = xlSheetVisible .Unprotect Password:=Cstr_Pwd .Cells(4, 1) = ActiveSheet.Name .Protect Password:=Cstr_Pwd, DrawingObjects:=True End With
Et sur l'évènement Workbook_Open, je met With Sheets(Cstr_WelcomeSheetName) .Visible = xlSheetVeryHidden Sheets(.Cells(4, 1)).Select End With
J'ai beau chercher, ça fait 2 jours que je tourne en rond (avec mon autre problème BeforeSave).
Auriez-vous des suggestions ?
Merci d'avance...
-- Bye Yann
OUPS !!!
J'ai oublié de faire part de mon problème :op
Ma feuille d'accueil a la propriété .EnableSelection = xlNoSelection à
l'origine, mais le fait de dévérouiller, d'ajouter quelque chose, et de
revérouiller la feuille d'accueil, la prorpiété reste bien à xlNoSelection,
mais après fermeture et réouverture, SANS ACCEPTER LES MACROS, la propriété
est repassé à xlNoRestriction !!!
Auriez-vous une aide à m'apporter ???
Bye
Yann
"Yann" wrote:
Bonjour,
Toujour dans l'optique de vérouiller un développement avec Excel (voir
Evènement BeforeSave) je suis confronté à un autre problème (en plus du fait
qu'en faisant ActiveWorkbook.Save, la macro ne déprotège pas la feuille).
dans l'évènement Workbook_BeforeSave je met le code suivant (pour ceux qui
suivent mon autre fil, c'est à la place de
Sheets(Cstr_WelcomeSheetName).Visible = xlSheetVisible)
With Sheets(Cstr_WelcomeSheetName)
.Visible = xlSheetVisible
.Unprotect Password:=Cstr_Pwd
.Cells(4, 1) = ActiveSheet.Name
.Protect Password:=Cstr_Pwd, DrawingObjects:=True
End With
Et sur l'évènement Workbook_Open, je met
With Sheets(Cstr_WelcomeSheetName)
.Visible = xlSheetVeryHidden
Sheets(.Cells(4, 1)).Select
End With
J'ai beau chercher, ça fait 2 jours que je tourne en rond (avec mon autre
problème BeforeSave).
OUPS !!! J'ai oublié de faire part de mon problème :op Ma feuille d'accueil a la propriété .EnableSelection = xlNoSelection à l'origine, mais le fait de dévérouiller, d'ajouter quelque chose, et de revérouiller la feuille d'accueil, la prorpiété reste bien à xlNoSelection, mais après fermeture et réouverture, SANS ACCEPTER LES MACROS, la propriété est repassé à xlNoRestriction !!!
Auriez-vous une aide à m'apporter ???
Bye Yann
"Yann" wrote:
Bonjour, Toujour dans l'optique de vérouiller un développement avec Excel (voir Evènement BeforeSave) je suis confronté à un autre problème (en plus du fait qu'en faisant ActiveWorkbook.Save, la macro ne déprotège pas la feuille).
dans l'évènement Workbook_BeforeSave je met le code suivant (pour ceux qui suivent mon autre fil, c'est à la place de Sheets(Cstr_WelcomeSheetName).Visible = xlSheetVisible) With Sheets(Cstr_WelcomeSheetName) .Visible = xlSheetVisible .Unprotect Password:=Cstr_Pwd .Cells(4, 1) = ActiveSheet.Name .Protect Password:=Cstr_Pwd, DrawingObjects:=True End With
Et sur l'évènement Workbook_Open, je met With Sheets(Cstr_WelcomeSheetName) .Visible = xlSheetVeryHidden Sheets(.Cells(4, 1)).Select End With
J'ai beau chercher, ça fait 2 jours que je tourne en rond (avec mon autre problème BeforeSave).
