Escolha uma Página

Senha de Salvamento – Automático

Olá! Neste post trago uma solução que adequamos à uma situação de segurança solicitado por um cliente. A planilha de modelo aqui, após habilitação da macro, impede o usuário de trocar a senha de abertura da planilha. “Após habilitação da macro”. A aplicação desse código foi vinculado a outras questões de segurança que impediam o usuário de ter acesso ao menu antes de habilitar as macros. Senha de abertura: teste Segue o modelo: Planilha: Senha_Abertura.xlsm Segue aqui o código utilizado: Option Explicit ‘ Senha que será reescrita Private Const C_WORKBOOK_OPEN_PASSWORD As String = “teste” Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ‘ ‘ Este evento adiciona uma senha de abertura da pasta de trabalho. ‘ Caso o usuário mude a senha, esta será reescrita para a senha definida acima. ‘ Para que esta função funcione deve-se estar com as macros habilitadas. ‘ Sugerimos que faça um bloqueio de acesso via xml para forçar o usuário a habtilitar ‘ as macros na abertura para rodar seu projeto. Dim fname As Variant Dim bSaved As Boolean Dim shtsSelected As Sheets Dim objActiveSheet As Object On Error GoTo ErrorHandler ‘ Adiciona senha de abertura Me.Password = C_WORKBOOK_OPEN_PASSWORD ‘ Salva a planilha e a pasta ativa Set objActiveSheet = ActiveSheet Set shtsSelected = ThisWorkbook.Windows(1).SelectedSheets If SaveAsUI Then ‘Usuário está tentando salvar como… Cancel = True ‘Cancela a ação do usuário ‘ Busca o caminho do arquivo fname = Application.GetSaveAsFilename( _ fileFilter:=”Excel Marcro-Enabled Workbook (*.xlsm),*.xlsm”) If fname = False Then GoTo ExitPoint ‘Fecha se o usuário cancelar ‘ Salva a Pasta de Trabalho Application.EnableEvents = False ThisWorkbook.SaveAs Filename:=fname, FileFormat:=52 ’52 = xlOpenXMLWorkbookMacroEnabled...

Primeiro Post!

Olá,   Estou aqui no nosso primeiro post e digo que quero compartilhar abertamente todo o conhecimento que adquiri ao longo dos anos e estou aberto a perguntas no que souber responder e espero em breve consegui gravar alguns tutoriais de fácil acesso a todos os amigos que desejam aprender ou aprimorar os conhecimentos nessa maravilhosa ferramenta que é o Excel! A ideia é fazer algo simples, uma página clean para achar o conteúdo de maneira fácil e rápida, sem spam, sem propaganda e sem poup up! Qualquer dúvida favor enviar um e-mail para tigor@excelguru.com.br   Fraterno abraço!   Para esse site estou utilizando o serviço de hospedando do Hostinger Brasil....