bonjour a tous
1)afin de personnaliser une application excel,peut on lui changer
d'icone
2) comment rendre inaccessible le code vba de mon application sauf
par moi bien sur
merci de votre aide
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
Jordane
Bonjour,
Pour le changement d'Icone je n'ai pas encore cherché.. Mais pour protéger le code VBA sauf pour vous, il est possible d'y mettre un mot de passe: Il faut aller dans l'éditeur de macros puis faire un clic droit sur le projet puis choisir : propriété du projet VBA et efin aller dans l'onglet Protection pour renseigner le Mot de passe.
Le code est ainsi protégé en lecture et en écriture. -- Cordialement,
Jordane
"" a écrit :
bonjour a tous 1)afin de personnaliser une application excel,peut on lui changer d'icone 2) comment rendre inaccessible le code vba de mon application sauf par moi bien sur merci de votre aide
Bonjour,
Pour le changement d'Icone je n'ai pas encore cherché..
Mais pour protéger le code VBA sauf pour vous,
il est possible d'y mettre un mot de passe:
Il faut aller dans l'éditeur de macros puis faire un clic droit sur le
projet puis choisir : propriété du projet VBA et efin aller dans l'onglet
Protection pour renseigner le Mot de passe.
Le code est ainsi protégé en lecture et en écriture.
--
Cordialement,
Jordane
"srogeau@free.fr" a écrit :
bonjour a tous
1)afin de personnaliser une application excel,peut on lui changer
d'icone
2) comment rendre inaccessible le code vba de mon application sauf
par moi bien sur
merci de votre aide
Pour le changement d'Icone je n'ai pas encore cherché.. Mais pour protéger le code VBA sauf pour vous, il est possible d'y mettre un mot de passe: Il faut aller dans l'éditeur de macros puis faire un clic droit sur le projet puis choisir : propriété du projet VBA et efin aller dans l'onglet Protection pour renseigner le Mot de passe.
Le code est ainsi protégé en lecture et en écriture. -- Cordialement,
Jordane
"" a écrit :
bonjour a tous 1)afin de personnaliser une application excel,peut on lui changer d'icone 2) comment rendre inaccessible le code vba de mon application sauf par moi bien sur merci de votre aide
michdenis
Cette approche a été proposé sur ce forum par Denis Pasquier '________________________________________________ 'pour changer l'icone de l'application Déclaration '*** DANS LE MODULE THISWORKBOOK DU CLASSEUR ***
Const FichierIco As String = "Logo.ico"
Private Declare Function FindWindowA Lib "user32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassLongA Lib "user32" _ (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetClassLongA Lib "user32" _ (ByVal hWnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long
Private Declare Function LoadImageA Lib "user32" _ (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, _ ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long Dim HIcon As Long, hWnd As Long '----------------------------------------------------------------------- 'Rememait l'icone de l'application XL a la fermeture du claseur '-------------------------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) If HIcon Then SetClassLongA hWnd, -14, HIcon End Sub '--------------------------------------------
'Change l'icone de l'application a l'ouverture du classeur 'Ne pas oublier d'adpater le chemin et le nom du fichier de l'icône '-------------------------------------------- Private Sub Workbook_Open() Dim FIcone As String FIcone = Me.Path & "" & FichierIco If Dir$(FIcone) <> "" Then hWnd = FindWindowA(vbNullString, Application.Caption) HIcon = GetClassLongA(hWnd, -14) SetClassLongA hWnd, -14, LoadImageA(0, FIcone, 1, 0, 0, &H10) End If End Sub '--------------------------------------------
a écrit dans le message de groupe de discussion :
bonjour a tous 1)afin de personnaliser une application excel,peut on lui changer d'icone 2) comment rendre inaccessible le code vba de mon application sauf par moi bien sur merci de votre aide
Cette approche a été proposé sur ce forum par Denis Pasquier
'________________________________________________
'pour changer l'icone de l'application Déclaration
'*** DANS LE MODULE THISWORKBOOK DU CLASSEUR ***
Const FichierIco As String = "Logo.ico"
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetClassLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function LoadImageA Lib "user32" _
(ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, _
ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Dim HIcon As Long, hWnd As Long
'-----------------------------------------------------------------------
'Rememait l'icone de l'application XL a la fermeture du claseur
'--------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If HIcon Then SetClassLongA hWnd, -14, HIcon
End Sub
'--------------------------------------------
'Change l'icone de l'application a l'ouverture du classeur
'Ne pas oublier d'adpater le chemin et le nom du fichier de l'icône
'--------------------------------------------
Private Sub Workbook_Open()
Dim FIcone As String
FIcone = Me.Path & "" & FichierIco
If Dir$(FIcone) <> "" Then
hWnd = FindWindowA(vbNullString, Application.Caption)
HIcon = GetClassLongA(hWnd, -14)
SetClassLongA hWnd, -14, LoadImageA(0, FIcone, 1, 0, 0, &H10)
End If
End Sub
'--------------------------------------------
<srogeau@free.fr> a écrit dans le message de groupe de discussion :
85ceb81b-114b-4748-a7b4-d0e5a826ae52@h16g2000yqj.googlegroups.com...
bonjour a tous
1)afin de personnaliser une application excel,peut on lui changer
d'icone
2) comment rendre inaccessible le code vba de mon application sauf
par moi bien sur
merci de votre aide
Cette approche a été proposé sur ce forum par Denis Pasquier '________________________________________________ 'pour changer l'icone de l'application Déclaration '*** DANS LE MODULE THISWORKBOOK DU CLASSEUR ***
Const FichierIco As String = "Logo.ico"
Private Declare Function FindWindowA Lib "user32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassLongA Lib "user32" _ (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetClassLongA Lib "user32" _ (ByVal hWnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long
Private Declare Function LoadImageA Lib "user32" _ (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, _ ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long Dim HIcon As Long, hWnd As Long '----------------------------------------------------------------------- 'Rememait l'icone de l'application XL a la fermeture du claseur '-------------------------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) If HIcon Then SetClassLongA hWnd, -14, HIcon End Sub '--------------------------------------------
'Change l'icone de l'application a l'ouverture du classeur 'Ne pas oublier d'adpater le chemin et le nom du fichier de l'icône '-------------------------------------------- Private Sub Workbook_Open() Dim FIcone As String FIcone = Me.Path & "" & FichierIco If Dir$(FIcone) <> "" Then hWnd = FindWindowA(vbNullString, Application.Caption) HIcon = GetClassLongA(hWnd, -14) SetClassLongA hWnd, -14, LoadImageA(0, FIcone, 1, 0, 0, &H10) End If End Sub '--------------------------------------------
a écrit dans le message de groupe de discussion :
bonjour a tous 1)afin de personnaliser une application excel,peut on lui changer d'icone 2) comment rendre inaccessible le code vba de mon application sauf par moi bien sur merci de votre aide
srogeau
On 20 fév, 14:51, "michdenis" wrote:
Cette approche a été proposé sur ce forum par Denis Pasquier '________________________________________________ 'pour changer l'icone de l'application Déclaration '*** DANS LE MODULE THISWORKBOOK DU CLASSEUR ***
Const FichierIco As String = "Logo.ico"
Private Declare Function FindWindowA Lib "user32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassLongA Lib "user32" _ (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetClassLongA Lib "user32" _ (ByVal hWnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long
Private Declare Function LoadImageA Lib "user32" _ (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, _ ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long Dim HIcon As Long, hWnd As Long '----------------------------------------------------------------------- 'Rememait l'icone de l'application XL a la fermeture du claseur '-------------------------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) If HIcon Then SetClassLongA hWnd, -14, HIcon End Sub '--------------------------------------------
'Change l'icone de l'application a l'ouverture du classeur 'Ne pas oublier d'adpater le chemin et le nom du fichier de l'icône '-------------------------------------------- Private Sub Workbook_Open() Dim FIcone As String FIcone = Me.Path & "" & FichierIco If Dir$(FIcone) <> "" Then hWnd = FindWindowA(vbNullString, Application.Caption) HIcon = GetClassLongA(hWnd, -14) SetClassLongA hWnd, -14, LoadImageA(0, FIcone, 1, 0, 0, &H10) End If End Sub '--------------------------------------------
a écrit dans le message de groupe de discussion :
bonjour a tous 1)afin de personnaliser une application excel,peut on lui changer d'icone 2) comment rendre inaccessible le code vba de mon application sauf par moi bien sur merci de votre aide
MERCI DE VOTRE AIDE il faut que je note le chemin du dossier d'icone apres (ME.PATH&" c'est ici"
On 20 fév, 14:51, "michdenis" <michde...@hotmail.com> wrote:
Cette approche a été proposé sur ce forum par Denis Pasquier
'________________________________________________
'pour changer l'icone de l'application Déclaration
'*** DANS LE MODULE THISWORKBOOK DU CLASSEUR ***
Const FichierIco As String = "Logo.ico"
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetClassLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function LoadImageA Lib "user32" _
(ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, _
ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Dim HIcon As Long, hWnd As Long
'-----------------------------------------------------------------------
'Rememait l'icone de l'application XL a la fermeture du claseur
'--------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If HIcon Then SetClassLongA hWnd, -14, HIcon
End Sub
'--------------------------------------------
'Change l'icone de l'application a l'ouverture du classeur
'Ne pas oublier d'adpater le chemin et le nom du fichier de l'icône
'--------------------------------------------
Private Sub Workbook_Open()
Dim FIcone As String
FIcone = Me.Path & "" & FichierIco
If Dir$(FIcone) <> "" Then
hWnd = FindWindowA(vbNullString, Application.Caption)
HIcon = GetClassLongA(hWnd, -14)
SetClassLongA hWnd, -14, LoadImageA(0, FIcone, 1, 0, 0, &H10)
End If
End Sub
'--------------------------------------------
<srog...@free.fr> a écrit dans le message de groupe de discussion :
85ceb81b-114b-4748-a7b4-d0e5a826a...@h16g2000yqj.googlegroups.com...
bonjour a tous
1)afin de personnaliser une application excel,peut on lui changer
d'icone
2) comment rendre inaccessible le code vba de mon application sauf
par moi bien sur
merci de votre aide
MERCI DE VOTRE AIDE
il faut que je note le chemin du dossier d'icone apres (ME.PATH&"
c'est ici"
Cette approche a été proposé sur ce forum par Denis Pasquier '________________________________________________ 'pour changer l'icone de l'application Déclaration '*** DANS LE MODULE THISWORKBOOK DU CLASSEUR ***
Const FichierIco As String = "Logo.ico"
Private Declare Function FindWindowA Lib "user32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassLongA Lib "user32" _ (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetClassLongA Lib "user32" _ (ByVal hWnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long
Private Declare Function LoadImageA Lib "user32" _ (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, _ ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long Dim HIcon As Long, hWnd As Long '----------------------------------------------------------------------- 'Rememait l'icone de l'application XL a la fermeture du claseur '-------------------------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) If HIcon Then SetClassLongA hWnd, -14, HIcon End Sub '--------------------------------------------
'Change l'icone de l'application a l'ouverture du classeur 'Ne pas oublier d'adpater le chemin et le nom du fichier de l'icône '-------------------------------------------- Private Sub Workbook_Open() Dim FIcone As String FIcone = Me.Path & "" & FichierIco If Dir$(FIcone) <> "" Then hWnd = FindWindowA(vbNullString, Application.Caption) HIcon = GetClassLongA(hWnd, -14) SetClassLongA hWnd, -14, LoadImageA(0, FIcone, 1, 0, 0, &H10) End If End Sub '--------------------------------------------
a écrit dans le message de groupe de discussion :
bonjour a tous 1)afin de personnaliser une application excel,peut on lui changer d'icone 2) comment rendre inaccessible le code vba de mon application sauf par moi bien sur merci de votre aide
MERCI DE VOTRE AIDE il faut que je note le chemin du dossier d'icone apres (ME.PATH&" c'est ici"
michdenis
| il faut que je note le chemin du dossier d'icone apres (ME.PATH&" | c'est ici"
OUI c'est là : pas après mais à la place de Me.Path entre guillements
| il faut que je note le chemin du dossier d'icone apres (ME.PATH&"
| c'est ici"
OUI c'est là : pas après mais à la place de Me.Path entre guillements