20. Impedir o usuário salvar o arquivo

Esta macro tem por objetivo impedir o usuário de salvar o arquivo,
impedindo assim a substituição de dados.

Obs1: É necessário incluir a macro dentro do objeto WorkBook.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel
As Boolean)
Msgbox “Você não pode salvar este arquivo”
Cancel = True
End Sub

21. Simples Sistema de login e senha para acessar o

arquivo

Este é um sistema simples de Login para apenas usuários cadastrados
acessarem a planilha.

Obs1: É preciso alterar o nome do arquivo, a extensão e o diretório, marcados
em negrito.

Obs2: O código precisa da declaração Auto_Open() para funcionar.