Bonjour à tous
Pour le enregistrer sous la personne pourra toujours enregistrer sous en remplacent le classeur actuel.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.Dialogs(xlDialogSaveAs).Show
End Sub
Pour empêcher cela tu devras y automatisé une sauvegarde dans
si tu la veut on peut te la faire)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
inputbox ....sous quel nom voulez-vous sauvegarder?
ActiveWorkbook.SaveAs Filename:= _
'ton chemin\\input & .xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub
Pour lecture seul regarde le zip (code 1234)
A+
Temjeh
[img size=60]http://pages.videotron.com/temjeh/logo/7.gif[/img] [file name=Lecture_seule.zip size=15780]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Lecture_seule.zip[/file]