Interdire "enregistrer sous"

[argv666]

bonjour,

je voudrais savoir comment interdire 'enregistrer sous' dans un fichier excel.

Apparement, on peut utiliser ceci dans le 'This Woorkbook' :

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

Mais du coup, il ne veut pas enregistrer cette modif...merci de me dire si je fais bien les choses (apparement non!!)

:silly:

 

[Eric C]

Bonjour le forum
Bonjour argv666

Ben oui, ce code empêche l'enregistrement du fichier donc ... jusqu'à un bon contributeur ou contributrice nous explique, je suis comme toi :whistle:
Une soluce quand même à ton problème, tu désactives ou inhibes les items 'Enregistrer Sous' de la barre Standart et du Menu Fichier avec ce code à placer dans un module standard :

Sub Inhibe_Enregistre_Sous()
Application.CommandBars('standard').Controls(4).Enabled = False
Application.CommandBars(1).Controls(1).Controls(5).Enabled = False
End Sub

Dans le 1er cas ==> chez moi l'item Enregistrer Sous est en 4 ème position en partant de la gauche
Dans le 2ème cas ==> Chez tout le monde :lol:, Enregistrer Sous se trouve en 5ème position (en partant du haut) du Menu Fichier.

Bon appétit à toutes & à tous.

 

[Temjeh]

Bonjour à tous

Ptêtre en passant par ceci(mettre la première fois en A1...1)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range('A1') = 1 Then
ActiveWorkbook.Save
Range('A1') = ''
Else
Cancel = True
End If
End Sub

A++

Temjeh

 

[PascalXLD]

Re:Interdire \"enregistrer sous\"

bonjour

essaies ceci

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

Bon courage

Message édité par: Pascal76, à: 26/05/2005 14:23

 

[CélineG]

Bonjour !

Moi je fais ça pour empecher d'enregistrer et d'enrregistrer sous un document ouvert en lecture seule :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ActiveWorkbook.ReadOnly = True Then
        'empêche l'enregistrement
        SaveAsUI = False
        Cancel = True
    End If
End Sub