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...

Deletar Arquivo Ativo

Olá! Para deletar um arquivo ativo utilize o código abaixo:   With ActiveWorkbook .Saved = True .ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName .Close SaveChanges = False End With   Muito cuidado ao usar essa função!!   Segue Planilha de...

Folha de Ponto

Olá! Vou postar aqui uma primeira planilha de estudo para impressão de folha de ponto. Claro que esta planilha é um nível um pouco mais avançado de Excel, mas quem tiver interesse, favor me enviar um e-mail que posso enviar a planilha aberta com a parte da programação ou as funcionalidades que estão em dúvida como fazer. Folha_de_Ponto Dúvidas? Entre em...

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....