| Descricao: |
 Saberexcel - o site das macros
Esses procedimentos do Objeto CheckBox do Aplicativo Microsoft Excel VBA(Visual Basic Application) oculta a aba de planihas e protege a folha de planiha, muda a cor do checkbox e fonte quando a condição do checkbox for muda, retornando uma mensagem no caption do CheckBox, observe que fiz uma linha de código também para retornar
um valor para célula B1.
Veja bem, você poderia retornar qualquer valor de qualquer lugar, de qualquer objeto, uma soma, ou um texto, qualquer coisa,
para desenvolver o racicinio lógico e aprender a programar temos que buscar opções com um exemplo, isto é um exemplo simples, mas com
um pouquinho de criatividade dá pra se fazer um exemplo bacana. não é mesmo?. Suponhamos que fala, Ah! que pena, eu queria que essa planilha fosse protegida com senhas. Eu lhe digo é muito fácil, voce mesmo vai fazer.
Abra uma planiha comum, acione o gravador de macros, insira uma senha de proteção em uma planilha, desligue o gravador de macros,
vá até o ambiente do VBA(ALT+F11), pegue o código que foi gravado e substitua a linha de código que protege pela sua.
simples. Expero que o exemplo seja útil. Fiquem com Deus, Expedito Marcondes
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ActiveSheet.Unprotect
ActiveWindow.DisplayWorkbookTabs = True
CheckBox1.Caption = "Planilha Desprotegida e abas visíveis"
CheckBox1.BackColor = &H8000&
CheckBox1.ForeColor = &HFFFFFF
CheckBox1.Alignment = fmAlignmentLeft
Saber1.Shapes("sb").Visible = False
Saber1.[B1].Value = "Cuidado planilha desprotegida!!"
Else
ActiveSheet.Unprotect
ActiveWindow.DisplayWorkbookTabs = False
Range("C2").Select
Saber1.[B1].Value = "Planilha PROTEGIDA!!"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
CheckBox1.Caption = "Planilha protegida, e Abas invisíveis!"
CheckBox1.BackColor = &HFF&
CheckBox1.ForeColor = &HFFFFFF
CheckBox1.Alignment = fmAlignmentRight
Saber1.Shapes("sb").Visible = True
End If
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application),
praticando sozinho, com baixo custo, estudando com os produtos didáticos Saberexcel
|