Saberexcel - o site das macros
Essas macros do Aplicativo Microsoft Excel VBA, habilitam e ou desabilitam os ítens salvar e salvar como do Aplicativo Excel,

Option Explicit
'desabilita ítem salvar e salvar como do menu Arquivo
Sub Desabilitar_Salvar_Como()
Dim cbControles As CommandBarControl
Sheets("Plan_Saber1").Cells(3, 2) = "Ítens Salvar e Salvar como Desabilitado"
With CommandBars("File")
Set cbControles = .FindControl(ID:=3)
cbControles.Enabled = False
Set cbControles = .FindControl(ID:=748)
cbControles.Enabled = False
End With
End Sub


'habilita ítem salvar e salvar como do Menu Arquivo.
Sub Habilitar_Salvar_Como()
Dim cbControles As CommandBarControl
Sheets("Plan_Saber1").Cells(3, 2) = "Ítens Salvar e Salvar como Habilitado"
With CommandBars("File")
Set cbControles = .FindControl(ID:=3) 'salvar
cbControles.Enabled = True

Set cbControles = .FindControl(ID:=748) 'salvar como
cbControles.Enabled = True
End With
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com Saberexcel

Saberexcel - O site das Macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), salvar como, salva o livro em diretorio estabelecido pelo macro, com valores atribuidos a determinadas células na folha de planilha, neste caso referenciamos às células:(C4;E4;G4).

Sub Salvar_como_valores_celulas()
On Error GoTo sbError:
ActiveWorkbook.SaveAs "C:\vba\" & Range("C4").Value & "_" & Range("E4").Value & "_" & Range("G4").Value, xlNormal
Exit Sub
sbError: MsgBox "Planilha não foi salva!!", vbInformation, "Saberexcel - site das macros"
End Sub





Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Publicidade
Compre com segurança, garantia e ótimos preços

Saberexcel - site das macros

Esse procecimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), salva_como determinado livro(workbook) com os nomes atribuidos às células: (D2); (A15); (B13), formando um nome, concatenando os valores desta célula e atribuindo o nome a Salvar_Como:
Neste caso, 'exemplo feito', celulas D2-A15-B13- resulta em: SABEREXCEL_DESCRICAO_FATURA-00092.xls, salvando no Path(Diretorio) ativo.


Private Sub CommandButton1_Click()
On Error Resume Next
Dim Caminho As String 'declaracao da variável caminho
Caminho = ThisWorkbook.Path & "\"
ActiveWorkbook.SaveAs Filename:=Caminho & [D2].Value & "_" & [A15].Value & "_" & [B13].Value & ".xls"
MsgBox ("Planilha Salva Como : ") & [D2].Value & "_" & [A15].Value & "_" & [B13].Value & ".xls" _
, vbInformation, "Saberexcel - site das macros"
End Sub





Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Publicidade
Compre com segurança, garantia e ótimos preços