Force Enregistrer sous, MS Excel VBA

Je suis un peu un newby avec VBA dans MS produits de Bureau. J'ai été à la recherche pour certains de code qui permettra de forcer l'utilisateur à "Enregistrer sous" une .fichier xls-je utiliser comme un modèle (mais c'est pas un modèle type de fichier)

En gros, j'ai ceci:

  1. De l'utilisateur s'ouvre .xls, entre des données dans un certain domaine et puis Fichier-->Enregistrer sous pour leur propre emplacement
  2. Parfois de l'utilisateur clique sur enregistrer au lieu de cela, donc l'écrasement de la .xls que je ne veux pas arriver.

J'ai été regarder dans quelques idées, mais je ne suis pas sûr de la façon de mettre en œuvre la meilleure. Je pense qu'une invite lorsque l'utilisateur ouvre le .xls pour enregistrer un nouvel emplacement est la meilleure approche, mais la pensée de l'avant, s'ils ont déjà enregistré le fichier vers un nouvel emplacement et de décider de l'éditer la nouvelle, je veux qu'ils soient en mesure de "Sauver" à ce point parce que c'est maintenant à leur propre fichier, pas l'original.

Si quelqu'un peut me pointer dans la bonne direction ou de trouver des failles dans ma logique, je serais ravi de l'entendre.

Grâce,
Mike

Placez le fichier dans un dossier partagé et drapeau en readonly, ou de donner l'accès en lecture seule au dossier? Rendre le fichier disponible en téléchargement sur le web ? Dépend de votre sitation.
C'est exactement ce que les modèles sont pour. Vous ouvrez le modèle et il crée une copie du fichier sur lequel vous devez l'enregistrer sous un nouveau classeur. Vous devez délibérément enregistrer le nouveau fichier en tant que modèle afin de dupliquer ce que vous décrivez.

OriginalL'auteur Mike | 2012-05-11

  1. 6

    - Je utiliser comme un modèle (mais c'est pas un modèle type de fichier)

    Le plus simple est d'enregistrer le fichier avec Read-Only Recommended définie sur true. Voir l'instantané

    Force Enregistrer sous, MS Excel VBA

    Que les façons, même si l'utilisateur tente de faire un Save, Excel va automatiquement invite pour un Save As

    Force Enregistrer sous, MS Excel VBA

    HTH

    +1 belle réponse claire avec les captures d'écran Sidd.
    Si j'ai d'installation excel de cette façon et que l'utilisateur ouvre et "Enregistrer sous", le nouveau enregistré feuille de calcul vous permettent de "Sauver" à ce point? il serait bon si il l'a fait.
    Vous ne pouvez faire un "Enregistrer sous" dans le scénario ci-dessus 🙂

    OriginalL'auteur Siddharth Rout

  2. 4

    Je suis d'accord avec les autres modèles et en lecture seule sont de meilleures options, mais si vous êtes prêt à rouler votre propre, voici un exemple pour vous aider à démarrer. Il va dans le module ThisWorkbook

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Dim sNewName As String

    Cancel = True 'Cancel the save operation

    sNewName = Application.GetSaveAsFilename(Replace(Me.Name, ".xls", "1.xls"))

    If sNewName <> Me.FullName And sNewName <> "False" Then
        Application.EnableEvents = False
            Me.SaveAs sNewName
        Application.EnableEvents = True
    End If

End Sub
    +1 C'EST une autre bonne solution, mais rappelez-vous juste, si l'utilisateur désactive les macros alors cela ne fonctionnera pas.

    OriginalL'auteur Dick Kusleika