Bonjour,
J'ai créer un classeur sur lequel j'ai désactiver les enregistrements
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Close False
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
motpasse = InputBox("Entrer le mot de passe pour pouvoir sauvegarder:")
If motpasse = "essai" Then
MsgBox ("modification enregistrer")
Exit Sub
Else
Cancel = True
MsgBox ("mot de passe incorrect , modification non enregistrer")
End If
End Sub
je cherche cherche à enregister mon classeur à l'aide d'un bouton , pour qu'il s'enregistre à un endroit précis
mais il me demande le mot de passe
comment puis desactiver la demande de mot passe sur le bouton?
Private Sub enregistrer_Click() 'bouton enregistrer
Dim chemin, repertoire
Dim VBC As Object
chemin = "C:\mesdocuments\"
repertoire = Range("L2")
' creer le fichier
If Dir(chemin & repertoire, vbDirectory) = "" Then
MkDir chemin & repertoire
End If
'enregistre classeur
'ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & repertoire & "\" & [a2].Value & " " & ".pdf"
'message d'enregistrement
'Application.ScreenUpdating = True
'MsgBox ("Le " & " documents PDF viennent d'être créés et son disponnibles dans le répertoire C:\mesdocuments")
Dim dossier As String
dossier = chemin & repertoire & "\" & "commande" & " " & [D6].Value & ".xls"
If Dir(dossier, vbNormal) > "" Then
MsgBox ("le fichier existe")
ActiveWorkbook.SaveAs Filename:=chemin & repertoire & "\" & "commande" & " " & [D6].Value & "(1) "
With Activebook.VBProject
'cette partie du code est de Laurent Longre
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC 'LL
End With
Else
MsgBox ("le fichier n'existe pas")
ActiveWorkbook.SaveAs Filename:=chemin & repertoire & "\" & "commande" & " " & [D6].Value
End If
End Sub
je vous remercie d'avance
J'ai créer un classeur sur lequel j'ai désactiver les enregistrements
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Close False
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
motpasse = InputBox("Entrer le mot de passe pour pouvoir sauvegarder:")
If motpasse = "essai" Then
MsgBox ("modification enregistrer")
Exit Sub
Else
Cancel = True
MsgBox ("mot de passe incorrect , modification non enregistrer")
End If
End Sub
je cherche cherche à enregister mon classeur à l'aide d'un bouton , pour qu'il s'enregistre à un endroit précis
mais il me demande le mot de passe
comment puis desactiver la demande de mot passe sur le bouton?
Private Sub enregistrer_Click() 'bouton enregistrer
Dim chemin, repertoire
Dim VBC As Object
chemin = "C:\mesdocuments\"
repertoire = Range("L2")
' creer le fichier
If Dir(chemin & repertoire, vbDirectory) = "" Then
MkDir chemin & repertoire
End If
'enregistre classeur
'ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & repertoire & "\" & [a2].Value & " " & ".pdf"
'message d'enregistrement
'Application.ScreenUpdating = True
'MsgBox ("Le " & " documents PDF viennent d'être créés et son disponnibles dans le répertoire C:\mesdocuments")
Dim dossier As String
dossier = chemin & repertoire & "\" & "commande" & " " & [D6].Value & ".xls"
If Dir(dossier, vbNormal) > "" Then
MsgBox ("le fichier existe")
ActiveWorkbook.SaveAs Filename:=chemin & repertoire & "\" & "commande" & " " & [D6].Value & "(1) "
With Activebook.VBProject
'cette partie du code est de Laurent Longre
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC 'LL
End With
Else
MsgBox ("le fichier n'existe pas")
ActiveWorkbook.SaveAs Filename:=chemin & repertoire & "\" & "commande" & " " & [D6].Value
End If
End Sub
je vous remercie d'avance