Word VBA não permitir Salvar documento sem combobox preenchida

[Vitor Hugo Ataide Almeida]

Bom dia !!

 

Preciso de ajuda com word, um documento que não permita salvar ou salvar como sem que a ComboBox1 esteja preenchida... Tentei procurar de tudo na net mas não me ajudou.

 

Segue código que encontrei até o momento.

 

Private Sub DocumentBeforeSave()
    Dim vstoDoc As Document
    AddHandler vstoDoc.BeforeSave, AddressOf ThisDocument_BeforeSave
End Sub

Private Sub ThisDocument_BeforeSave(ByVal sender As Object, ByVal e As Microsoft.Office.Tools.Word.SaveEventArgs)
    If System.Windows.Forms.MessageBox.Show( _
        "Do you want to save the document?", "BeforeSave", _
        System.Windows.Forms.MessageBoxButtons.YesNo) = System.Windows.Forms.DialogResult.No Then
        e.Cancel = True
    End If
End Sub

 

 

 

[Basole]

Segue exemplo:

 

Private WithEvents seuApp As Word.Application

Private Sub Document_Open()
Set seuApp = Word.Application
End Sub

Private Sub seuApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
     ' * substitua a condição abaixo para a do seu combobox
    If MsgBox("BeforeSave....Deseja salvar o DOC?", vbQuestion + vbYesNo, "") = vbNo Then
    Cancel = True
    Else
    Cancel = False
    End If
    
End Sub

 

[Vitor Hugo Ataide Almeida]

@Basole Muito obrigado!!! Valeu mesmo !!

 

Para quem precisar, o código ficou assim:

 

Private WithEvents seuApp As Word.Application

Private Sub Document_Open()
Set seuApp = Word.Application
With ComboBox1

.AddItem ""
.AddItem "Documento Restrito"
.AddItem "Documento Confidencial"
.AddItem "Documento Interno"
.AddItem "Documento Público"


End With
End Sub

Private Sub seuApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
     ' * substitua a condição abaixo para a do seu combobox
    If ComboBox1.Value = "" Then
    MsgBox ("Antes de salvar, Classifique o Documento ! As opções se encontram no rodapé")
    Cancel = True
    Else
    Cancel = False
    End If
    
End Sub