Essaie ça pour le plaisir !
'les raccourcis clavier pour ouvrir la fenêtre des macro et VBE seront désactivées
'Impossible de créer de nouvelle macro
'impossible d'ouvrir la fenêtre VBE
Dans le ThisWorkbook, copie ceci :
'------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
OuvrirFenêtreVBE
End Sub
'------------------
Private Sub Workbook_Open()
InterdireFenêtreVBE
End Sub
'------------------
Copie ce qui suit dans des modules Standard :
'------------------------------------
Sub InterdireFenêtreVBE()
With Application
.OnKey "%{F11}", ""
.OnKey "%{F8}", ""
End With
For Each ctrl In Application.CommandBars.FindControls(ID:4)
ctrl.Enabled = False
ctrl.Visible = False
ctrl.OnAction = "Rien"
Next
For Each ctrl In Application.CommandBars.FindControls(ID:6)
ctrl.Enabled = False
ctrl.Visible = False
ctrl.OnAction = "Rien"
Next
For Each ctrl In Application.CommandBars.FindControls(ID:95)
ctrl.Enabled = False
ctrl.Visible = False
ctrl.OnAction = "Rien"
Next
End Sub
'--------------
Sub OuvrirFenêtreVBE()
With Application
.OnKey "%{F11}"
.OnKey "%{F8}"
End With
For Each ctrl In Application.CommandBars.FindControls(ID:4)
ctrl.Enabled = True
ctrl.Visible = True
ctrl.OnAction = ""
Next
For Each ctrl In Application.CommandBars.FindControls(ID:6)
ctrl.Enabled = True
ctrl.Visible = True
ctrl.OnAction = ""
Next
For Each ctrl In Application.CommandBars.FindControls(ID:95)
ctrl.Enabled = True
ctrl.Visible = True
ctrl.OnAction = ""
Next
End Sub
'--------------
Sub Rien()
End Sub
'--------------
"Aiwa" a écrit dans le message de news:
Bonjour j'ai un fichier et j'aimerais pouvoir bloquer l'acces
au visual basic car la-dedans j'ai une macro et dans celle-ci il y a un
enlever mot passe et remettre mot de passe, donc j'aimerais pourvoir bloquer
l'acces.
Merci à l'avance
Essaie ça pour le plaisir !
'les raccourcis clavier pour ouvrir la fenêtre des macro et VBE seront désactivées
'Impossible de créer de nouvelle macro
'impossible d'ouvrir la fenêtre VBE
Dans le ThisWorkbook, copie ceci :
'------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
OuvrirFenêtreVBE
End Sub
'------------------
Private Sub Workbook_Open()
InterdireFenêtreVBE
End Sub
'------------------
Copie ce qui suit dans des modules Standard :
'------------------------------------
Sub InterdireFenêtreVBE()
With Application
.OnKey "%{F11}", ""
.OnKey "%{F8}", ""
End With
For Each ctrl In Application.CommandBars.FindControls(ID:4)
ctrl.Enabled = False
ctrl.Visible = False
ctrl.OnAction = "Rien"
Next
For Each ctrl In Application.CommandBars.FindControls(ID:6)
ctrl.Enabled = False
ctrl.Visible = False
ctrl.OnAction = "Rien"
Next
For Each ctrl In Application.CommandBars.FindControls(ID:95)
ctrl.Enabled = False
ctrl.Visible = False
ctrl.OnAction = "Rien"
Next
End Sub
'--------------
Sub OuvrirFenêtreVBE()
With Application
.OnKey "%{F11}"
.OnKey "%{F8}"
End With
For Each ctrl In Application.CommandBars.FindControls(ID:4)
ctrl.Enabled = True
ctrl.Visible = True
ctrl.OnAction = ""
Next
For Each ctrl In Application.CommandBars.FindControls(ID:6)
ctrl.Enabled = True
ctrl.Visible = True
ctrl.OnAction = ""
Next
For Each ctrl In Application.CommandBars.FindControls(ID:95)
ctrl.Enabled = True
ctrl.Visible = True
ctrl.OnAction = ""
Next
End Sub
'--------------
Sub Rien()
End Sub
'--------------
"Aiwa" <Aiwa@discussions.microsoft.com> a écrit dans le message de news:
670D2A41-B219-4DF8-87BB-8C32DFD547E1@microsoft.com...
Bonjour j'ai un fichier et j'aimerais pouvoir bloquer l'acces
au visual basic car la-dedans j'ai une macro et dans celle-ci il y a un
enlever mot passe et remettre mot de passe, donc j'aimerais pourvoir bloquer
l'acces.
Merci à l'avance
Essaie ça pour le plaisir !
'les raccourcis clavier pour ouvrir la fenêtre des macro et VBE seront désactivées
'Impossible de créer de nouvelle macro
'impossible d'ouvrir la fenêtre VBE
Dans le ThisWorkbook, copie ceci :
'------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
OuvrirFenêtreVBE
End Sub
'------------------
Private Sub Workbook_Open()
InterdireFenêtreVBE
End Sub
'------------------
Copie ce qui suit dans des modules Standard :
'------------------------------------
Sub InterdireFenêtreVBE()
With Application
.OnKey "%{F11}", ""
.OnKey "%{F8}", ""
End With
For Each ctrl In Application.CommandBars.FindControls(ID:4)
ctrl.Enabled = False
ctrl.Visible = False
ctrl.OnAction = "Rien"
Next
For Each ctrl In Application.CommandBars.FindControls(ID:6)
ctrl.Enabled = False
ctrl.Visible = False
ctrl.OnAction = "Rien"
Next
For Each ctrl In Application.CommandBars.FindControls(ID:95)
ctrl.Enabled = False
ctrl.Visible = False
ctrl.OnAction = "Rien"
Next
End Sub
'--------------
Sub OuvrirFenêtreVBE()
With Application
.OnKey "%{F11}"
.OnKey "%{F8}"
End With
For Each ctrl In Application.CommandBars.FindControls(ID:4)
ctrl.Enabled = True
ctrl.Visible = True
ctrl.OnAction = ""
Next
For Each ctrl In Application.CommandBars.FindControls(ID:6)
ctrl.Enabled = True
ctrl.Visible = True
ctrl.OnAction = ""
Next
For Each ctrl In Application.CommandBars.FindControls(ID:95)
ctrl.Enabled = True
ctrl.Visible = True
ctrl.OnAction = ""
Next
End Sub
'--------------
Sub Rien()
End Sub
'--------------
"Aiwa" a écrit dans le message de news:
Bonjour j'ai un fichier et j'aimerais pouvoir bloquer l'acces
au visual basic car la-dedans j'ai une macro et dans celle-ci il y a un
enlever mot passe et remettre mot de passe, donc j'aimerais pourvoir bloquer
l'acces.
Merci à l'avance
Essaie ça pour le plaisir !
'les raccourcis clavier pour ouvrir la fenêtre des macro et VBE seront désactivées
'Impossible de créer de nouvelle macro
'impossible d'ouvrir la fenêtre VBE
Dans le ThisWorkbook, copie ceci :
'------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
OuvrirFenêtreVBE
End Sub
'------------------
Private Sub Workbook_Open()
InterdireFenêtreVBE
End Sub
'------------------
Copie ce qui suit dans des modules Standard :
'------------------------------------
Sub InterdireFenêtreVBE()
With Application
.OnKey "%{F11}", ""
.OnKey "%{F8}", ""
End With
For Each ctrl In Application.CommandBars.FindControls(ID:4)
ctrl.Enabled = False
ctrl.Visible = False
ctrl.OnAction = "Rien"
Next
For Each ctrl In Application.CommandBars.FindControls(ID:6)
ctrl.Enabled = False
ctrl.Visible = False
ctrl.OnAction = "Rien"
Next
For Each ctrl In Application.CommandBars.FindControls(ID:95)
ctrl.Enabled = False
ctrl.Visible = False
ctrl.OnAction = "Rien"
Next
End Sub
'--------------
Sub OuvrirFenêtreVBE()
With Application
.OnKey "%{F11}"
.OnKey "%{F8}"
End With
For Each ctrl In Application.CommandBars.FindControls(ID:4)
ctrl.Enabled = True
ctrl.Visible = True
ctrl.OnAction = ""
Next
For Each ctrl In Application.CommandBars.FindControls(ID:6)
ctrl.Enabled = True
ctrl.Visible = True
ctrl.OnAction = ""
Next
For Each ctrl In Application.CommandBars.FindControls(ID:95)
ctrl.Enabled = True
ctrl.Visible = True
ctrl.OnAction = ""
Next
End Sub
'--------------
Sub Rien()
End Sub
'--------------
"Aiwa" a écrit dans le message de news:
Bonjour j'ai un fichier et j'aimerais pouvoir bloquer l'acces
au visual basic car la-dedans j'ai une macro et dans celle-ci il y a un
enlever mot passe et remettre mot de passe, donc j'aimerais pourvoir bloquer
l'acces.
Merci à l'avance
Essaie ça pour le plaisir !
'les raccourcis clavier pour ouvrir la fenêtre des macro et VBE seront désactivées
'Impossible de créer de nouvelle macro
'impossible d'ouvrir la fenêtre VBE
Dans le ThisWorkbook, copie ceci :
'------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
OuvrirFenêtreVBE
End Sub
'------------------
Private Sub Workbook_Open()
InterdireFenêtreVBE
End Sub
'------------------
Copie ce qui suit dans des modules Standard :
'------------------------------------
Sub InterdireFenêtreVBE()
With Application
.OnKey "%{F11}", ""
.OnKey "%{F8}", ""
End With
For Each ctrl In Application.CommandBars.FindControls(ID:4)
ctrl.Enabled = False
ctrl.Visible = False
ctrl.OnAction = "Rien"
Next
For Each ctrl In Application.CommandBars.FindControls(ID:6)
ctrl.Enabled = False
ctrl.Visible = False
ctrl.OnAction = "Rien"
Next
For Each ctrl In Application.CommandBars.FindControls(ID:95)
ctrl.Enabled = False
ctrl.Visible = False
ctrl.OnAction = "Rien"
Next
End Sub
'--------------
Sub OuvrirFenêtreVBE()
With Application
.OnKey "%{F11}"
.OnKey "%{F8}"
End With
For Each ctrl In Application.CommandBars.FindControls(ID:4)
ctrl.Enabled = True
ctrl.Visible = True
ctrl.OnAction = ""
Next
For Each ctrl In Application.CommandBars.FindControls(ID:6)
ctrl.Enabled = True
ctrl.Visible = True
ctrl.OnAction = ""
Next
For Each ctrl In Application.CommandBars.FindControls(ID:95)
ctrl.Enabled = True
ctrl.Visible = True
ctrl.OnAction = ""
Next
End Sub
'--------------
Sub Rien()
End Sub
'--------------
"Aiwa" <Aiwa@discussions.microsoft.com> a écrit dans le message de news:
670D2A41-B219-4DF8-87BB-8C32DFD547E1@microsoft.com...
Bonjour j'ai un fichier et j'aimerais pouvoir bloquer l'acces
au visual basic car la-dedans j'ai une macro et dans celle-ci il y a un
enlever mot passe et remettre mot de passe, donc j'aimerais pourvoir bloquer
l'acces.
Merci à l'avance
Essaie ça pour le plaisir !
'les raccourcis clavier pour ouvrir la fenêtre des macro et VBE seront désactivées
'Impossible de créer de nouvelle macro
'impossible d'ouvrir la fenêtre VBE
Dans le ThisWorkbook, copie ceci :
'------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
OuvrirFenêtreVBE
End Sub
'------------------
Private Sub Workbook_Open()
InterdireFenêtreVBE
End Sub
'------------------
Copie ce qui suit dans des modules Standard :
'------------------------------------
Sub InterdireFenêtreVBE()
With Application
.OnKey "%{F11}", ""
.OnKey "%{F8}", ""
End With
For Each ctrl In Application.CommandBars.FindControls(ID:4)
ctrl.Enabled = False
ctrl.Visible = False
ctrl.OnAction = "Rien"
Next
For Each ctrl In Application.CommandBars.FindControls(ID:6)
ctrl.Enabled = False
ctrl.Visible = False
ctrl.OnAction = "Rien"
Next
For Each ctrl In Application.CommandBars.FindControls(ID:95)
ctrl.Enabled = False
ctrl.Visible = False
ctrl.OnAction = "Rien"
Next
End Sub
'--------------
Sub OuvrirFenêtreVBE()
With Application
.OnKey "%{F11}"
.OnKey "%{F8}"
End With
For Each ctrl In Application.CommandBars.FindControls(ID:4)
ctrl.Enabled = True
ctrl.Visible = True
ctrl.OnAction = ""
Next
For Each ctrl In Application.CommandBars.FindControls(ID:6)
ctrl.Enabled = True
ctrl.Visible = True
ctrl.OnAction = ""
Next
For Each ctrl In Application.CommandBars.FindControls(ID:95)
ctrl.Enabled = True
ctrl.Visible = True
ctrl.OnAction = ""
Next
End Sub
'--------------
Sub Rien()
End Sub
'--------------
"Aiwa" a écrit dans le message de news:
Bonjour j'ai un fichier et j'aimerais pouvoir bloquer l'acces
au visual basic car la-dedans j'ai une macro et dans celle-ci il y a un
enlever mot passe et remettre mot de passe, donc j'aimerais pourvoir bloquer
l'acces.
Merci à l'avance