blocage

[judoka0209]

bonjour je souhaiterait que mon fichier excel ne fonctionne que sous un emplacement precis exemple C:\\programmes
est ce possible
peu on empecher la copie du fichier sous un autre environnement mais pouvoir quand meme l'utiliser qui ne soit pas en lecture seul
merci

 

[PascalXLD]

Bonjour

Si tu places ce code dans ton fichier tu ne pourras plus que faire enregistrer mais plus enregistrer sous

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then Cancel = True
End Sub

Ce code ne permet que le fonctionnement de ton fichier sous c:\\\\\\\\Programme


Private Sub Workbook_Open()

Dim MonChemin As String
MonChemin = ThisWorkbook.Path
If MonChemin <> 'c:\\Programme' Then
MsgBox 'Fichier impossible à utiliser à cet emplacement'
ThisWorkbook.Close False
End If

End Sub

Mais bon dans les 2 cas il faut que les macros soient activées

Bon courage

Par contre il te sera difficile d'éviter la copie d'un fichier

 

[Creepy]

Bonjour le Forum, Judoka0209,

Pour que ta macro ne fonctionne quesous un emplacement précis, met ca au tout début de ta macro :

If Dir('c:\\Prgramme\\dede.xls')= '' Then ' Si le dir sur dede.xls renvoie rien (fichier absent!)
msgbox ' macro ne peut pas fonctionner'
exit sub
end if

Et voila si ton fichier dede n'est pas dans c:\\programme ta macro ne marchera pas

@+

Creepy

EDIT : En même temps Pascal J'espère que tu vas bien ! Bonne journée

Message édité par: Creepy, à: 18/10/2005 09:44

 

[Philippe]

Il faut aller + loin !
Ci joint un exemple d'un classeur qui ne peux s'executer que sur C:
De plus la feuille 2 n'est visible qui si les macros sont activée ce qui gére le cas ou l'on n'active pas les macros qui permettent de controler l'emplacement du classeur

Philippe N

 

[Philippe]

:whistle:
oups le fichier !

 

[Philippe]

:whistle: [file name=Exempl.zip size=10954]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Exempl.zip[/file]
Ca devrait etre bon pour le fichier :unsure: