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
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
Pour que ta macro ne fonctionne quesous un emplacement précis, met ca au tout début de ta macro :
Code:
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
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
: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: