Desativar o comando 'Cancelar' ao fechar pasta de trabalho

"Basta sermos simples para sermos ricos em nossos atos!" (E.S.P.)
----------

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim NameWord, Msg, Style, Title, Response
NameWork = ActiveWorkbook.Name
Msg = "Deseja salvar as alterações feitas a '" & NameWork & "'?"
Style = vbYesNo + vbDefaultButton1
Title = "Atenção!"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
Salvar
Else
NãoSalvar
End If
End Sub

Sub NãoSalvar()
ThisWorkbook.Saved = True
End Sub

Sub Salvar()
ThisWorkbook.Save
End Sub

----------
Maiores esclarecimentos, acesse o link que está no título deste post !

Crie a sua própria data de forma personalizada

"Basta sermos simples para sermos ricos em nossos atos!" (E.S.P.)
----------

Pode-se criar datas com informações individuais:

Para os valores informados nas célula "A1", "B1" e "C1", coloque esta função na célula "D1":

=DATA.VALOR(A1&"/"&B1&"/"&C1)

Dica: para outras necessidades, poderá criar referências absolutas!

----------
Maiores esclarecimentos, acesse o link que está no título deste post !

Referência Absoluta com atalho no teclado

"Basta sermos simples para sermos ricos em nossos atos!" (E.S.P.)
----------

Para que as referências às células fiquem absolulas, o atalho do teclado é "F4" (selecione cada referência em separado).

----------
Maiores esclarecimentos, acesse o link que está no título deste post !