Marcos Jordão

Boa tarde colega, Veja se o código abaixo lhe ajuda. Foi criado para excel 2003, pode ser que precise d algum ajuste. Não é exatamente o que voce descreve porém pode ser ajustado. Sub Workbook_Open() If Date <=#12/06/2009# Then Exit Sub MsgBox "Adeus, .... vou apagar" With ThisWorkbook .Saved = True .ChangeFileAcess xlReadOnly Kill Full Name .Close False End With End Sub O arquivo não vai para a lixeira,,, é deletado permantemente. É igual ao comando Shift Del.

Pessoal, me perdoem se não é aqui para relatar este assunto.... sou iniciante no processo e precisaria que algue me ajudasse....não encontrei outro caminho. Se não puder ser respondido aqui gentileza me orientar como fazer.... Crei uma planilha com alguns códigos em VBA criando filtros para uma tabela de funcionários. Não sou tão experiente e utilizei alguns códigos emprestados. Ocorre que agora deixou de funcionar a opção dos atalhos VIA botão direito do mouse, quando uso o Excel. Não permite mostrar as opções nem na minha planilha, assim como em qualquer outra que eu crie. Aconteceu de um colega ativar esta minha planilha na máquina dele e gerou o mesmo problema. Preciso que volte e a funcionalidade, Preciso entender como consertar para consertar o que ocorreu, e evitar futuramente, E se puder alguém que me sugira a melhor forma de fazer a minha planilha. O que envio para alguém analisar para mim? Posso enviar o código ou a própria planilha, mas cuidado, se executar em sua ma´quina vai ficar igual ao meu problema.... P. Fv. Ajudem-me.... Grato, Jordão. [email protected] (81.33661100)