Bestand niet opslaan maar opslaan als

[ferryvdm]

Goedemorgen,

Ik wil graag een werkblad beschermen tegen opslaan.
Het werkblad mag alleen met het commando "opslaan als" opgeslagen kunnen worden.

Kan iemand mij helpen?

Groetjes

Ferry

 

[Cobbe]

Pas deze code toe:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.Dialogs(xlDialogSaveAs).Show
End Sub

 

[ferryvdm]

Cobbe,

Dank voor de snelle reactie!
Werkt prima

Groetjes

Ferry