none
Código VBA Excel 2013. RRS feed

  • Pergunta

  • Boa noite,

    Tenho a seguinte questão para tentar resolver. Já pesquisei exaustivamente em vários lados e ao colocar esta questão na Comunidade Microsoft recebi um conselho: questionar este vosso fórum. Assim, aqui estou esperando não estar a cometer um erro grosseiro!.. A questão é a seguinte.

    A partir de uma sheet de um livro excel xlsm crio um outro livro também com a extensão xlsm, cuja única sheet - a que foi copiada, dando origem ao novo livro - está protegida por password. O código que estou a utilizar para tal (a parte da criação do novo livro) é o seguinte:

    'As variáveis Disciplina, Ano e Turma foram definidas previamente.

    Sheets("LIGACAO").Select
        Sheets("LIGACAO").Copy
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="alterar"
        Range("A1:A2").Select
        ActiveWorkbook.SaveAs Filename:="C:\AVALIACOES_J23\" & Disciplina & "_" & Ano & Turma & "_EnvioDados.xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

    Entretanto o que eu gostava de saber é se é possível, com código a partir do livro de origem, fazer com que ao abrir o novo livro, a sua única sheet "LIGACAO" pudesse ser desbloqueada com a introdução da password "alterar", conforme foi definida aquando da criação do livro.

    Sei que se pusesse no novo livro o seguinte código isso seria possível, p. ex.:

    Private Sub WorkBook_Open()
        Dim Desbloq As String
        Desbloq = InputBox("Insira a senha para desbloquear o livro", "DIREÇÃO DE TURMA")
            Select Case Desbloq
                Case "alterar"
                    Sheets("LIGACAO").Unprotect Password:="alterar"
                Case Else
                        MsgBox "Com essa Senha não pode desbloquear o livro!", vbCritical, "DIREÇÃO DE TURMA"
                    Exit Sub
            End Select 
    End Sub

    Mas como fazer isto a partir do livro inicial? Com código escrito no livro inicial? É que este novo livro criado pode ser substituído por outro ficheiro criado posteriormente, em diversas alturas do ano letivo. Por outro lado este Excel ao abrir não mostra a Ribon, pois foi escondida!

    Bem haja antecipadamente pelo tempo despendido, nem que seja a ler este post, e espero a vossa boa vontade.

     

    Informações sobre a pergunta


    Última atualização julho 10, 2019 Exibições 23 Aplicável a:
    quarta-feira, 10 de julho de 2019 18:41