| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart |
Tópicos relacionados:
Envie um email sem o aviso de segurança
Como enviar um email com uma assinatura dinâmica
Anexando arquivo ao email
Avalia o endereço do email
Como criar um código no Outlook
Pesquise todos os emails no Outlook e extraia informações
Anexando arquivo ao email
Avalia o endereço do email
Como criar um código no Outlook
Pesquise todos os emails no Outlook e extraia informações
Enviando E-mail sem o aviso de segurança
Enviando e-mails a partir do Excel
Como exportar as tarefas do MS Outlook para o MS Excel
LOTUS NOTES DOMINO - Código de envio de emails
Se você ainda não se deparou com a necessidade de salvar uma planilha do MS Excel como um arquivo somente para leitura (às vezes com uma proteção por senha), talvez ainda não tenha compreendido como isso pode ser importante. Faremos isso usando o FileSystemObject.
O código a seguir usa ligação tardia (late binding) e mostra como definir o arquivo somente como leitura.
Function SaveFileReadOnly (ByVal sFile As String)
Dim strSaveFilename As String
Dim oFSO As Object 'Scripting.FileSystemObject
Dim oFile As Object 'Scripting.File
' Create Objects
' Uses Late Binding
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.GetFile(FilePath:=sFile)
' Set file to be read-only
Let oFile.Attributes = 1
' Releasing Objects
If Not oFSO Is Nothing Then Set oFSO = Nothing
If Not oFile Is Nothing Then Set oFile = Nothing
End Function
Tags: VBA, Excel, FileSystemObject, readonly, file, make,
Nenhum comentário:
Postar um comentário